Mehrere Ergebnisse aus Dll an Programm übergeben, aber wie?

[tommie-lie]

Zwei Möglichkeiten:
1. Record:

Delphi-Quellcode:

TMyResult = record
  Ergebnis1: TSomeType;
  Ergebnis2: TSomeType;
end;

function meinefunktion(Zahl: PChar): TMyResult;
begin
  Result.Ergebnis1 := uvw;
  Result.Ergebnis2 := xyz;
end;

// Aufruf:
var
  daten: TMyResult;

daten := meinefunktion('123.456');
ShowMessage(ConvertToString(daten.Ergebnis1));
ShowMessage(ConvertToString(daten.Ergebnis2));

2. Implizierte Pointer (aka var-Parameter):

Delphi-Quellcode:

procedure meinefunktion(Zahl: PChar; var Ergebnis1: TSomeType; var Ergebnis2: TSomeType);
begin
  Ergebnis1 := uvw;
  Ergebnis2 := xyz;
end;

// Aufruf:
var
  e1, e2: TSomeType;

meinefunktion('123.456', e1, e2);
ShowMessage(ConvertToString(e1));
ShowMessage(ConvertToString(e2));

Allerdings solltest du dir überlegen, ob du das wirklich als String übergeben willst, Delphi kennt nämlich auch den Datentyp Real...