Hallo,
leider habe ich schon wieder ein Problem. Sorry, falls ich nerve.
Ich habe folgende Function:
Delphi-Quellcode:
function getWNamenByID(id:String):TStrings;
var sl:TStrings;
begin
roster.sqldings.Active := false;
roster.sqldings.SQL.Clear;
roster.sqldings.SQL.Add('SELECT * FROM namen where workerID = ' +id+';');
roster.sqldings.Active := true;
sl.create;
//sl.Clear;
while not roster.sqldings.Eof do begin
sl.Add(kalender.sqldings.FieldByName('name').AsString);
roster.sqldings.Next;
end;
Result := sl;
sl.Free;
end;
Der Aufruf sieht so aus:
roster.namen.Items.AddStrings(func.getWNamenByID(wid.Caption))
Leider bekomme ich (laut Haltepunkt) beim Aufruf eine AccessViolation und ich weiß nicht wieso...
Gruß,
Andreas