Die Deklaration der Funktion müsste lauten:
function GetDaten (Nr: PChar; Daten: PDaten):byte stdcall;
Oder als Pointer:
function GetDaten (Nr: PChar; Daten: Pointer):byte stdcall;
Und dann in der Funktion:
Delphi-Quellcode:
function GetDaten (Nr: PChar; Daten: Pointer):byte stdcall;
var
Daten: TDaten;
begin
Daten.Vorname := PDaten(daten)^.Vorname;