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

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

[delpi12]

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

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

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

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

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

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

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

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

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

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

blaccyee/eeyccalb

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

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

[delpi12]

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

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

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

Код:

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