Einzelnen Beitrag anzeigen

zeras

Registriert seit: 11. Mär 2007
Ort: Saalkreis
1.618 Beiträge
 
Delphi 12 Athens
 
#10

AW: 32 Bit Wert verschieden interpretieren

  Alt 17. Mai 2012, 16:57
Hilft dir das weiter?

Delphi-Quellcode:
procedure MyTest(Value: Double); overload;
begin
  ShowMessage(FloatToStr(Value));
end;

procedure MyTest(Value: LongInt); overload;
begin
  ShowMessage(IntToStr(Value));
end;

procedure MyTest(Value: LongWord); overload;
begin
  ShowMessage(IntToStr(Value));
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  d: Double;
  i: LongInt;
  w: LongWord;
begin
  d := 1.7e308;
  i := -2147483647;
  w := 4294967295;

  MyTest(d);
  MyTest(i);
  MyTest(w);
end;
Und wie gesagt, ob du d oder i oder w als Variable nimmst, mußt du selbst vorher prüfen.
So werde ich wohl erst mal ins Rennen gehen. Das sollte in etwa dem entsprechen, was ich brauche.
Vielen Dank.
Matthias
Es ist nie falsch das Richtige zu tun!
- Mark Twain
  Mit Zitat antworten Zitat