|
Registriert seit: 15. Jun 2010
Ort: Augsburg Bayern Süddeutschland
3.470 Beiträge
Delphi XE3 Enterprise
|
AW: Dateigröße in Bytes aus Blob auslesen
6. Dez 2011, 23:42
ich glaube ich habe es, kranke Idee ...
jepp, definitiv Double ....
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
const
//s1:AnsiString=#$00#$00#$00#$00#$89#$FE#$3F#$41;
//s1:AnsiString=#$00#$00#$00#$00#$00#$00#$F0#$3F;
s1:AnsiString=#$00#$00#$00#$00#$89#$FE#$6F#$41;
var
i:Double;
begin
move(s1[1],i,8);
Showmessage(FloatToStr(i));
end;
Thomas Wassermann H₂♂
Das Problem steckt meistens zwischen den Ohren
DRY DRY KISS
H₂♂ (wenn bei meinen Snipplets nichts anderes angegeben ist Lizenz: WTFPL)
Geändert von Bummi ( 6. Dez 2011 um 23:49 Uhr)
|