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

[jumper_ua]

список берется с файла csci.ini
потом при нажатии на определенную строчку надо чтобы в открытой (статической) форме вывелся текст с файла files/tutorial1.txt или tutorial23.txt, по счету.

например 1 строчка выводит tutor1.txt вторая tutor2.txt и т.д.
проблема в том, как задать путь для каждой n-го строчки.
т.е. есть еще 1 файл csci.cfg в котором первая строчка = количество ссылок, в моем случае 10, а потом n ссылок типа 'files\tutorial1.txt' и так дальше.

как с главной формы при запуске программы реализовать присваивание каждой строчки определенному файлу?

for i := 1 to k do
begin
readln(b);
listbox1.ItemIndex:=i;
чтобы при listbox1.onclick делалось form4.edit1.Text:=b;  ?

в форме где будет выводится текст:

procedure TForm4.FormCreate(Sender: TObject);
var ind:string; f:string;
begin
f:=edit1.Text;
assign(inpute, f); при таком раскладе пишет, что не совместимы text и tpersistent, но как иначе задать каждой строке определенный путь?

Заранее спасибо!
Делаю для себя, так что это не срочно

[mihali4]

ListBox состоит из строк - Items.
У каждой строки есть свойство Objects[Index], где индекс указывает, к какой именно строке "привязан" данный объект.
А итемсы, они простые, у них есть метод
Items.AddObject('MyObject', TObject(vsSmallIcon));
- тем самым вы привяжете к этому итемсу объект "иконка" (это как пример)...
Посмотрите в штатном хэлпе - он весьма полезен и на 90% заменяет пустые обращения на форумы...

[jumper_ua]

спасибо конечно

Items.AddObject('MyObject', TObject(vsSmallIcon));
но список итемов берется с 1го файла, а с 2ого (конечно можно и с первого, но я еще не понял как) берутся пути к файлам.
а ошибка возникает с несовместимостью string и tpersistent, но ведь каким еще образом впихнуть импортируемые ПУТИ в assignfile(input, f); где f = string (так как я f:=с файла), а пишет не совместимость...

Items.AddObject('MyObject', TObject(vsSmallIcon));

красное, это, скажем, строчка или файл??
зеленое = edit1.text скажем?
просто если так то я вроде понял как решить маленькую проблемку)
поподробней немного))

[jumper_ua]

привязан обьект, т.е. как мне привязать к строчке каждой определенную процедуру, скажем импортнуть с файла и присвоить n-ю.

Вроде все...

[TwiX]

В onDblClick:

listBox.loadFromFIle(listbox.items[listbox.itemindex]);

[jumper_ua]

ничего не пойму...
короче надо вообще делать цикл или нет?

procedure TForm1.ListBox1Click(Sender: TObject);
var k,i:integer; b:string;
begin
assignfile(input, 'csci.cfg');
reset(input);
readln(k);
for i := 1 to k do
begin
readln(b);
listbox1.items.IndexOf(b)
end;
closefile(input);
form4.Show;
end;

толку нету...
мне надо form4.label1.caption присвоить тексту с файла, но если я выберу 1 елемент listbox'а, то надо с 1го файла, если 2 выберу, тогда с второго...

помогите)

[psycho-coder]

Кинь на форму TMemo и по Click

Memo1.Lines.loadFromFIle(listbox.items[listbox.itemindex]);

[jumper_ua]

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

Кинь на форму TMemo и по Click

Memo1.Lines.loadFromFIle(listbox.items[listbox.itemindex]);

почти все получилось, но есть 1 НО...
название файла откуда грузить берется не то что надо, мне надо путь брать не с названия строчки, а с файла, просто надо как то привязать к каждой строчке отдельно скрытый путь... как?)








+
listbox1.itemindex это вроде integer, а не string...
не получается...

[psycho-coder]

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

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

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

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

[jumper_ua]

[listbox.itemindex] это то что видит юзер при запуске проги в списке, а мне надо чтобы названия были не путями к файлам, а просто:

видит пользователь:
чит1
чит2
чит3
чит4

а это путь, который присваивается каждому с строк и не виден пользователю:
file/text1.txt
file/text2.txt
file/text3.txt
file/text4.txt

когда делаю как ты говоришь, грузится не file/text1.txt, а чит1 и ессесно пишет что не найден путь





----------------------------

короче, осталось только присвоить каждой строчке путь файла, но чтобы название строчки было обычное, а не было путем файла..