ListBox, Delphi

[grom333]

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

хм...а что ж ты пишешь ???

procedure TForm1.ListBox1Click(Sender: TObject);
var
info:string;
begin
  Label1.Caption:= Info[ListBox1.ItemIndex];
end;

у тебя Info мало того, что записано в var TForm1.ListBox1Clickа, так еще и просто string!!! это ведь строковый массив!!!

глобально объяви
var Info : array[1..3] of string;

ага я уже разобрался, спасибо. Вот полный код:

unit Unit1;

interface

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

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

var
  Form1: TForm1;

  Info: array[0..50] of string;
implementation

{$R *.dfm}

procedure TForm1.ListBox1Click(Sender: TObject);

begin
  Label1.Caption:= Info[ListBox1.ItemIndex];
end;

procedure TForm1.FormCreate(Sender: TObject);

begin
Info[0]:= 'èíôà ïåðâàÿ';
Info[1]:= 'èíôà âòîðàÿ';
Info[2]:= 'èíôà òðåòüÿ';
end;

end.

[mihali4]

Это вы что-то новое попытались придумать
Что это за Info[ListBox1.ItemIndex] ?
Посмотрите пример в хэлпе ListBox->Properties->Items->TStrings->Metods->AddObject

[Stilet]

Только ошибку идентификации выдает

Во-первых: Ошибки нужно приводить. или ты считаешь что "скрипач не нужен"?
во-вторых:Проверку нужно делать. ListBox1.ItemIndex может вернуть число выходящее за рамки твоего массива:

  
 if (ListBox1.ItemIndex+1>0)and(ListBox1.ItemIndex<length(info) then
  Label1.Caption:= Info[ListBox1.ItemIndex];

amico

Такая запись коректна, ибо info обьявлено как массив символов, так что Info[ListBox1.ItemIndex] вернет именно символ в info другое дело что совершенно не понятно что автору нужно, может info некий массив строк, а может строка, но тогда автору нужно ее как-то инициализировать.

Это вы что-то новое попытались придумать

Че это новое? Тут ниче нового нет.