Datensätze in TStringlist einfügen

[s-off]

Also ich würde folgendermaßen vorgehen (obwohl der marabu gleich bestimmt mit einer besseren Lösung um die Ecke kommen wird)

Also - da Du Deine Daten ja sowieso per Query abfragst, kannst Du die Ergebnismenge ja schonmal eingrenzen, indem Du nur die Datensätze einfliessen lässt, in denen Dein Aktivitäten-Feld den Wert 'J' hat.

Anschliessend gehst Du die Ergebnismenge der Query durch, setzt die einzelnen Felder je Datensatz zusammen und übergibst sie an Deine Stringliste. Das Ganze könnte in etwa so aussehen:

Delphi-Quellcode:

Procedure TForm1.QueryToList;
Var
   sTemp: String;
   lstResult: TStringlist;
   i: Integer;
Const
   cSeparator = ';';
Begin
   lstResult := TStringlist.Create;
   Try
      While Not DeinQuery.Eof Do Begin
         For i := 0 To DeinQuery.FieldCount - 1 Do Begin
            sTemp := sTemp + cSeparator + DeinQuery.Fields[i].AsString;
         End;
         lstResult.Add(sTemp);
         sTemp := '';
         AdsTable1.Next;
      End;
   Finally
      FreeAndNil(lstResult);
   End;
End;

Edit: ich sag's ja...

Edit2: Methodenname und abschl. 'End;' eingefügt