Вывод части текста из файла

[CoDeR]

Есть текстовый файл вида:

1
Текст1

2
Текст2

3
Текст3

...

100
Текст100

Есть ComboBox. В нем значения до 100.
Мне нужно чтобы при выборе в ComboBox одного из значений в memo записывалась нужная строка текста. Например, если выбрать 2, то записывается Текст2.
Нужно именно по строкам, а не поиском цифры. В текстовом файле выводимый текст на таких строках: 2, 5, 8, 11... То есть последняя +3.

Загружаю файл так: AssignFile(FileMap,'text.txt');

А как дальше не знаю! Думал что можно чтоб при выборе каждого из пунктов ComboBoxа выводилась нужная строка, хотя и это не знаю как сделать! Лучше наверно всё таки через цикл сделать. И как это сделать тоже не знаю!

[AVer]

Номер строчки вычисляется по формуле
Число_из_комбобокса*3-1

[Stilet]

Coder скажи а файл этот формируется тобой? Если да то рекомендую его формировать через IniFiles. И потом соответственно доставать каждый элемент через него же. Имхо это будет лучше, да и не так уж сложно.

[ЧИЖ]

а те что обязательно из файла - буферизуй его

var ss:array of string;
f:textfile;
 
 
assignfile(f,'filename');
reset(f);
while not eof(f) do begin
setlength(ss,length(ss)+1);
readln(f,ss[length(ss)-1]);
end;

потом так как индексация итемов combobox начинается с 0 и индексация массива тоже то при выборе елемента просто обращаешься к элементу массива ss[combobox1.itemindex]

[mutabor]

А еще лучше сделай невидимый ListBox (или TStringList, будет даже правильнее). У него есть методы сохранения/загрузки из файла. Нумерация совпадает с Combobox. Выбрал пункт в Combobox, загружай этот же номер из ListBox.
Зачем париться с массивом, текстовым файлом, если в Дельфи все уже сделано до нас

[CoDeR]

Попробовал предложанными способами.
С IniFiles:

inifile:=tinifile.create('texts.ini');
Memo1.Text:=inifile.readstring('2','Text','hi!');

inifile.free;

Выводиться "hi!"! Это не то что надо! Что нужно написать вместо "Text" ?
Хочется разобраться и с IniFiles, даже если не это буду использовать!

Буферизую, получается, но выводиться именно та строка которая соответствует выбранному значению! Нужно как-то привязать

к этому "Число_из_комбобокса*3-1". Но у меня не получается!

С ListBoxом тоже самое. Будет выдаваться строка соответствующая выбранному значению. То же надо как то привязать

"Число_из_комбобокса*3-1".
И как тут сделать чтобы при выборе в ComboBoxе выводилось вообще что-то из ListBoxа?

[Alex21]

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

С ListBoxом тоже самое. Будет выдаваться строка соответствующая выбранному значению. То же надо как то привязать

"Число_из_комбобокса*3-1".
И как тут сделать чтобы при выборе в ComboBoxе выводилось вообще что-то из ListBoxа?

-=1=-

label1.Caption:=ListBox1.Items[strtoint(Combobox1.Text)*3-2];

При условии, что в ComboBox список начинается с 1, и каждый следущий элемент списка больше предыдущего на 1.
-=2=-

label1.Caption:=ListBox1.Items[Combobox1.ItemIndex*3+1];

Здесь текст в ComboBoxe привязка идет к номеру выбранной строки.

[Stilet]

Я тебе не только читать с помощью IniFile предложил, а и формировать файл. Я не зря спросил Как формируется твой файл? Твоей прогой или чужой? Ибо чтоб прочитать из ини-файла, нужно в него соответственно! записать.

[Alex21]

Пример работы с INI

Uses IniFiles;
var 
 IniFile:TIniFile; 
begin 
  IniFile := TIniFile.Create('d:\test.INI'); { Создали экземпляр объекта } 
  IniFile.WriteBool('Options', 'Sound', True); { Секция Options: Sound:=true } 
  IniFile.WriteInteger('Options', 'Level', 3); { Секция Options: Level:=3 } 
  IniFile.WriteString('Options' , 'Secret password', Pass);  
   { Секция Options: в Secret password записать значение переменной Pass } 
  IniFile.ReadSection('Options ', memo1.lines); { Читаем имена переменных} 
  IniFile.ReadSectionValues('Options ', memo2.lines); { Читаем имена и значения } 
  IniFile.Free; { Закрыли файл, уничтожили объект и освободили память } 
end;

[mutabor]

Чтобы ты лучше понимал о чем идет речь - Combobox это Edit с прикрученным к нему ListBox'ом, со всеми вытекающими отсюда последствиями. Например возможности списка у них одинаковые.

з.ы. И как я писал выше вместо невидимого ListBoxa (ListBox = StringList + визуализация) лучше юзать StringList, он для этого и предназначен.
Преимущества перед ini, txt файлами налицо, чтобы загрузить строки из файла достаточно одной (или двух если с проверкой на сущ. файла) строки: StringList.LoadFromFile().