Record mit PChars aus DLL befüllen lassen

[uligerhardt]

Einfach in die DLL eine procedure ClearDataA(Data: PTestDataA); stdcall; packen, die das Gegenstück zu AnsiStrAlloc aufruft?
Würde dann so verwendet werden:

Delphi-Quellcode:

procedure TFormTest.ButtonFillClick(Sender: TObject);
var
  Data: TTestdataA;
begin
  FillDataA(@Data);
  try
    ShowMessage(Data.AString);
  finally
    ClearDataA(@Data);
  end;
end;