Inkompatible Typen TRect ??? Was ist da passiert ?

[Robert_G]

Zitat von stoxx:

Ich bin mir 100 prozentig sicher, dass ich so schon programmiert habe.

Vielleicht so?

Delphi-Quellcode:

type TSomeBloodyRecord = record
   Value1 :integer;
   Value2 :string;
end;
type PSomeBloodyRecord = ^TSomeBloodyRecord;

var
   Record1          :TSomeBloodyRecord;
   PointerToRecord1 :PSomeBloodyRecord;
begin
   with Record1 do
   begin
      Value1 := 1;
      Value2 := 'Miep';
   end;

   PointerToRecord1 := @Record1;

   Writeln('Record1=PointerToRecord1 is ', (@Record1 = PointerToRecord1));
   Sleep(5000);
end.

Wobei ich freiwillig kein Fachmann im Umgang mit primitiven Typen bin.