ich habe heute erst mit Lazarus angefangen und hoffe auf Verständnis.
Bei folgendem Code wird keine Exception ausgeworfen(z.B wenn ich einem integer einen Buchstabe zuweise), stattdessen hängt sich die Anwendung einfach auf:
Code: Alles auswählen
uses
{$IFDEF UNIX}{$IFDEF UseCThreads}
cthreads,
{$ENDIF}{$ENDIF}
Classes
{ you can add units after this };
var
Eingabe:string;
Numb1:integer;
Numb2:integer;
label a;
begin
writeln('SimpleCalc');
writeln();
a:
try
writeln('Choose:',' "+" "-" "x"');
readln(Eingabe);
writeln('N1:');
readln(Numb1) ;
writeln('N2:');
readln(Numb2);
If Eingabe = '+' then
begin
writeln(Numb1, ' + ', Numb2, ' = ', Numb1 + Numb2);
end
Else If Eingabe = '-' then
begin
writeln(Numb1, ' - ', Numb2, ' = ', Numb1 - Numb2);
end
Else If Eingabe = 'x' then
begin
writeln(Numb1, ' x ', Numb2, ' = ', Numb1 * Numb2);
end;
except
writeln('Error');
end;
writeln('Again? Y/N');
readln(Eingabe);
If Eingabe = 'Y' then
begin
goto a;
end
Else
exit;
end.