Function schreiben + übergabe von Parametern

[Albi]

Hallo,

ich habe mir ein kleines Programm geschrieben in dem ich in ein Edit-Feld einen Wert eintragen kann und mir dann die übereinstimmungen in einem Grid angezeigt werden. Da diese Abfrage ingesamt 4x vorkommt, habe ich mir gedacht, dafür eine kleine Function zu schreiben aber irgendwie komm ich damit nicht ganz klar.

Ich will in die Function das Datenmodul, die entsprechende Dataset sowie den zu suchenden String übergeben aber ich da immer ne Fehlermeldung:

Zitat:

Form12.pas(916): Inkompatible Typen: 'TForm' und 'Class reference'

Hier mein Versuch. (Ich muß dazu sagen, es ist das erste mal das ich mich an Function herantraue)

Code:

function TForm12.SearchVers(DM: TForm; DS: TIBDataSet;
  SearchText: String): String;
begin
  With DM Do
  Begin
    With DS Do
      Begin
        Close;
        Params[0].value:= SearchText;
        open;
      end;
  end;

end;