Konvertering af "Single" til 4-byte

Prøv:

type
  PA = ^TA;
  TA = array[0..3] of Byte;

procedure TForm1.Button1Click(Sender: TObject);
var
B: PA;
S: Single;
begin
S := 1.25;
B := @S;
Label1.Caption := IntToStr(B[0]) + ' ' + IntToStr(B[1]) + ' ' + IntToStr(B[2]) + ' ' + IntToStr(B[3]);
end;

Eller måske:

type
  PA = ^TA;
  TA = array[0..3] of Byte;

procedure TForm1.Button1Click(Sender: TObject);
var
B: PA;
S: Single;
S1: Single;
begin
S := 1.25;
Move(Pointer(S), Pointer(B), 4);

Move(Pointer(B), Pointer(S1), 4);
Label1.Caption := FloatToStr(S1)
end;

Jeg har afprøvet første løsning, og den virkede. Tak!

Lægger lige et svar :-)

Hvorfor tager du pointene selv??

klm -> Man kan vist ikke kalde dig helt ny, selvom du ikke er ret aktiv herinde... du oprettede dig onsdag 13. december 2000 22:30, så du bør kende reglerne (også selvom dit minimum af aktivitet) og god skik.

Læs http://expfaq.1go.dk/?id=24#kan_ikke_give_point