Текущий архив: 2006.05.07;
Скачать: 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 вся ветка
Текущий архив: 2006.05.07;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.026 c
