|
Registriert seit: 23. Jun 2005
403 Beiträge
|
Re: Vorzeichen entfernen
31. Aug 2007, 12:06
@Topic: Gehen tut auch: Zahl:=Zahl*Sign(Zahl);
oder If Zahl<0 Then Zahl:=Zahl-2*Zahl;
[edit]
oder:
Delphi-Quellcode:
ZahlStr:=IntToStr(Zahl);
ZahlStr:=Copy(ZahlStr,Succ(Pos('-',ZahlStr)),Length(ZahlStr));
Zahl:=IntToStr(ZahlStr);
Manchmal sehen Dinge, die wie Dinge aussehen wollen mehr wie Dinge aus, als Dinge
<Esmerelda Wetterwachs>
|