[Closed]Keine Exception?

Für Fragen von Einsteigern und Programmieranfängern...
Antworten
Kartoffelsalat
Beiträge: 4
Registriert: Di 21. Jul 2015, 20:23

[Closed]Keine Exception?

Beitrag von Kartoffelsalat »

Hallo,
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.  
Zuletzt geändert von Kartoffelsalat am Di 21. Jul 2015, 22:35, insgesamt 1-mal geändert.

Michl
Beiträge: 2511
Registriert: Di 19. Jun 2012, 12:54

Re: Keine Exception?

Beitrag von Michl »

Bei mir schon. Welches OS und welche Lazarusversion nutzt du?!

Code: Alles auswählen

type
  TLiveSelection = (lsMoney, lsChilds, lsTime);
  TLive = Array[0..1] of TLiveSelection;  

Kartoffelsalat
Beiträge: 4
Registriert: Di 21. Jul 2015, 20:23

Re: Keine Exception?

Beitrag von Kartoffelsalat »

Win7 64BIT / v1.4.0

Kartoffelsalat
Beiträge: 4
Registriert: Di 21. Jul 2015, 20:23

Re: Keine Exception?

Beitrag von Kartoffelsalat »

Habe es gerade in einer VM mit win10 32Bit getestet, dort funktioniert es 0.o

Michl
Beiträge: 2511
Registriert: Di 19. Jun 2012, 12:54

Re: Keine Exception?

Beitrag von Michl »

Kartoffelsalat hat geschrieben:Win7 64BIT / v1.4.0
Merkwürdig, so hatte ich eben getestet.

Ist dein Lazarus 32 oder 64bit?

Erstelle doch einmal ein neues Programm:

Code: Alles auswählen

program Project1;
 
var
  i: Integer;
 
begin
  Readln(i);
end.  
Wird dabei keine Exception geworfen?!

Evtl. überdeckt ja auch das Fenster von der Console das Fenster vom Debugger. Verschiebe dieses doch mal...

Code: Alles auswählen

type
  TLiveSelection = (lsMoney, lsChilds, lsTime);
  TLive = Array[0..1] of TLiveSelection;  

Kartoffelsalat
Beiträge: 4
Registriert: Di 21. Jul 2015, 20:23

Re: Keine Exception?

Beitrag von Kartoffelsalat »

Sry, war dumm von mir!
Bei Lazarus wird ein Fehler angezeigt, allerdings bin ich es von einer anderen IDE gewöhnt, dass wie im Code vorgesehen Error angezeigt wird.
Ich habe die Anwendung gerade kompiliert und dort wird es mir normal angezeigt.
Tut mir echt leid für die Umstände und Danke für deine Antwort

Michl
Beiträge: 2511
Registriert: Di 19. Jun 2012, 12:54

Re: [Closed]Keine Exception?

Beitrag von Michl »

Gar kein Problem!

Ach und ja, ein herzliches Willkommen im Lazarusforum!

Code: Alles auswählen

type
  TLiveSelection = (lsMoney, lsChilds, lsTime);
  TLive = Array[0..1] of TLiveSelection;  

Antworten