Работа с 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 (точнее изменится расширение у всех файлов в файллистбоксе)...Но я имел ввиду чтоб каждую строку в файллистбокс понимать как отдельный файл...и чтоб потом с ним работать...
Заранее спасибо...

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

а выше что?

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