Daten in eine externe Datei Schreiben

[snjake]

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!!!