Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Считывание строки из файла [D7, WinXP]

StormZCOoler © (2006-12-15 08:14:00)
Ситуация есть файл edit1.txt в нём записаны слова через символ "&" например:
привет&hello
пока&goodbye
сегодня&today
.....и т.д.
как сделать чтобы при запуске программы т.е. при активации формы, слова из файла edit1.txt выводились в ListBox1 только до символа "&" и так каждую строку.
Второе что надо:
в этой де форме есть "edit1" и "button1" как сделать так чтобы, при вводе слова например "привет" делался поиск по файлу и выводилось значение которое стоит за символом "&". Выводилось например в "label1".

Германн (2006-12-16 01:48:00) [1]
Ещё вариант.
Использовать в ListBox метод AddObject.

Arm79 (2006-12-15 22:51:00) [2]
Дополнение к ответу.

При выборе в ListBox строки соответствующее ей значение: StringList.Values[ListBox.НУЖНЫЙ ИТЕМ]

Arm79 (2006-12-15 22:50:00) [3]
Позволю и себе привести вариант :))
Схематично так сказать, только чтобы показать идею.

StringList.LoadFromFile('edit1.txt');

StringList.Text := ReplaceStr(StringList.Text, '&', '=', [ReplaceAll]);

For i := 0 to TStringList.Count-1
do begin
ListBox1.Items.Add(TStringList.Names[i]);
end;

OnixLab (2006-12-15 08:29:00) [4]
var TS : TStringList;

while not F.Eof do begin
Read(F, s);
ListBox1.Items.Add( Copy(s, 1, Pos('&', s)-1) );
TS.Add( Copy(s, Pos('&', s)+1, Length(s) - Pos('&', s) );
end;

Думаю так будет быстрее работать. Ищешь в 1-м и выдаешь из второго.

PZ (2006-12-15 08:22:00) [5]
Можно совместно использовать:
TListString
функцию Pos
процедуру Copy

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »