Function schreiben + übergabe von Parametern

[Sharky]

Hai Albi,

wird zwar leicht OT aber ich traue mich mal

Du kannst durchaus eine Function nehmen. Wenn Du z.B. so arbeitest:

Delphi-Quellcode:

function TFormMandGeg.SearchVers(DS: TIBDataSet; 
  SearchText: String): Integer; 
begin 
With DS Do 
  Begin 
    Close; 
    Params[0].value:= SearchText; 
    open; 
    result := RecordCount;
  end; 
end;

Weisst Du sofort wieviele Zeilen deine Suche ergeben haben.

 ShowMessage ('Es wurden' + IntToSt (SearchVers(DMMa.IBDSVersHPF,MHPFTxt.Text)) + ' Einträge gefunen'); Oder so:

Delphi-Quellcode:

function TFormMandGeg.SearchVers(DS: TIBDataSet; 
  SearchText: String): Boolean; 
begin 
With DS Do 
  Begin 
    Close; 
    Params[0].value:= SearchText; 
    open; 
    result := RecordCount > 0;  // Wenn mehr als 0 Datensätze gefunden wurden = True
  end; 
end;

Dann einfach die Funktion auf True abfragen:

Delphi-Quellcode:

begin
  if not (SearchVers(DMMa.IBDSVersHPF,MHPFTxt.Text)) then
  begin
    ShowMessage ('Es wurden keine Einträge gefunden');
  end;
end;

[Nachtrag]
Und es ist bei einer Function ja nicht notwendig das Ergebniss auszuwerten. Du kannst sie also auch wie eine Procedure aufrufen.

Delphi-Quellcode:

begin
  SearchVers(DMMa.IBDSVersHPF,MHPFTxt.Text));
end;