mehrere Variablen Speichern in EINE .txt datei

[Innos]

hiiiii^^

ich habe in meinem Programm richtig viele Strings, die ich gespeichert haben will...
bisher habe ich für jede variable eine eigene .txt datei erstellt und zwar mit:

Delphi-Quellcode:

assignfile(x, ExtractFilePath(ParamStr(0))+'Datei.txt');  //x ist ein textfile
rewrite(x);                                               
writeln(x, Str);                                           //Str ist ein String
closefile(x);

laden is ja kein problem da muss ich ja nur eine zahl änderen (die der zeile in dem Stringlist)...
ein weiteres Problem ist, dass die variablen alle an unterschiedlichen orten des Programmes vorkommen...
das heißt, ich kann wenn sich eine der variablen ändert nicht die ganze .txt datei überschreiben, sonst wären ja die anderen variablen auch weg T_T
ich brauch also irgendein Befehl mit dem man nur eine bestimmte Zeile in der .txt Datei überschreiben kann... und nicht glecih alles.

ich hoffe ihr konntet mir soweit folgen :zwinker:

Vielen Dank im Vorraus :thumb: :thumb:

mfg

[_frank_]

würde denn TIniFile gehen?

Gruß Frank

[Tiuri]

TStringList würde auch gehen:

Delphi-Quellcode:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs;

type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
    MeineStrings: TStringList;
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.FormCreate(Sender: TObject);
begin
 MeineStrings := TStringList.Create;
 MeineStrings.LoadFromFile(ParamStr(0)+'Datei.txt');
 Form1.Caption := MeineStrings[1];
  // so kannst du dann die einzelnen Zeilen benutzen
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
 MeineStrings.SaveToFile(ParamStr(0)+'Datei.txt');
 MeineStrings.Free;
end;

end.

[Innos]

jo thx^^ habs jetzt hinbekommen :)
das problem war einfach dass ich immer wenn ich eine der vielen Variablen neu aufrufen musste um dann die gesamte text datei zu speichern... also eig nur ne schreib arbeit >.<

Danke an euch alle