Hallo zusammen,
wie in einem vorherigen Thread schonmal verkündet arbeite ich bei meinem aktuellen Programm mit Lazarus. Das ist aber halb so wild, da ich bisher fast alles von Delphi so übernehmen konnte. Jetzt gibt es aber nicht die Möglichkeit Daten direkt nach Excel zu exportieren. Also gehe ich den Weg über eine
CSV-Datei. Zu diesem Zweck habe ich folgenden Code gefunden:
Delphi-Quellcode:
procedure TForm1.Button2Click(Sender: TObject);
begin
application.Terminate;
end;
procedure TForm1.Button3Click(Sender: TObject);
var
ndx : Integer;
sl : TStringList;
tString : String;
begin
sl := TStringList.Create;
try
with qrmain do
begin
First;
while not (Eof) do
begin
tString := '';
for ndx := 0 to Fields.Count -1 do
begin
tString := tString + '"' + Fields.Fields[ndx].AsString + '",';
end;
sl.Add(tString);
Next;
end;
end;
sl.SaveToFile('c:\We_Anforderungen.csv');
finally
FreeAndNil (sl);
end;
Showmessage('Daten wurden gespeichert!!')
end;
Das passt so gut, das wenn ich die Datei mit Excel öffne alles ganz normal aussieht. Jetzt möchte ich gerne noch die Spaltenüberschrift mit dabei haben...geht das und wenn ja wie?
Danke
Ati