DANKE DANKE DANKE DANKE
hab aber noch ein klitze kleines anderes prob.. ich schreibs einfach dahinter, wenn ich ne datei einlade und drücke auf Abbrechen, stopt das programm!
Code:
procedure Tprog.Button4Click(Sender: TObject);
var F1:Textfile;
s:single;
datei: string;
begin
//Daten in Edits einladen
opendialog1.execute;
datei:=opendialog1.FileName;
AssignFile(F1,datei);
reset(f1);
readln(f1,s);
zahl1.text:=floattostr(s);
readln(f1,s);
zahl2.text:=floattostr(s)
muss ich was weglassen, oder so?