wyświtlenie plików

0

Jak wczytac pliki do Listbox'a po wybraniu folderu w okienku "Przeglądanie w poszukiwaniu folderu"

0

Rozumiem, że okienko "Przeglądanie w poszukiwaniu folderu" już Ci działa.

 procedure ListaPlikow (ListBox: TListBox; Folder: String);
var 
  Result: Integer;
  SR: TSearchRec;
begin
  ListBox.Clear;
  Result:=FindFirst(Folder+'\*.*',faAnyFile,SR);
  while Result=0 then begin
    ListBox.Items.Add(SR.Name);
    Result:=FindNext(SR);
  end;
end;

Nie sprawdzałem, ale jakoś tak to powinno wyglądać.

0

A co dokładnie robi funkcja FindFirst i funkcja FindNext?? i dlaczego while Result = 0 ??

0

Warto może zajrzeć do helpa...
FindFirst (wzorzec, atrybuty, wynik) - funkcja wyszukuje pierwszego pliku pasującego do wpisanego wzorca. Wzorzec może być np. ścieżką do katalogu lub maską dla nazwy pliku. Można używać znaków "*" (dowolny ciąg znaków) i "?" (dowolny znak). Parametr "Atrybuty" określa atrybut szukanego pliku. faAnyFile oznacza dowolny plik. Wynik to specjalna zmienna rekordowa zawierająca dane o znalezionym pliku. Funkcja zwraca 0 jeśli znajdzie plik, lub kod błędu w przypadku niepowodzenia.
Podobnie jest w przypadku FIndNext, z tą różnicą, że wyszukuje ona kolejne pliki o masce i atrybutach określonych w użytym wcześniej FindFirst.
Operację wyszukiwania FindNext powtarzamy tak długo, jak zwraca ona wartość 0. Inna wartość oznacza, że kolejny plik nie został znaleziony.

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