Suche in .txt

[GuenterS]

Zitat von tobiasw:

Code:

procedure TForm1.Button1Click(Sender: TObject);

var  Zeichenanzahl:integer;
        Datei: Textfile;
       s_text: string;
begin
AssignFile (Datei, 'info_neu.txt');
Rewrite (Datei);
Zeichenanzahl:=1;
s_text:= edit1.text +  edit2.text;
while (Zeichenanzahl <= length  (s_text)) do
begin
write (Datei, s_text[Zeichenanzahl]);
inc (Zeichenanzahl)
end;
CloseFile (Datei);
end;




end.

Mein Code fürs speichern

Code:

var Datei: Textfile;
s_Text: string[50];
zeichen: char;
Zeichenanzahl: integer;
begin
AssignFile (Datei, ’info’);
Reset (datei);
Zeichenanzahl:= 0;
s_Text:= ’ ’;
while (not Eof (datei) ) do
read (Datei, zeichen);
s_text:= s_text + Zeichen;
inc (Zeichenanzahl); 
end;
Edit1.text:= s_text;  // hier das funzt net
end;

Der Code fürs laden möchte ich ins Formcreate stellen damit beim Prog start die Daten geladen werden nur halt funnktioniert dieser Code nicht

Gruß und Hoffnung auf Hilfe

Da sind viele faule sachen drin, zum einen mal die Deklaration von s_Text ... wieso nur 50 Zeichen? und das andere was mal auf den ersten Blick auffällt, wenn man mal übersieht, dass nichts abgesichert ist durch try finally oder try except, die datei wird auch nicht zugemacht. (closefile)