TStringList als Result

[mirage228]

Hi Luckie,

ich würde es persönlich so machen:

Delphi-Quellcode:

class function TForm2.GetUserInput(List: TStrings): Boolean;
begin
  with TForm2.Create(nil) do
  begin
    ShowModal();
    if Assigned(List) then
      List.Add(Edit1.Text);
    Result := length(Edit1.Text) <> 0;
    Free();
  end;
end;

Dann kann man jeden Nachfahren von TStrings einsetzen und auch z.B. ComboBox1.Items als Parameter angeben - also eine vorhandene Liste weiterbenutzen.

mfG
mirage228