guten morgen alle zusammen
ich habe folgendes problem:
ich habe keine ahnung wie man einen fehler abfangen kann mithilfe der funktionen try/except. kann mir da vielleicht mal jemand behilflich sein und mir das in den code einpflanzen? hier mein code und die fehlermeldung (im anhang) welche dabei entsteht:
Delphi-Quellcode:
procedure THauptformular.sbtnKonvertierenClick(Sender: TObject);
var
hexarray : array[0..7] of String;
ihexzaehler : integer;
begin
//Schreiben der Arraydaten in ein Textfile
Assignfile(Tfile,'C:\Dokumente und Einstellungen\mmfembr\Desktop\test.txt');
Rewrite(Tfile);
try
ihexzaehler := StrtoInt('X' + edit1.Text);
except
on EConvertError do showmessage('Bitte korrekten Hexwert angeben!');
end;
For y := 0 to 7 do
begin
ihexzaehler := ihexzaehler + $1;
Writeln(Tfile, inttohex(ihexzaehler,4) + ':' + hexarray[y]);
end;
CloseFile(Tfile);
end;
end.
besten dank schon im vorraus
mmfembr