Suchdialog mit verschieden Rückgabewerten

[s-off]

Hallo,

Du kannst Dir beliebig viele Rückgabewerte auch mittels einer Prozedur holen; dafür benötigst Du nichteinmal eine Funktion.
Nutze einfach den Var-Parameter.

Delphi-Quellcode:

Procedure TForm1.IchGebeWasZurueck(Var Wert1: Integer; Var Wert2: String);
Begin
   Wert1 := 5;
   Wert2 := 'Fuenf';
End;

procedure TForm1.IchWillWasHaben;
var
   IntegerWert: Integer;
   StringWert: String;
begin
   IchGebeWasZurueck(IntegerWert, StringWert);

   ShowMessage(IntToStr(IntegerWert));
   ShowMessage(StringWert);
end;

Ob das allerdings die beste Lösung für Deine Problemstellung ist, kann ich nicht sagen.