Tstrings Fehler

[marabu]

Hi Leif,

in deiner function fehlt eine wichtige (die erste) Zeile, dafür ist da einiges zuviel:

Delphi-Quellcode:

uses
  Unit1;

function TTestService.SQLabfrage(const Connection: String; SQLString: String): TStrings;
var 
  i, j: integer;
  s: string;
begin
  Result := TStringList.Create;
  with WebModule.ADOConnection do
    ConnectionString := Connection;
  with WebModule.ADOQuery do begin 
    SQL.Text := SQLString;
    Open;
    for i := 0 to RecordCount - 1 do begin
      s := '';
      for j := 0 to IndexFieldCount - 1 do begin
        if j > 0 then 
          s := s + ',';
        s := s + FieldValues[IndexFields[j].Text].AsString;
      end;
      Result.Add(s);
      Next;
    end;
    {Close;}
  end;
end;

Grüße vom marabu