20.06.2008, 17:55
|
|
Участник форума
Регистрация: 10.01.2007
Сообщений: 140
С нами:
10175096
Репутация:
105
|
|
1
Код:
for i:=0 to Memo1.Lines.Count-1 do
if not deletefile(Memo1.Lines[i]) then
Memo2.Lines.Add('НЕ МОГУ УДАЛИТЬ '+Memo1.Lines[i]);
2
Код:
for i:=0 to Memo2.Lines.Count-1 do
Memo3.Lines.Add(ChangeFileExt(Memo2.Lines[i]),'');
Последний раз редактировалось t04; 20.06.2008 в 18:01..
|
|
|