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