Tstrings Fehler

[ledoerr]

Also die function selber:
Unit classes

Delphi-Quellcode:

function TTestService.SQLabfrage(const  Connection:String; SQLString:String): Tstrings; stdcall;
var i,j: integer;
s:string;
begin
Unit1.WebModule.ADOConnection.ConnectionString := Connection;
Unit1.WebModule.ADOQuery.Close;
Unit1.WebModule.ADOQuery.SQL.Clear;
Unit1.WebModule.ADOQuery.SQL.Add(SQLString);
Unit1.WebModule.ADOQuery.Open;
Unit1.WebModule.ADOQuery.First;

for i := 0 to  Unit1.WebModule1.ADOQuery.RecordCount - 1 do
begin
s:='';
 for j:= 0 to Unit1.WebModule.ADOQuery.IndexFieldCount -1 do
  s:=s+','+ Unit1.WebModule.ADOQuery.FieldValues[Unit1.WebModule.ADOQuery.IndexFields[j].Text].asString;
result.Add(s);
Unit1.WebModule.ADOQuery.Next;
end;
end;

Danke für die schnellen antworten

[edit=Sharky]Quote-Tags durch Delphi-Tags ersetzt. Mfg, Sharky[/edit]