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;

[sakura]

Welche Zeile ist den 916?

...:cat:...

[Albi]

Zeile 916 ist die wo ich versuche das Datenmodul zu übergeben, wenn ich das rausnehme läuft die Function ohne Fehlermeldung durch.

Zitat:

function TForm12.SearchVers(DM: TForm; DS: TIBDataSet;
SearchText: String): String;

[BluesKid]

Moin moin

Zeig doch mal wie du die function aufrufst.


schönen Gruß

Sam

[Albi]

Aufrufen würde ich die Function dann so, wenn ich sie compiliert bekomme:

Code:

SearchVers(Datenmodul,Dataset, Searchstring);

[Sharky]

Zitat:

function TForm12.SearchVers(DM: TForm; DS: TIBDataSet;
SearchText: String): String;

Ähmm... TForm ist aber kein TDataModul!

[BluesKid]

...und überleg mal ob du da nich lieber ne procedure draus machst...diese function liefert ja gar kein Ergebnis zurück


schönen Gruß

Sam

[Albi]

:gruebel: Soll die Function doch aber eigentlich auch nicht, sondern soll nur das DataSet in schwung bringen und diese zeigt mir dann das Ergebnis.

Ich habe das mit dem DatenModul jetzt rausgenommen und setze nur noch die parameter für die Dataset und den Searchstring und so geht das auch.

Hier mein Ergebnis:

Code:

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

Und der Aufruf erfolg so:

Code:

SearchVers(DMMa.IBDSVersHPF,MHPFTxt.Text)

Würde mich jetzt aber trotzdem mal interessieren, wann nimmt man denn am besten eine Procedure und wann eine Function?

[BluesKid]

Ob das wirklich so wichtig ist kann ich auch nich sagen :-)

Funktionen liefer eben Ergebnise so wie in der Mathematik auch und Proceduren sind einfach nur Anweisungen.

f(x) = x² liefert für meinetwegen für x= 5 das ergebniss 25 aber "Mach die Türe zu" muss das ja nich unbedingt..man kann zwar auch aus "Mach die Tür zu" ne function machen die true/false zurückgibt ob die Türe geschlossen wurde, aber es ist nicht unbedingt nötig...is wohl ne Frage von Stil usw.

schönen Gruß

Sam

[Sharky]

Zitat:

Zitat von Albi

...Würde mich jetzt aber trotzdem mal interessieren, wann nimmt man denn am besten eine Procedure und wann eine Function?

Eine Funktion verwendest Du wenn Du ein Ergebniss haben möchtest.

Delphi-Quellcode:

function AddINT (a,b : Integer) : Integer;
begin
  result := a + b;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  c : Integer;
begin
  c := AddINT (5,3);
end;

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

Delphi-Quellcode:

 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.