Zitat von
m-werk:
Mit dieser kann ich leider nichts anfangen
Ich schon. Es liegt auf der Hand, wenn du dir mal deinen Code ansiehst:
Code:
// Der Button, auf den du klickst, heißt "Suchen"
procedure TForm1.SuchenClick(Sender: TObject);
begin
// Die Funktion, die du aufrufst, heißt AUCH "Suchen"
Suchen('Kundendaten.mdb');
end;
Da ich ja nicht wissen konnte, wie du deinen Button nennst, habe ich meiner Funktionen einen recht eindeutigen Namen gegeben, der nun -sinnigerweise- mit dem deines Buttons identisch ist. Also kommen sich beide in die Quere.
Zwei Möglichkeiten:
- Du nennst den Button um, etwa "SuchenBtn", "Search", "SearchBtn" ...
- Du gibst der Prozedur "Suchen" einen neuen Namen, etwa
Code:
procedure DatenbankSuchen(const szSearchFile: string);
Du musst dann natürlich im "OnClick"-Ereignis des Buttons dann auch den neuen Prozedurnamen benutzen, sonst ändert sich an der Fehlermeldung nichts. 