Function schreiben + übergabe von Parametern

[Albi]

Also packe ich das in meinem Fall am besten in eine Procedure und rufe die dann wieder auf, das wäre dann technisch somit korrekter als in einer Function.

Vielen Dank.

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

[Albi]

Ist jetzt wirklich etwas OT aber Du hast gerade meine gesamte Arbeit zunichte gemacht. Wenn ich das so mache wie Du in dem Bsp. eben gezeigt hast, dann spare ich ja unheimlich viel schreibarbeit. Und der Code wird um einiges kürzer.

Vielen Dank.