TCheckListBox и TMemo

← →
uhhax (2003-08-20 02:04) [0]

Народ, помогите с вопросом, трабла вот в чем:
У меня есть на форме CheckListBox, в нем несколько строк (около 20), есть так же Memo1.
Как мне при нажатии на кнопку (Button1) зделать так, чтобы выбранные строки из CheckListBox1 отобразились в Memo1 ?
Заранее спасибо.

← →
UnZero (2003-08-20 02:34) [1]

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, CheckLst;

type
TForm1 = class(TForm)
CheckListBox1: TCheckListBox;
Button1: TButton;
Memo1: TMemo;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
begin
Form1.Memo1.Lines.Clear;
for i:=0 to Form1.CheckListBox1.Items.Count-1 do
begin
if Form1.CheckListBox1.Checked[i] then
Form1.Memo1.Lines.Add(Form1.CheckListBox1.Items.Strings[i]);
end;
end;

end.

← →
UnZero (2003-08-20 02:35) [2]

Написано на D6, но Button1Click - то, что надо...

← →
Marser © (2003-08-20 02:52) [3]

procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
begin
for i:=0 to CheckListBox1.items.count-1 do
if CheckListBox1.checked[i] then
memo1.Lines.Add(CheckListBox1.Items[i]);
end;

← →
Ups (2003-08-20 02:57) [4]

Ты смотри, а Marser соригинальничал...
вот удиви-и-ил...

← →
Marser © (2003-08-20 03:04) [5]

> Ups (20.08.03 02:57) [4]
> Ты смотри, а Marser соригинальничал...
> вот удиви-и-ил...

Во-первых, оптимизация кода(Сокращено в полтора раза), а во-вторых, когда выходил в онлайн, не знал, что среди ночи советчики найдутся...

> UnZero

Для показа подобных аспектов не обязательно публиковать весь юнит, достаточно одного обработчика.

← →
Ups (2003-08-20 03:11) [6]

2 Marser © (20.08.03 03:04) [5]

Сергей, без обид...
советов тебе никто и не думал давать...

>Для показа подобных аспектов не обязательно публиковать весь юнит, достаточно одного обработчика.

ну а с этим... как не согласиться....

← →
uhhax (2003-08-20 03:47) [7]

Пасиба народ, помогли!

TCheckListBox и TMemo Найти похожие ветки