добавить в листбох текст и содержание при клике отображалось в мемо1

delpi12 · #1 24.03.2014, 22:07

добавит в листбох текст имя и содержание при клике отображалос в мемо1

Alegun · #2 25.03.2014, 09:53

Видимо здесь или так

Код:

procedure TForm1.Button1Click(Sender: TObject);
begin
Memo1.Lines.Assign(ListBox1.Items);
end;

либо так

Код:

procedure TForm1.ListBox1Click(Sender: TObject);
begin
Memo1.Text:=(Sender as TListBox).Items[(Sender as TListBox).ItemIndex];
end;

M.A.D.M.A.N. · #3 25.03.2014, 11:55

Цитата:

Сообщение от Alegun

Видимо здесь или так

Код:

procedure TForm1.Button1Click(Sender: TObject);
begin
Memo1.Lines.Assign(ListBox1.Items);
end;

либо так

Код:

procedure TForm1.ListBox1Click(Sender: TObject);
begin
Memo1.Text:=(Sender as TListBox).Items[(Sender as TListBox).ItemIndex];
end;

Код:

procedure TForm1.ListBox1Click(Sender: TObject);
var
lb: tlistbox absolute sender;
begin
Memo1.Text:=lb.Items[lb.ItemIndex];
end;

Alegun · #4 25.03.2014, 14:45

Цитата:

Сообщение от M.A.D.M.A.N.

Код:

procedure TForm1.ListBox1Click(Sender: TObject);
var
lb: tlistbox absolute sender;
begin
Memo1.Text:=lb.Items[lb.ItemIndex];
end;

Полностью согласен, так намного проще, но всё же лучше явно указывать класс сендера, а то мало ли что

Код:

...
with Sender as TListBox do
 Memo1.Text:= Items[ItemIndex];
...

delpi12 · #5 25.03.2014, 19:48

Цитата:

Сообщение от Alegun

Полностью согласен, так намного проще, но всё же лучше явно указывать класс сендера, а то мало ли что

Код:

...
with Sender as TListBox do
 Memo1.Text:= Items[ItemIndex];
...

я хочу что было вот на как на картинке

Alegun · #6 25.03.2014, 20:01

Даже с картинкой понимание ситуации легче не стало

Имя вижу, а где "фамиля" лежит-то хоть?

delpi12 · #7 25.03.2014, 20:10

Цитата:

Сообщение от Alegun

Даже с картинкой понимание ситуации легче не стало

Имя вижу, а где "фамиля" лежит-то хоть?

в листбох отображалось толка имя

Цитата:

Сообщение от Alegun

Даже с картинкой понимание ситуации легче не стало

Имя вижу, а где "фамиля" лежит-то хоть?

фамилия в листбох не показовался

Цитата:

Сообщение от Alegun

Даже с картинкой понимание ситуации легче не стало

Имя вижу, а где "фамиля" лежит-то хоть?

вот на ниже картинке

M.A.D.M.A.N. · #8 25.03.2014, 20:49

blaccyee/eeyccalb

basmach · #9 26.03.2014, 14:08

Есть много способов. Самой простой по ходу такой:

Код:

var
  Form1: TForm1;
  Persons:TStringList;
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  if not Assigned(Persons) then
    Persons := TStringList.Create;
  Persons.Add(Edit1.Text + ' ' + Edit2.Text);
  Listbox1.Items.Add(Edit1.Text);
end;
 
procedure TForm1.Listbox1Click(Sender: TObject);
begin
  Memo1.Text := Persons[Listbox1.ItemIndex];
end;

Этот код решает только задачу, который задан на картинке. Если автор хочет использовать данные в других целях, то, может и решение будет другой.

delpi12 · #10 26.03.2014, 20:09

Цитата:

Сообщение от basmach

Есть много способов. Самой простой по ходу такой:

Код:

var
  Form1: TForm1;
  Persons:TStringList;
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  if not Assigned(Persons) then
    Persons := TStringList.Create;
  Persons.Add(Edit1.Text + ' ' + Edit2.Text);
  Listbox1.Items.Add(Edit1.Text);
end;
 
procedure TForm1.Listbox1Click(Sender: TObject);
begin
  Memo1.Text := Persons[Listbox1.ItemIndex];
end;

Этот код решает только задачу, который задан на картинке. Если автор хочет использовать данные в других целях, то, может и решение будет другой.

спасибо что помог

Цитата:

Сообщение от basmach

Есть много способов. Самой простой по ходу такой:

Код:

var
  Form1: TForm1;
  Persons:TStringList;
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  if not Assigned(Persons) then
    Persons := TStringList.Create;
  Persons.Add(Edit1.Text + ' ' + Edit2.Text);
  Listbox1.Items.Add(Edit1.Text);
end;
 
procedure TForm1.Listbox1Click(Sender: TObject);
begin
  Memo1.Text := Persons[Listbox1.ItemIndex];
end;

Этот код решает только задачу, который задан на картинке. Если автор хочет использовать данные в других целях, то, может и решение будет другой.

а как здес удалить выделенную

basmach · #11 27.03.2014, 07:27

Цитата:

Сообщение от delpi12

а как здес удалить выделенную

Код:

if ListBox1.ItemIndex>-1 then begin
  Persons.Delete(ListBox1.ItemIndex);
  ListBox1.Items.Delete(ListBox1.ItemIndex);
end;

Опции темы	Поиск в этой теме
Версия для печати Отправить на Email	Поиск в этой теме: Расширенный поиск
Опции просмотра
Линейный вид Комбинированный вид Древовидный вид

	Сайт	Форум	FAQ	Соглашения	Прочее
	Новости Исходники Компоненты Статьи Добавить исходник Поиск	Правила Поиск Сообщения за сегодня Пользователи Кто на форуме?	Delphi FAQ - 5000 статей DRKB - 4500 статей (ZIP-архив) Справочник функций и процедур Delphi Delphi Programming Guide Indy in Depth. Глубины Indy	Конфиденциальность Соглашение пользователя Правила обработки cookie	О сайте Donate Контакты

Этот пользователь сказал Спасибо basmach за это полезное сообщение:
delpi12 (26.03.2014)