|
Registriert seit: 17. Sep 2006
Ort: Barchfeld
27.624 Beiträge
Delphi 12 Athens
|
AW: Code abkürzten
12. Apr 2011, 10:31
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);
Detlef
"Ich habe Angst vor dem Tag, an dem die Technologie unsere menschlichen Interaktionen übertrumpft. Die Welt wird eine Generation von Idioten bekommen." (Albert Einstein)
Dieser Tag ist längst gekommen
|