Скачать: CL | DM;

Работа с FileList...   Найти похожие ветки 

← →
jenya_rus   (2006-04-17 13:42) [0]

Привет всем...
Подскажите как работать с файлами из Filelist..
тока не при чейндже каждого файла...а чтоб файлы обрабатывались по отдельности каждый без участия в этом юзера...
например что то типа этого:
RenameFile(FileList1.FileName,ChangeFileExt(FileList1.FileName, `.xls`));
а за тем типа как файнднекст =) И после одного файла из файллист обрабатывается второй, третий...и т.д.
Заранее спасибо!

---

← →
________________   (2006-04-17 14:28) [1]

попробуй через itrms...

---

← →
jenya_rus   (2006-04-17 14:28) [2]

ты наверное имел ввиду items???

а что никто не сталкивался с файллистом???

---

← →
icWasya ©   (2006-04-17 15:14) [3]

Ну точно так же, как и с любым Strings`ом-


procedure RenameOneFile(Const FileName:String);
begin
 RenameFile(FileList1.FileName,ChangeFileExt(FileList1.FileName, ".xls"));
end;
procedure RenameFiles(Files:TStrings);
var
 I:Integer;
begin
 for I:=0 to Files.Count-1 do  RenameOneFile(Files[I]);
end;

procedure TForm1.Button1Click(Sender:TObject);
begin
  RenameFiles(FileListBox1.Items);
end;



---

← →
jenya_rus   (2006-04-17 15:28) [4]

> icWasya

Ты меня не понял...вот смари...в твоих процедурах все файлы поренеймяйцца (классное слово =))) на xls (точнее изменится расширение у всех файлов в файллистбоксе)...Но я имел ввиду чтоб каждую строку в файллистбокс понимать как отдельный файл...и чтоб потом с ним работать...
Заранее спасибо...

---

← →
kilkennyCat ©   (2006-04-17 16:45) [5]

> чтоб каждую строку в файллистбокс понимать как отдельный
> файл


а выше что?

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.026 c