TStringGrid -> Listen speichern

[Airblader]

Hi :)

Ich habe ein TStringGris (passender weise "Tabelle" genannt ;) ) in der - wer hätts gedacht - Daten stehen.
Diese Daten will ich nun speichern, als eine Art csv-Datei (aber vorerst mal mit der Endung *.txt);

Ich habe natürlich Dateiname, Seperator und das StringGrid: Das alles wird der Funktion übergeben.

Ich stelle mir jetzt die Frage, wie ich das speichern soll.
Ich hätte es vielleicht so gemacht:

SaveToFile von Rows hilft mir nich viel, da ich es so brauche:

Zitat:

Data1;Data2;Data3;Data4;
Datab1;Datab2;Datab3;Datab4;
Datac1;Datac2;Datac3;Datac4;
...

Hätte jemand eine Idee wie ich das machen könnte?
Ich dachte mir so etwas:

Jede Reihe durchschleifen und von der Reihe jede Spalte zu einem String hinzufügen und diesen String per Writeln (:?:) schreiben

air

[Hansa]

Ja, dann mache es doch so. Wie denn sonst ? :shock:

Delphi-Quellcode:

var d : textfile;

assign (d.'TEST.TXT');
rewrite (d);
writeln (d,Data1,';',Data2.....);
close (d);

Allerdings empfehle ich dir feste Feldlängen und nicht ein Trennzeichen. Das macht nur Ärger und bringt keinen Vorteil. Zumindest im professionellen Einsatz werden Trennzeichen mittlerweile äußerst selten verwendet, wenn überhaupt.

[Airblader]

Zitat:

Ja, dann mache es doch so. Wie denn sonst ?

Ich habe die Erfahrung gemacht, dass es meistens irgendwie leichter geht :lol:

Edit2:
ups, war meienrseits

[ibp]

such mal nach explode und implode hier im forum!

[Airblader]

Ok, es funktioniert nun :)

Ich hängs trotzdem mal mit an:

Delphi-Quellcode:

procedure TForm1.SaveSG(FN: TFileName; FieldSeperator: Char; SG: TStringGrid);
var
        i,j: integer;    // Zähler
        PFile: textfile; // Datei
        str: string;     // Einzutragender string
begin
        AssignFile(PFile, FN);  
        Rewrite(PFile);    // Öffnen

        // Jetzt wird jede Zeile und jedes Feld durchgeschliffen
        for i:=1 to SG.RowCount do
        begin
                for j:=0 to high(Fields) do
                begin
                        if j <> 0 then
                                str := str + ';' + SG.Cells[j,i]
                        else
                                str := SG.Cells[j,i];
                end;
                str := str + ';';

                if SG.Cells[0,i] <> '' then
                begin
                        Writeln(PFile, str);
                end;
        end;

        CloseFile(PFile);
end;

Fields ist ein array of string, darin werden die Namen der Felder festgelegt (da ich diese später ändern muss)

air