[delpi12]

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

[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;

[M.A.D.M.A.N.]

Сообщение от 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]

Сообщение от 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]

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

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

Код:

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

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

[Alegun]

Даже с картинкой понимание ситуации легче не стало Имя вижу, а где "фамиля" лежит-то хоть?

[basmach]

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

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

Код:

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