| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Работа с FileList...
jenya_rus © (2006-04-17 13:42:00)Привет всем...
Подскажите как работать с файлами из Filelist..
тока не при чейндже каждого файла...а чтоб файлы обрабатывались по отдельности каждый без участия в этом юзера...
например что то типа этого:
RenameFile(FileList1.FileName,ChangeFileExt(FileList1.FileName, `.xls`));
а за тем типа как файнднекст =) И после одного файла из файллист обрабатывается второй, третий...и т.д.
Заранее спасибо!
kilkennyCat (2006-04-17 16:45:00) [1]
> чтоб каждую строку в файллистбокс понимать как отдельный
> файл
а выше что?
jenya_rus (2006-04-17 15:28:00) [2]> icWasya
Ты меня не понял...вот смари...в твоих процедурах все файлы поренеймяйцца (классное слово =))) на xls (точнее изменится расширение у всех файлов в файллистбоксе)...Но я имел ввиду чтоб каждую строку в файллистбокс понимать как отдельный файл...и чтоб потом с ним работать...
Заранее спасибо...
icWasya (2006-04-17 15:14:00) [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;
________________ (2006-04-17 14:28:00) [4]попробуй через itrms...
jenya_rus (2006-04-17 14:28:00) [5]ты наверное имел ввиду items???
а что никто не сталкивался с файллистом???
| |
