Ĺadny brzuch
Mam taki oto kod otrzymany przez Br@inera na jednym z moich wcześniejszych postów:
var i:integer; for I:=0 to ListBox1.Items.Count -1 do begin if (I > ListBox1.Items.Count) then exit; if not FileExists(ListBox1.Items.Strings[I]) then begin ListBox1.Items.Delete(I); end; end;
Jak przerobic ten kod, aby usuwal wszystkie zle pozycje z ListBoxa (każda linijka w ListBoxie to scierzka dostepu do pliku. Jesli jest nieprawidlowa, chce aby zostala usunieta)
???
Ee? Przecież masz kod, tylko trza go trochę poprawić :Pvar i:integer; with ListBox1.Items do for I:=Count-1 downto 0 do if not FileExists(Strings[I]) then Delete(I);
Użytkownik Cyrkiel edytował ten post 30 sierpień 2005, 10:50
zanotowane.pl doc.pisz.pl pdf.pisz.pl zsf.htw.pl
var i:integer; for I:=0 to ListBox1.Items.Count -1 do begin if (I > ListBox1.Items.Count) then exit; if not FileExists(ListBox1.Items.Strings[I]) then begin ListBox1.Items.Delete(I); end; end;
Jak przerobic ten kod, aby usuwal wszystkie zle pozycje z ListBoxa (każda linijka w ListBoxie to scierzka dostepu do pliku. Jesli jest nieprawidlowa, chce aby zostala usunieta)
???
Ee? Przecież masz kod, tylko trza go trochę poprawić :Pvar i:integer; with ListBox1.Items do for I:=Count-1 downto 0 do if not FileExists(Strings[I]) then Delete(I);
Użytkownik Cyrkiel edytował ten post 30 sierpień 2005, 10:50