Code abkürzten

[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!

[DeddyH]

Was steht denn im Post über Deinem?

[himitsu]

Da steht

Zitat von DeddyH:

Was steht denn im Post über Deinem?

hmm, das stand vorhin aber noch nicht da ... ganz sicher bin