danke für die Tipps. Die Ausgabe funktioniert zwar nicht so wie es sein soll, aber immerhin es wird sowohl Spaltenname als auch Datenfeld angezeigt.
Delphi-Quellcode:
var
List: TStringList;
SpaltenName : String;
DatenFeld: String;
I: Integer;
begin
SpaltenName := '';
List := TStringList.Create;
try
FDQuery1.First;
SpaltenName := '| ';
for I := 0 to FDQuery1.FieldCount -1 do
begin
SpaltenName := SpaltenName + '' + FDQuery1.Fields[I].Fieldname + ' | ';
end;
while not FDQuery1.Eof do
begin
DatenFeld := '| ';
for I := 0 to FDQuery1.FieldCount - 1 do
begin
DatenFeld := DatenFeld + '' + FDQuery1.Fields[I].AsString + ' | ';
end;
List.Add(SpaltenName);
List.Add(DatenFeld);
FDQuery1.Next;
end;
finally
List.SaveToFile('C:\Projekte\oraTOcsv.csv');
List.Free;
end;
end;
Also das Problem ist, das: eine Zeile Spaltenname angezeigt und die nächste dann das Datenfeld, usw...und wie kriegt man hin, dass die Breite des Datenfeldes und Spalten-Breite gleich groß sind?
Besten Dank
VG blema