Wyszukiwanie

0

Pochwalony! Mam sobie problemika na poziomie osoby początkującej. Aktualnie aktualizuję mój moduł dodając do niego nową klasę - TSearch (sam piszę :P ). Polecenie Search, nie daje żadnych wyników. Wg mnie, zostało ono dobrze napisane, ale nie działa. Próbowałem robić próby na module, na normalnych aplikacjach i konsolach. Próbowałem czytać od początku artykuły, ale i tak - (za przeproszeniem) gówna się dowiedziałem :). I moje pytanko: co jest źle napisane w poniższym kodzie?? Bardzo proszę o szybką odpowiedź. Z góry dzięki :). Pozdrowienia dla forumowiczów - KiteK.

program Project2;

{$APPTYPE CONSOLE}

uses
Windows, SysUtils;

var

S: TSearchRec;
L: Integer;
begin
L := FindFirst('c:\windows\pulpit', faAnyFile, S);
while (L = 0) do
begin
Writeln(S.Name);
L := FindNext(s);
end;
FindClose(S);
Readln;
end.

0

find first daj w pierwszym parmetrze na końcu np. '*.*', teraz powinno znaleźć dowolny plik

[Dopisano:]
To ja dziękuje że mogłem pomóc mimo mojej absolutnej niewiedzy, jaką posiadam

0

Pochwalony! Dzięki. Zapomniałem całkowicie o .. Bóg zapłać. Dzięki :):):):):):):):):)

1 użytkowników online, w tym zalogowanych: 0, gości: 1, botów: 0