Habe folgendes zur
CSV gefunden:
Delphi-Quellcode:
//SaveToCSV ausführen (sample call)
procedure TForm1.Button1Click(Sender: TObject);
begin
SaveToCSV;
end;
function TForm1.SaveToCSV:Boolean;
var
SD : TSaveDialog;
I : Integer;
CSV : TStrings;
FileName :
String;
begin
Try
// Filedialog erzeugen
SD := TSaveDialog.Create(Self);
SD.Filter := '
CSV-Trennzeichen getrennt (*.csv)|*.CSV';
//Filedialog ausführen
If SD.Execute = True
Then
Begin
//Filename zuweisen
FileName := SD.FileName;
If Copy(FileName,Pos('
.',FileName),Length(FileName)-Pos('
.',FileName)+1) <> '
.csv'
Then FileName := FileName + '
.csv';
Screen.Cursor := crHourGlass;
//Stringliste erzeugen
CSV := TStringList.Create;
Try
edit1.text := ('
Hallo');
//Stringliste füllen
For I := 0
To (StringGrid1.RowCount - 1)
Do CSV.Add(StringGrid1.Rows[I].commatext);
//CSV speichern
CSV.SaveToFile(FileName);
Result := True;
Finally
CSV.Free;
End;
End;
Finally
SD.Free;
Screen.Cursor := crDefault;
End;
end;
Blöderweise wird eine
CSV erstellt in der die Zellen voll mit komas sind, und ich blicke nicht durch woran das liegt. Anzahl der kommas per Zelle entspricht der Anzahl der "cols" von dem "StringGrid1".
normalerweise sollten doch die Kommas in der Datei die Spalten Trennen...leider finde ich sogut wie garnichts zur
CSV Daten Speicherung, über das "einlesen der
CSV-Daten in Delphi" gibt es mehr als genug Beispiele umgekehrt aber sogut wie nichts
komme echt nicht weiter!!!
