Witam !
Próbuję napisać program który wykonuję to co na załączonym obrazku.
//Dodano później
Może trochę źle się wyraziłem, chciałbym zrobić żeby program odczytywał pierwszy item, wyświetlał komunikat i kasował go i tak aż do końca itemów.
Dodano później
Zrobiłem coś takiego ale chciałbym zrobić żeby pętla cały czas działała aż nie skasuje wszystkich katalogów z listy.
var
SR: TSearchRec;
Fik : Integer;
copy: String;
procedure szukaj;
begin
Fik := FindFirst(copy+'*.txt', faAnyFile, SR);
while (Fik = 0) do
begin
Form1.ListBox1.Items.Add(copy+sr.Name);
Fik := FindNext(SR);
FindClose(SR);
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
Var
Temp: String;
Count, FI, I: Integer;
Begin
Count := ListBox1.Items.Count; // Policz liczbę itemów w ListBox
For I := 0 To Count-1 Do
if (Count > -1) Then // Zabezpieczenie
Begin
FI := LenGth(ListBox1.Items[I]); // Policz ilość znaków w pierwszym item'ie
Temp := ListBox1.Items[I][LenGth(ListBox1.Items[0])]; // Skopiuj do string ostatni znak pierwszego itemu
copy:=ListBox1.Items[I];
if (Temp = '\') Then
begin
ListBox1.Items.Delete(I);
szukaj;
end
Else // Jeżeli tak, to wyświetl komunikat, że to katalog
ShowMessage('To nie jest katalog');
end;
end;