Wie File of String ?

[EccoBravo]

Hallo,

ich will ein File bestehend aus vielen Strings schreiben und lesen derart :

Delphi-Quellcode:

procedure TForm1.B_EichFilmSpeichernClick(Sender: TObject);
var
    i,j    : integer;
    Setup: array[0..155] of string;
    SetupFile : file of string;   // * dieses mag DELPHI nicht
//++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
begin
    for i := 0 to 150 do
    begin
        Setup[i]:='';
    end;
    Setup[1]:='28.02.2006';
    Setup[2]:='17:14:58';
    Setup[3]:= IntToStr(pGrad);
    for i := 0 to 9 do
    begin
        Setup[4+i]:= FloatToStr(pKoef[i]);
    end;
    for i := 1 to 26 do
    begin
        Setup[20+i]:= FloatToStr(EFilm.Werte[1,i]);
        Setup[70+i]:= FloatToStr(EPlan.Werte[1,i]);
        Setup[120+i]:= FloatToStr(Werte[i]);
    end;

    AssignFile(SetupFile,SetupVerzeichnis+SetupDatei);
    Rewrite(SetupFile);
    for i := 1 to 150 do
    begin
        Write(SetupFile,Setup[i]);
    end;
    CloseFile(SetupFile);
end;

//++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
procedure TForm1.FormCreate(Sender: TObject);
var
    SetupFile : File of String;
    i,j    : integer;
    Setup  : array[0..155] of string;
    k : integer;
//++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
begin
    Assign(SetupFile,SetupVerzeichnis+SetupDatei);
    Reset(SetupFile);
    for i := 1 to 150 do
    begin
        Read(SetupFile,Setup[i]);
    end;
    CloseFile(SetupFile);
end;

Ich will einfach nur ein StringArray abspeichern und wieder auslesen - mehr nicht.
SetupFile : file of string geht wohl nicht wegen nicht terminierter String - was wäre also die einfachste Alternative?

Vielen Dank

E. B.

[Bernhard Geyer]

Wie wäre es mit TStringlist + SaveToFile/LoadFromFile?

[hibbert]

file of string gibt es nicht.
versuch es mal mit

Delphi-Quellcode:

var datei: textfile

hibbert

[dfried]

Wie Bernhard schon geschrieben hat, nimm eine TStringlist, dann kannst du dir auch das Array sparen und bist nicht festgelegt auf deine feste Anzahl Einträge. Ebenso hast du dann zusätzlich noch die Möglichkeit schnell in dieser Liste zu suchen.

[Boombuler]

Und wenn du Einstellungen in eine Datei schreiben willst gibts auch noch Good-Old-Inifile!

Greetz
Boombuler

[EccoBravo]

TextFile war gut,
Danke, Danke

E. B.