Code abkürzten

[thomas2009]

Hi
kann man hier den Code abkürzten?

Delphi-Quellcode:

procedure TForm1.Edit1Change(Sender: TObject);
var
x,y,z : Integer;
begin
if (Edit1.Text='0') or (Edit1.Text='') then begin
    Edit1.Text:='1';
X:=StrToInt(Edit1.Text);
y:=StrToInt(Edit1.Text)*2;
z:=StrToInt(Edit1.Text)*3;
end else begin
X:=StrToInt(Edit1.Text);
y:=StrToInt(Edit1.Text)*2;
z:=StrToInt(Edit1.Text)*3;
end;

[roga]

Delphi-Quellcode:

var
  x, y, z, i: Integer;
begin
  if not TryStrToInt(Edit1.Text, i) then i := 1;
  x := i;
  y := i * 2;
  z := i * 3;
end;

...aber welchen Sinn soll das ergeben? Du übergeibt Werte die nur in dieser Procedure gelten!

[schlecki]

anstatt

TryStrToInt(Edit1.Text, i) ginge auch

i := StrToIntDef(Edit1.Text, 1);

[mkinzler]

Und verwende den Parameter Sender statt eine namentlichen Instanz

[schlecki]

dann müsste er aber wieder casten... ob das gut geht?

[mkinzler]

Natürlich kann man seine Auto auch scheiben, anstatt zu lernen, wie man den Motor startet