Man kann mit einem Rutsch mehrere Werte aus einer Funktion oder Progcedure etc. zurückliefern.
Einfach einen eigennen Typ zB. ein Record basteln und los geht es.
Delphi-Quellcode:
type
TMyRecResult = record
a, b: Integer;
c: Char;
end;
function foo(x, y, z: Integer): TMyRecResult;
begin
Result.a := x + y;
Result.b := y + z;
if a > b then Result.c := 'J' else Result.c := 'N';
end;
procedure foo2(x, y, z: Integer; var Schnipp: TMyRecResult);
begin
Schnipp.a := x + y;
Schnipp.b := y + z;
if a > b then Schnipp.c := 'J' else Schnipp.c := 'N';
end;
Zitat:
Kann man bei der Angabe der
DLL nicht alle zusammen nehmen?
Nö.