Suchdialog mit verschieden Rückgabewerten

[Aurelius]

Hi DPler :hi:

In meinem Programm benötige ich ein Suchfenster/-dialog. Wie mache ich das denn dann am besten, wenn ich dabei mehrere Rückgabewerte erhalten will (Suchwort, Case-Sensitive, verschiedene sonstige Kriterien...)?
Eine Extraform und versch. public-Variablen sind ja kein guter Programmierstil. Oder kann man vielleicht einen Formaufruf mit Rückgabewerten machen?

[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.