Hallo,
danke für eure Hinweise. Leider stecke ich an der Idee mit der TList:
Delphi-Quellcode:
type TDocxline = record
level : integer;
article_id : integer;
article_number : string;
article_name : string;
end;
type
TDocxDocument = TList<TDocxline>;
Delphi-Quellcode:
function Tdata.getCatalog(inList : TStringList) : TDocxDocument;
var
i : integer;
reval : TDocxDocument;
tmp : TDocxline;
begin
...
for i := 0 to inlist.Count - 1 do
begin
workQuery.ParamByName('id').AsInteger := StrToInt(inList[i]);
workQuery.Open;
if not workQuery.IsEmpty then
begin
tmp.level := workQuery.FieldByName('level').AsInteger;
tmp.article_id := workQuery.FieldByName('article_id').AsInteger;
tmp.article_name := workQuery.FieldByName('number').AsString;
tmp.article_number := workQuery.FieldByName('name').AsString;
reval.AddRange(tmp);
end;
workQuery.Close;
end;
result := reval;
end;
Wenn ich die Werte dann verarbeiten will, bekomme ich ne
Exception. Kann ich eine generische Liste nicht als type deklarieren?
Vielen Dank
