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

[schlecki]

Zitat von mkinzler:

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

Mein Auto hat'n Motor? verdammt... jetzt komm ich vielleicht auch weniger verschwitzt auf der Arbeit an

[Neutral General]

Hallo,

Noch ein bisschen kleiner ginge es so:

Delphi-Quellcode:

var
  x, y, z: Integer;
begin
  x := StrToIntDef(Edit1.Text,1);
  y := x * 2;
  z := x * 3;
end;

[DeddyH]

Ihr habt aber alle die 0 vergessen (siehe Ausgangspost).

Delphi-Quellcode:

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

Sollten negative Zahlen nicht zulässig sein, ginge es wohl auch mit
x := math.max(StrToIntDef(Edit1.Text,1), 1);

[himitsu]

Delphi-Quellcode:

var
  x, y, z: Integer;
begin
  x := Max(StrToIntDef(Edit1.Text, 1), 1);
  y := x * 2;
  z := x * 3;
end;

die Logik noch etwas abgewandelt und ich glaub negative Zahlen sind ihm auch nicht so lieb ...
ja, ich könnte auch eine -123 eintagen, wenn ich will

PS: Auf die einfachste Idee ist noch keiner gekommen?

Zitat:

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;

Delphi-Quellcode:

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

ist zwar immernoch nicht "optimal", aber immerhin kürzer ... so wie gewollt

PS: lösche jetzt mal mit Backspace/DEL alles aus dem Edit und versuch dann 20 einzugeben (schwups, landet man bei 120) ... darum sollte man bei einer Live-Auswertung niemals den Eingabetext verändern!