Zitat von
Ultimator:
Also so:
Delphi-Quellcode:
procedure TForm1.Click(Sender: TObject);
var Zahl, Betrag:integer;
begin
Zahl:=strtoint(Edit1.Text);
if Zahl <0 then
Betrag:= Zahl* (-1)
else
Betrag:=Zahl;
Müsste so gehen.
oder so...
Betrag:=Abs(Zahl);
hat den vorteil es können auch gleitkommazahlen verwendet werden!