Zitat von
naudoc:
Wir würde denn ein Tryblock aussehen, der folgendes enthalten soll:
Wenn edit1.text eine zahl ist, dann {irgend ein Befehl}, wenn nicht showmessage('Keine Zahl')
?
Wie wäre es die Hilfe zu benutzen! Lies Dir mal alles über try - except oder try - finaly durch.
Delphi-Quellcode:
var Zahl: Integer;
begin
try
Zahl:= StrToInt(Edit1.Text);
ShowMessage('Super !! Das ist eine Zahl');
except
ShowMessage('Fehler, keine zahl');
end;
end;
LG Mario