Gleiche Prozedur mit verschiedenen Parametertypen aufrufen

[jaenicke]

Zitat von FriendOfDelphi:

Kann ich denn über ein typcasten auf die einzelnen Teile des Records zugreifen?
Wenn ja, wie ist die richtige Syntax.

Ich habe ein wenig gezögert, weil ich nicht sicher bin, ob es sinnvoll ist einen derart grausamen Hack für diesen Fall zu posten... aber ist ja nicht mein Code, in den der Schrott eingebaut wird...

Delphi-Quellcode:

type
  TTestA = record
    a, b: LongInt;
  end;

  TTestB = record
    a: string;
    b: LongInt;
  end;

procedure Test(Value: Pointer);
begin
  ShowMessage(IntToStr(PLongInt(Integer(Value) + 4)^));
end;

var
  a: TTestA;
  b: TTestB;
begin
  a.b := 777;
  b.b := 666;
  Test(@a);
  Test(@b);
end;