StringGrid spalte in .txt

[SaFu]

Wie in der Überschrift versuche ich eine Spalte vom StringGrid in eine txt zu speicher funzt soweit auch.

Delphi-Quellcode:

procedure TForm7.Button1Click(Sender: TObject);
var sSpalte1Text: String;
       i:integer;
       Datei :Textfile;
begin
  AssignFile(datei,'c:\Test.txt');
  try
    Rewrite(datei);
        for i:=1 to (StringGrid1.RowCount - StringGrid1.FixedRows) do
              begin
                sSpalte1Text:=(StringGrid1.Cells[1,i]);
                Write(datei,sSpalte1Text);
              end;
        closeFile(datei);
  except;
    MessageDlgPos7('Fehler beim speichern',mtInformation,[mbOk],self);
  end;
end;

Jetzt werden die Einträge aber alle aneinander gehängt. muss ich das Zeile für Zeile machen und wie kann die Doppelte einträge überspringen oder am besten wäre wieder aus der txt löschen??

Hoffe mir kann jemand helfen

[mkinzler]

StringGrid.Cols[1].SaveToFile(...);

[SaFu]

Na super Danke

[SaFu]

Ich muss doch nochmal Fragen

Jetzt habe ich es soweit geschaft das auch keine Doppelten Einträge mehr da sind

Delphi-Quellcode:

procedure TForm7.Button1Click(Sender: TObject);
Var sGridL :TStringList;
begin
  sGridL:= tstringlist.Create;
  sGridL.Sorted:= true;
  sGridL.Duplicates:= dupIgnore;
  sGridL.AddStrings(StringGrid1.Cols[2]);
  StringGrid1.Cols[2]:= sGridL;
  sGridL.Free;                       //Stringliste freigeben
  try
   StringGrid1.Cols[2].SaveToFile('c:\Test.txt');

  except;
    MessageDlgPos7('Fehler beim speichern',mtInformation,[mbOk],self);
  end;
end;

Jetzt darf das Sotierte aber nicht im StringGrid angeziegt werden sondern es soll nur in der TXT sotiert sein??

[mkinzler]

Warum speicherst du nicht gleich die Stringliste?

[SaFu]

Stimmt schon erledigt

Aber das Problem habe ich immernoch und wenn ich Neue Daten in die Datei scSpalte schreibe werden die alten daten überschrieben aber die soll nur um die neuen erweitert werden

[Fussball-Robby]

Dann lad die Datei, füge die neuen Daten hinzu und speicher wieder

[s-off]

Dann erzeuge Dir eine temporäre Stringliste die Duplikate ignoriert, hole Dir in diese die Zeilen Deines Grids, und speichere diese Liste.

[mkinzler]

Dann solltest du die Liste zuerst Laden, Erweitern und wieder Speichern, denn .SaveToFile() überschreibt grundsätzlich.

[SaFu]

Aber wenn ich die Liste erst Lade werden die Einträge im StringGrid angezeigt oder verstehe ich da gerade was nicht