TStringGrid -> Listen speichern

[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