Volltextsuche mit Delphi

[DeddyH]

Dachte ich mir auch schon, aber da vorherige Versionen den "üblichen" Binärvergleich mit faDirectory hatten und das nun geändert wurde, frage ich lieber mal nach.

[Balosh]

Zitat von himitsu:

Es entspricht Folgendem

Delphi-Quellcode:

//if (Rec.attr = faDirectory) or (Rec.attr = (faDirectory + faArchive)) then
if (Rec.attr = faDirectory) or (Rec.attr = (faDirectory or faArchive)) then

aber gemeint ist bestimmt eigentlich Jenes

Delphi-Quellcode:

//if faDirectory in Rec.attr then
if Rec.attr and faDirectory <> 0 then

Attribute/Bits per Addition zu verbinden ist schonmal falsch, denn das macht man per OR, vorallem da einige der Konstanten mehrere Bits umfassen.





Dateinamen suchen (notfalls Alle), wenn Dateiname gefunden, dann jede Datei nacheinander in die StringListe laden und dort drinnen suchen.

Ok so kann man es auch machen hast recht. So wie ich es gemacht habe funktioniert es zwar auch aber deine Variante ist die richtige im nachhinein.
Aber das ist keine Antwort auf meine Frage.

[DeddyH]

Statt einfach nur die Datei der ListBox hinzuzufügen, musst Du sie halt vorher öffnen und nach dem String durchsuchen. Das würde ich aber eher in eine eigene Funktion verfrachten, sonst wird das zu unübersichtlich.

[p80286]

Wenn Du hier

Delphi-Quellcode:

  if MatchesMask( Rec.Name, FileName) then
             Listbox1.Items.Add(Path + Rec.Name);

die gefundenen Dateien in eine Listbox einträgst, dann kannst Du ebensogut hier Deine Suche starten

Delphi-Quellcode:

 
if MatchesMask( Rec.Name, FileName) then 
begin         
  Listbox1.Items.Add(Path + Rec.Name);
  PositionofText:=FindTextinFile(Filename,Texttofind);
end;

eine weitere Möglichkeit wäre es om OnClick-Event der Listbox (hoffentlich gibt's das) die Textsuche einzubinden.

Gruß
K-H

[Balosh]

Zitat von p80286:

Delphi-Quellcode:

 
if MatchesMask( Rec.Name, FileName) then 
begin         
  Listbox1.Items.Add(Path + Rec.Name);
  PositionofText:=FindTextinFile(Filename,Texttofind);
end;

Das war der entscheidende Hinweis. Das Programm läuft jetzt einwandfrei und liest in *.txt und *.pas Dateien ohne Probleme und gibt die jeweiligen Dateien in der Listbox an. Nun will ich dieses Problem mit den *.dfm Dateien lösen. Hat da jemand schon Erfahrung mit gemacht und kann mir da ein paar Tipps und Hinweise geben?

[DeddyH]

Welches Problem denn? Seit Delphi 4(?) werden DFM standardmäßig im Textformat gespeichert. Solltest Du doch auf eine binäre stoßen, wirst Du es daran merken, dass Du nur "Zeichensalat" ausliest. In dem Fall kannst Du dann die genannte Methode anwenden und solltest anschließend wieder lesbaren Text vor Dir haben.

[Balosh]

Ich meine das Problem mit den Umbrüchen im Bezeichner einer langen Textzeile. Kann natürlich sein das ich da nicht ganz auf dem aktuellen Stand bin und das mittlerweile nicht mehr so ist.