Einzelnen Beitrag anzeigen

Benutzerbild von SirThornberry
SirThornberry
(Moderator)

Registriert seit: 23. Sep 2003
Ort: Bockwen
12.235 Beiträge
 
Delphi 2006 Professional
 
#4

Re: findfirst, findnext problem

  Alt 17. Mär 2008, 09:22
wie sieht denn dein bisheriger Quelltext aus?
Als erstes musst du mit FindFirst die erste Datei suchen. Ist FindFirst erfolgreich durchläufst du mit FindNext in einer Schleife den Rest (bis FindNext nichts mehr findet). Anschließend mit FindClose die Suche abschließen. In der Schleife kannst du dann einfach die Ergebnisse von FindNext in dein Memo adden:
Delphi-Quellcode:
if FindFirst(...) = erfolg then
begin
  repeat
    //suchergebnis in memo einfügen
  until not (FindNext = erfolg);
  FindClose(...);
end;
Jens
Mit Source ist es wie mit Kunst - Hauptsache der Künstler versteht's
  Mit Zitat antworten Zitat