проблема с listbox...

[psycho-coder]

Сообщение от psycho-coder

закинь названия файлов в массив и

var
  Arr: Array of String;
...
begin
  // Инициализация массива
end;

begin
  Memo1.Lines.loadFromFIle(Arr[listbox.itemindex]);
end;

Или используй статический массив

Например массив состоит из 4 элементов

Arr[0] := 'file/text1.txt';
Arr[1] := 'file/text2.txt';
Arr[2] := 'file/text3.txt';
Arr[3] := 'file/text4.txt';

То при

Memo1.Lines.loadFromFIle(Arr[listbox.itemindex]); // listBox.itemindex = 1

будет загружаться файл "file/text2.txt"
Понятно?

[jumper_ua]

короче
решил проблему так:

создал еще 1 listbox
в 1 листбоксе = названия
в 2м = ссылки

loadfromfile(listbox2.items[listbox1.itemindex]);

все терь работает)

[psycho-coder]

С массивом тоже самое...

[jumper_ua]

Сообщение от psycho-coder

С массивом тоже самое...

все я понял))

но уже сделал пусть останется =)

еще вопрос, как приклеить scrollbar к tmemo?)

[psycho-coder]

Один вопрос одна тема! (на будущее)

Memo1.ScrolBars := sbBoth;

Кажется так
Смотрите в Object Inspector

[mihali4]

Если вам все же интересно решение через Objects...
Приведу коротенький код (для вашего спокойного понимания использовал три листбокса - так нагляднее):

type
  PMystr = ^TMystr;
  TMystr = string;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var i: integer;
    p: PMystr;
begin
ListBox1.Items.LoadFromFile('file1.txt');
ListBox2.Items.LoadFromFile('file2.txt');
for i:=0 to ListBox1.Items.Count-1 do
begin
New(p);
p^:=ListBox2.Items[i];
ListBox3.Items.AddObject(ListBox1.Items[i],TObject(p));
//тут мы добавляем строке объект - путь к файлу
end;
end;

procedure TForm1.ListBox3Click(Sender: TObject);
begin
Label1.Caption:=PMystr(ListBox3.Items.Objects[ListBox3.ItemIndex])^;
//тут мы смотрим, какой файл соответствует нашей строке
end;

Собственно, рабочий у нас - ListBox3, а первые два так - для контроля

Тестовые файлики:

file1.txt
Строка 1
Строка 2
Строка 3
Строка 4
Строка 5

file2.txt
C:\file1.exe
D:\file2.exe
E:\file3.exe
F:\file4.exe
G:\file5.exe

Успехов !