"invalid floating point operation" finde den Fehler nicht

[DeddyH]

Welcher Code ist wohl lesbarer und besser zu debuggen?
Beispiel 1:

Delphi-Quellcode:

//Keine Trennung von Logik und Darstellung
Edit3.Text := IntToStr(StrToInt(Edit1.Text) div StrToInt(Edit2.Text));

Beispiel 2:

Delphi-Quellcode:

var
  Dividend, Divisor, Ergebnis: integer;
begin
  if not TryStrToInt(Edit1.Text, Dividend) then
    begin
      ShowMessage('Edit1 enthält keine gültige Zahl');
      exit;
    end;
  if not TryStrToInt(Edit2.Text, Divisor) then
    begin
      ShowMessage('Edit2 enthält keine gültige Zahl');
      exit;
    end;
  if Divisor = 0 then
    begin
      ShowMessage('Divisor darf nicht 0 sein');
      exit;
    end;
  Ergebnis := Dividend div Divisor;
  Edit3.Text := IntToStr(Ergebnis);

Und wenn der Debugger nicht will (Projektoptionen auf Release gestellt?), dann kann man sich zur Not immer noch mit Zwischenausgaben (ShowMessage z.B.) behelfen.