Probiere es doch aus:
Delphi-Quellcode:
procedure Test;
var
in, out : TDataRec;
begin
in.aString := 'Test';
in.aFloat := 0.123456789;
in.aByte := 123;
out := ReverseMakeString(MakeString(in));
Showmessage(out.aString);
Showmessage(FloatToStr(out.aFloat));
Showmessage(IntToStr(out.aByte));
end;
Jetzt sollte er:
ausgeben
Ansonsten haste was falsch gemacht
PS: Ich hatte Fullscreen auch an, und es ist die native Auflösung!