Dateien FindNext

[SaFu]

Guten Abend,

ich versuche eine Sender"Datenbank" mit Hilfe von .ini Dateien aufzubauen, soweit funktioniert auch alles nur die Suche mit Hilfe des Edits funzt noch nicht so wirklich.

Wenn Ich z.B. ard eingebe wird auch arte gefunden was mache ich hier falsch?

Code:

procedure THauptseite.SendersucheEditKeyPress(Sender: TObject; var Key: char);
var RueckgabeFile: TSearchRec;
begin

  begin
   Dateiname:= SendersucheEdit.text;
   SenderIniFile:= TMemIniFile.Create(Ordner + '\'+ Dateiname + '.ini');
   Senderladen;
  end;

 begin
  SenderAuswahlListe.Clear;
  SetCurrentDir((ExtractFilePath(ParamStr(0)) + 'Senderdatenbank\'  ));
    FindFirst(SendersucheEdit.Text + '*.ini', faDirectory , RueckgabeFile);
    SenderAuswahlListe.Items.Append(ChangeFileExt(RueckgabeFile.Name, ''));

    while FindNext(RueckgabeFile) = 0 do
      SenderAuswahlListe.Items.Append(ChangeFileExt(RueckgabeFile.Name, ''));
      FindClose(RueckgabeFile);

     end;

    if SenderSucheEdit.Text = '' then
    begin
     SenderSucheEdit.Clear;
     SenderAuswahlListe.Clear
    end;
end;

Gruß

[Dalai]

Wieso

Zitat von SaFu:

Code:

    FindFirst(SendersucheEdit.Text + '*.ini', faDirectory , RueckgabeFile);

? Hast du für jeden Sender ein Verzeichnis mit der Extension .ini?

MfG Dalai

[SaFu]

Nein die liegen alle in einem Verzeichnis.

[jaenicke]

FindClose darfst du erst am Ende aufrufen, nicht nach jedem FindNext. Damit brichst du die Suche ab indem du die Ressourcen für den Suchvorgang freigibst.
Außerdem ignorierst du den Rückgabewert von FindFirst.

Hier findest du ein korrektes Beispiel:
http://www.delphibasics.co.uk/RTL.asp?Name=findfirst

[Dalai]

Zitat von SaFu:

Nein die liegen alle in einem Verzeichnis.

Warum suchst du dann nach Verzeichnissen mit der Extension .ini?

MfG Dalai

[DeddyH]

Ohne Eigenwerbung betreiben zu wollen: http://torry.net/quicksearchd.php?St...cher&Title=Yes (viel einfacher dürfte es nicht gehen, zumindest war das damals mein Bestreben)

[Luckie]

Zitat von DeddyH:

Ohne Eigenwerbung betreiben zu wollen: http://torry.net/quicksearchd.php?St...cher&Title=Yes (viel einfacher dürfte es nicht gehen, zumindest war das damals mein Bestreben)

TCAD - component for writing vector graphics applications
Sicher, dass du das meinst?

[DeddyH]

Nö, das sollte eigentlich TFileSearcher sein, ist es auf meinen Geräten auch.

[Erdbär]

Zitat von DeddyH:

Nö, das sollte eigentlich TFileSearcher sein, ist es auf meinen Geräten auch.

Ja, passt hier auch.

[Luckie]

Auf dem Handy jetzt auch mit den FF. Komisch. Ah. TCAD - component for writing vector graphics applications ist nur Werbung. Ich dachte das wäre das Suchergebnis. Doof gemacht.