хранения второго значения в listbox

[alman12]

хранения второго значения в listbox и при клике отображать в label1

[XE5]

alman12 С кем разговариваем? Сами с собой?

[alman12]

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

alman12 С кем разговариваем? Сами с собой?

можещ помочь ?

[alman12]

что за форум никто не помогает

[Stilet]

В элементе листбокса можно хранить объект любого типа. За это отвечает свойство ListBox.items.Objects[тут номер строки в листбоксе]
опиши класс. Создай обьект который будет содержать свойства и пиши в Листбокс.
Пример:

unit Unit1;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls;

type

  { TForm1 }
  TElder=class
    s:string;
  end;

  TForm1 = class(TForm)
    ListBox1: TListBox;
    procedure FormCreate(Sender: TObject);
    procedure ListBox1Click(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.lfm}

{ TForm1 }

procedure TForm1.FormCreate(Sender: TObject);
var i:integer;
begin
 for i:=1 to 10 do begin
   ListBox1.AddItem('строка',TElder.Create());
   TElder(ListBox1.Items.Objects[ListBox1.Count-1]).s:='Другая строка';
 end;
end;

procedure TForm1.ListBox1Click(Sender: TObject);
begin
  Caption:=TElder(TListBox(sender).Items.Objects[TListBox(sender).ItemIndex]).s;
end;

end.

Идея ясна?

[alman12]

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

В элементе листбокса можно хранить объект любого типа. За это отвечает свойство ListBox.items.Objects[тут номер строки в листбоксе]
опиши класс. Создай обьект который будет содержать свойства и пиши в Листбокс.
Пример:

unit Unit1;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls;

type

  { TForm1 }
  TElder=class
    s:string;
  end;

  TForm1 = class(TForm)
    ListBox1: TListBox;
    procedure FormCreate(Sender: TObject);
    procedure ListBox1Click(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.lfm}

{ TForm1 }

procedure TForm1.FormCreate(Sender: TObject);
var i:integer;
begin
 for i:=1 to 10 do begin
   ListBox1.AddItem('строка',TElder.Create());
   TElder(ListBox1.Items.Objects[ListBox1.Count-1]).s:='Другая строка';
 end;
end;

procedure TForm1.ListBox1Click(Sender: TObject);
begin
  Caption:=TElder(TListBox(sender).Items.Objects[TListBox(sender).ItemIndex]).s;
end;

end.

Идея ясна?

в TElder=class выдает ошибку

[Человек_Борща]

что за форум никто не помогает

Вас никто не понимает. Вы, очень надеюсь, не из детского сада пишите. Хотя изъясняетесь точно как в дет. саду дети. Ни тебе внятных мыслей, ни тебе конкретики в вопросах, да даже вопросов и тех нет.

хранения второго значения в listbox и при клике отображать в label1

Вот как эту ахинею воспринимать?

Я понял, что надо что-то, где-то отображать. Вторые значения в ListBox это нечто...

в TElder=class выдает ошибку

Телепаты в отпуске на всю жизнь. Текст ошибки в студию.

[Stilet]

в TElder=class выдает ошибку

Мой Лазарус с тобой не согласен. Нет там ошибок, если ему верить.

[XE5]

можещ помочь ?

Врачи 100% могут. Я на врятли.