Puste katalogi

I to znowu ja bez czasu w kafejce, ale dobra do rzeczy:

Wiem, że to lamerskie, ale i tak zapytam jak sprawdzić czy w katalogu C:\GGG jest jakiś plik, i jeśli jest to nie pódzie showessage z jego nazwą, a jeśli jest więcej plików to niech pójdzie kilka showmessagów

kladziesz na forme np FileListBox1 i piszesz:

sprawdzenie:

   if FileListBox1.Items.Text = '' then
   ShowMessage('nie ma plików');

odczytywanie nazw istniejacych:

var
  i: Integer;
begin
  for i:= 0 to FileListBox1.Items.Count - 1 do
  begin
    ShowMessage('nazwa pliku: ' + FileListBox1.Items[i]);
  end;
end;

pozdro.

var
  FindResult:integer;
  FSearchRec:TSearchRec;
begin
  FindResult:=FindFirst('d:\pp\*.*',faAnyFile+faHidden+faSysFile+faReadOnly,FSearchRec);
  while FindResult = 0 do
  begin
   showmessage('Jest plik');
   FindResult:=FindNext(FSearchRec);
  end;
  if Findresult<>0 then showmessage('Brak plikow');
  FindClose(FSearchRec);