|
Вопрос # 174/ вопрос открыт / |
|
Как записать список выделенных файлов из TFileListBox в TMemo?
 |
Вопрос задал: Иван-488 (статус: Посетитель)
Вопрос отправлен: 24 ноября 2006, 22:19
Состояние вопроса: открыт, ответов: 2.
|
Ответ #1. Отвечает эксперт: Denisss
Здравствуйте, Иван!
Привожу Вам пример в приложении.
Чтобы он заработал, нужно добавить на форму TListBox, прописать ему в Items несколько строчек, поставить свойство MultiSelect=True; добавить Memo; добавить кнопку, в событие OnClick кнопки скопировать мой пример.
Кажется все.
Удачи!
Приложение: Переключить в обычный режим- procedure TForm1.Button1Click(Sender: TObject);
- var
- i: Integer;
- begin
-
- Memo1.Clear;
-
- if (ListBox1.SelCount < 1) then
- Exit;
- with ListBox1 do
-
- for i:= 0 to Pred(Items.Count) do
- begin
-
- if (Selected[i]) then
- Memo1.Lines.Add(Items[i]);
- end;
- end;
 |
Ответ отправил: Denisss (статус: 2-ой класс)
Время отправки: 24 ноября 2006, 22:43
|
Ответ #2. Отвечает эксперт: Alex Van Glukhman
Здравствуйте, Иван!
Привожу следующий код. Только непонятно использование компонента Win 3.1. Ну да ладно!!!
Приложение: Переключить в обычный режим- unit uFileBoxToMemo
-
- interface
-
- uses
- Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls,
FileCtrls;
-
- type
- TFrm = class(TForm)
- FlLstBx: TFileListBox;
- Mm: TMemo;
- Btn: TButton
- procedure BtnClick(Sender: TObject);
- end;
-
- var
- Frm: TFrm;
-
- implementation
-
- {$R *.dfm}
-
- procedure TFrm.BtnClick(Sender: TObject);
- var
- cntr: integer;
- begin
- Mm.Clear;
- FlLstBx.ItemIndex:=0;
- for cntr:=0 to FlLstBx.Items.Count-1 do Mm.Lines.Add(FlLstBx.Items[cntr]);
- end;
-
- end.
 |
Ответ отправил: Alex Van Glukhman (статус: 7-ой класс)
Время отправки: 25 ноября 2006, 23:32
|
Мини-форум вопроса
Всего сообщений: 7; последнее сообщение — 26 ноября 2006, 22:32; участников в обсуждении: 3.
|
PingWin (статус: Посетитель), 24 ноября 2006, 22:32 [#1]:
Вот примерчик
procedure TForm1.btn1Click(Sender: TObject);
var
nLoop: Integer;
begin
mmo1.Clear;
for nLoop := 0 to fllst1.Items.Count-1 do
begin
if fllst1.Selected[nLoop] then
mmo1.Lines.Add(fllst1.Items[nLoop]);
end;
end;
|
|
|
PingWin (статус: Посетитель), 24 ноября 2006, 22:33 [#2]:
fllst1 - TFileList
mmo1 - TMemo
Удачи!
|
|
|
Alex Van Glukhman (статус: 7-ой класс), 25 ноября 2006, 23:10 [#3]:
To Deniss:
Вопрос был задан не по TListBox а по TFileListBox - не путай человека. Хотя прекрасно понятно что аналогия та же.
|
|
|
Alex Van Glukhman (статус: 7-ой класс), 25 ноября 2006, 23:14 [#4]:
To PingWin:
Зачем такие сложности?
|
|
|
Alex Van Glukhman (статус: 7-ой класс), 26 ноября 2006, 11:55 [#5]:
Прошу прощения строка
FlLstBx.ItemIndex:=0;
в моём ответе не нужна
|
|
|
Denisss (статус: 2-ой класс), 26 ноября 2006, 21:40 [#6]:
to [b]Alex Van Glukhman[/b]:
[i]> Вопрос был задан не по TListBox а по TFileListBox[/i]
- Неужели Вы считаете, что если человек задал здесь вопрос, то он ламер?! Как класс TListBox, так и TFileListBox являются наследниками класса TCustomListBox и имеют одинаковые свойства (по крайней мере, я использовал такие).
Кроме того, Вы не ответили на вопрос! В вопросе задано скопировать в Memo все [b]выделенные[/b] пункты, а Вы копируете [b]абсолютно все[/b] пункты.
Так что прежде чем заходить в форум вопроса и критиковать всех, кто попытался ответить, задумайтесь, а верно ли Вы дали ответ!
|
|
|
Alex Van Glukhman (статус: 7-ой класс), 26 ноября 2006, 22:32 [#7]:
To Deniss: По поводу выделенных итемов согласен моя ошибка. В этом Вы действительно правы. Но всё-таки большая часть подобных вопросов исходит от тех, кто только начинает работать и им важен точный ответ по их теме.
С уважением!!!
|
Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.
|
