Procedure mit TForm1 in extra Unit?

[Sir Rufo]

Zitat von MCXSC:

Nur: Wie bekomme ich die Rückgabewerte wieder zurück? Dafür müsste dann ja für jede Aufgabe eine zweite Procedur im jeweiligen Form her?

Mit einer entsprechende Schnittstelle:

Delphi-Quellcode:

funtion TuWasUndGibEsZurück( var Daten : TDaten ) : boolean;
begin
  {Hier tue ich was mit den Daten}
end;

oder meinetwegen

Delphi-Quellcode:

funtion TuWasUndGibEsZurück( Daten : TDaten; var Ergebnis : TErgebnis ) : boolean;
begin
  {Hier tue ich was mit den Daten und pack das in Ergebnis}
end;

oder

Delphi-Quellcode:

funtion TuWasUndGibEsZurück( var Daten : TDaten ) : TErgebnis;
begin
  {Hier tue ich was mit den Daten und dann}
  RESULT := { das Ergebnis zurückliefern }
end;

cu

Oliver