Thema: Delphi TQuery, Ausgabe in TMemo

Einzelnen Beitrag anzeigen

Benutzerbild von gi_networx
gi_networx

Registriert seit: 2. Feb 2006
27 Beiträge
 
#1

TQuery, Ausgabe in TMemo

  Alt 29. Mai 2007, 20:30
Datenbank: MySQL • Zugriff über: ODBC+TDatabase+TQuery
Hi an alle,

ich bin hier langsam am verzweifeln. Ich versuche das Ergebnis einer Query mit TQuery in ein Memo auszugeben. Dazu habe ich folgenden Code erstellt:

Delphi-Quellcode:
  while not query1.Eof do
  begin
     outstr := '';
     for i:= 0 to (query1.Fieldlist.Count-1) do
     begin
       outstr := outstr + query1.Fields[i].AsString;
     end;
     memo2.lines.add(outstr);
     Query1.Next;
  end;
Mit diesem Code fügt er jeweils nur den Wert des ersten Feldes der aktuellen Zeile plus jede Menge Leerzeichen in das Memo ein. Verwende ich in der Schleife hingegen:

memo2.Lines.Add(query1.Fields[i].AsString); klappt es und ich bekomme den Wert des jeweiligen Feldes als neue Zeile im Memo. Ich möchte Die Werte aber alle zusammen in einem String sammeln. Warum klappt das hier nicht???

Viele Grüße

Michl
  Mit Zitat antworten Zitat