Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2007.01.07;
Скачать: CL | DM;

Вниз

Считывание строки из файла   Найти похожие ветки 

 
StormZCOoler   (2006-12-15 08:14) [0]

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


 
PZ   (2006-12-15 08:22) [1]

Можно совместно использовать:
TListString
функцию Pos
процедуру Copy


 
OnixLab   (2006-12-15 08:29) [2]

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-м и выдаешь из второго.


 
Arm79 ©   (2006-12-15 22:50) [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;


 
Arm79 ©   (2006-12-15 22:51) [4]

Дополнение к ответу.

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


 
Германн ©   (2006-12-16 01:48) [5]

Ещё вариант.
Использовать в ListBox метод AddObject.



Страницы: 1 вся ветка

Текущий архив: 2007.01.07;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.043 c
4-1156689426
FUH
2006-08-27 18:37
2007.01.07
Извлечь таблицу из MSI-инсталлятора


2-1166531303
dimon777
2006-12-19 15:28
2007.01.07
Как отследить перемещение к предыдущей записи набора данных?


2-1165259127
Sewix
2006-12-04 22:05
2007.01.07
Отображение в dbgrid таблиц из разных БД


15-1166435526
Сатир
2006-12-18 12:52
2007.01.07
Problem “J” - Concurrency Simulator


2-1166099460
kukuikar
2006-12-14 15:31
2007.01.07
Результаты работы функций (работа с файлами и каталогами)