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.