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

Delphi-Quellcode:

TryStrToInt(Edit1.Text, i)

ginge auch

Delphi-Quellcode:

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? :-D

[mkinzler]

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

[schlecki]

Zitat:

Zitat von mkinzler (Beitrag 1094564)

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

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

[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

Delphi-Quellcode:

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 :angle2:

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 :stupid:

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! :warn: