Zahlen normung

[skaven]

Hallo @ all,

habe mal wieder ein Problem ;-)

Und zwar soll in einem Edit Fenster ein Zahlencode zwischen -90 und +180 eingegeben werden.

Wenn man z.b. 180 eingibt soll heraus kommen 0180.0, bei 22.9 soll 0022.9 heraus kommen und wenn man in den negativen Berreich wechselt, soll z. B. bei -80 1080.0 heraus kommen.

Wie funktioniert denn sowas ?

[glkgereon]

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

[glkgereon]

Delphi-Quellcode:

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'
  else if zahl<1000
  then temp:='0';
  Edit2.Text:=temp+floattostr(zahl);
except
  Application.MessageBox('Ungültige Zahl!','Ungültige Zahl!');
end;
end;

soweit getestet...

jetzt müsste da noch hin temp2
wenn kein nachkommastellen da sind dann temp:='.0'
das machste aber jetzt selber

[skaven]

Danke für den Code.

Das mit dem aus -80 1080.0 werden hat was mit dem Telegramm des Gerätes zu tun was ich ansteuern möchte. Wie mache ich eine Umwandlung bei negativen Zahlen?

[glkgereon]

Delphi-Quellcode:

if zahl<0 
then zahl:=abs(zahl)+1000;

oder wie soll ich dein beispiel vertsehen?

[Kedariodakon]

Suche mal in der Delphi Objekt- und Komponentenreferenz nach:
FormatFloat :zwinker:

PS: Wie macht man so ein Schau in die Delphi Hilfe Dingens?

Bye

[glkgereon]

Zitat:

PS: Wie macht man so ein Schau in die Delphi Hilfe Dingens?

Bitte wer, Bitte wo, Bitte was???
:wiejetzt:

[Kedariodakon]

Sowas FormatFloat :zwinker:

Ich habs wieder raus... :angel:

Bye

[skaven]

Super Idee mit dem Betrag. DANKE