[Gelöst] Problem mit Pointer als Rückgabewert einer Funktion

[epileptic_squirrel]

Das war ja auch nur ein beispiel.
Ich möchte einer funktion einen parameter übergeben und abhängig davon soll ein pointer auf ein bestimmtes record zurückgegeben werden.
Somit kann man dann mit nur einer funktion viele verschiedene aufgaben erfüllen.
(Zumindest so der Plan)

Beispiel(eher als pseudocode zu verstehen):

Delphi-Quellcode:

function DoSomething(Option: Integer): Pointer;
...
begin
  case (Option) of
    0: 
    begin
      MyRecord1 := GibMirIrgwas;
      result := @MyRecord1;
    end;  
    1: 
    begin
      MyRecord2 := GibMirIrgwasAnders;
      result := @MyRecord2;
    end;  
  end;
end;