VPF::TListBox - Форум программистов

Berliner

Дата 27.1.2006, 15:15 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 803
Регистрация: 18.5.2005

Репутация: нет
Всего: 2

Здраствуйте такая задача в компонент TListBox выводяться названия файлов которые есть в кталоге(это я сделал) : паример штуки 3 имне нужно
1. ЧТобы можно было выделить файл или несколько файлов из TListBox(например мышью)
2.Перименовать поочереди отмеченные файлы в другое имя например zapros.dbf. Подскажите пожалуста как это реальзовать?

Код


procedure TForm1.Button4Click(Sender: TObject);


begin
Dir:='c:\zarplata\in';
  serror:=FindFirst(Dir+'\*.dbf', faAnyFile,fs);

       while(serror=0) do

        begin
        namef:=fs.Name;
        form1.ListBox1.Items.Add(namef);
        serror:=FindNext(fs);

        end;

Guedda

Дата 27.1.2006, 15:30 (ссылка)

(нет голосов)

Загрузка ...

Подрывник

Профиль
Группа: Завсегдатай
Сообщений: 3137
Регистрация: 27.12.2005
Где: Ростов-на-Дону

Репутация: 14
Всего: 78

Цитата(Berliner @ 27.1.2006, 15:15)

1. ЧТобы можно было выделить файл или несколько файлов из TListBox(например мышью)

Поставь свойство MultiSelect := true;

2.

Код


for i := 0 to ListBox1.Count - 1 do
  if ListBox1.Items[i]Selected then begin 
    //процедура переименования файла
  end;

Писал на вскидку, так что проверь... Может что не то... Но ссылку я тебе дал.

--------------------

Ll 2

Snowy

Дата 27.1.2006, 15:31 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 192
Всего: 484

1. Выставь MultiSelect в true.
2. Ты не можешь дать разным файлам одно имя.

Berliner

Дата 27.1.2006, 15:46 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 803
Регистрация: 18.5.2005

Репутация: нет
Всего: 2

Спасибо большое
Насчет 2 я беру один файл- перименовую в zapros.dbf перебрасываю в каталог,удаляю.
потом еще один файл из списка -переименовую в zapros.txt обрабатіваю и удаляю . как это к моему коду прикрутить?

Berliner

Дата 27.1.2006, 17:44 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 803
Регистрация: 18.5.2005

Репутация: нет
Всего: 2

Спасиб
этот код компилиться. Но мне нужно, чтобы доступ был к именам файлов которые выделенные в TListBox. как осуществить доступ к выделенным элементам TlistBox?
например
выделенно 3 элемента(название файлов). Нажимаем кнопку и -Мне нужно первый
файл переименовать в zapros.dbf и скопировать в каталог k, затем берет программа второй файл переименовует его в zapros.dbf копирует в каталог d, берет третий файл переименует в zapros.txt и копирует в каталог a. Подскажите как єто реализовать?

Код


procedure TForm1.Button5Click(Sender: TObject);
var i:integer;

begin

for i:=0 to Form1.ListBox1.Count-1 do

if Form1.ListBox1.Selected[i] then

begin



end;

Это сообщение отредактировал(а) Berliner - 27.1.2006, 17:46

Guedda

Дата 27.1.2006, 18:30 (ссылка)

(нет голосов)

Загрузка ...

Подрывник

Профиль
Группа: Завсегдатай
Сообщений: 3137
Регистрация: 27.12.2005
Где: Ростов-на-Дону

Репутация: 14
Всего: 78

Код


procedure TForm1.Button5Click(Sender: TObject);
var i:integer;
begin
for i:=0 to Form1.ListBox1.Count-1 do
if Form1.ListBox1.Selected[i] then
begin
  FlNm := ListBox1.Items[i]; // FlNm = это имя файла, который выделен
  CopyFile(FlNm, 'Место, куда надо копировать');
end;

--------------------

Ll 2

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »