Forum: Programmieren allgemein
by glkgereon,
20. Okt 2004
Bitte wer, Bitte wo, Bitte was???
:wiejetzt:
Forum: Programmieren allgemein
by glkgereon,
20. Okt 2004
if zahl<0
then zahl:=abs(zahl)+1000;
oder wie soll ich dein beispiel vertsehen?
Forum: Programmieren allgemein
by glkgereon,
20. Okt 2004
procedure TForm1.Button1Click(Sender: TObject);
var zahl:double;
temp:string;
begin
try
zahl:=strtofloat(Edit1.Text);
if zahl<10
then temp:='000'
else if zahl<100
then temp:='00'
Forum: Programmieren allgemein
by glkgereon,
20. Okt 2004
ich versteh eins nicht:
wieso soll aus -80 1080.0 werden?? :gruebel:
ansonsten so:
in float machen, in string machen, und dann die event. fehlenden nullen per hand davor
if x<10 then 3nullen
else if x<100 then 2nullen
else if x<1000 then 1null