VPF::Программа и *txt файли - Форум программистов

Дата 19.3.2005, 03:42 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

Здрасти, допустим у меня была бы база номеров icq в виде :
12345;[email protected]
55555;[email protected]

.... и так далее . Как мне связать этот *тхт файлик с программой ?
А надо так, чтобы по запросу номера выводился е-маил, или наоборот .

FRAGNATIC

Дата 19.3.2005, 03:49 (ссылка)

(нет голосов)

Загрузка ...

..::Свирепый Кодер::..

Профиль
Группа: Участник
Сообщений: 901
Регистрация: 17.10.2004
Где: ICQ

Репутация: 6
Всего: 11

бд сделать)
или простой тхт редактор с функцие поиска что бы онвыводил в результате всю строку !

Alex103

Дата 19.3.2005, 05:28 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 416
Регистрация: 5.1.2005
Где: Украина, г. Харьк ов

Репутация: нет
Всего: нет

можно загрузить в Memo таким способом

Код


Memo1.Lines.LoadFromFile('C:\1.txt');

Или примерно таким же способом загрузить в базу данных. А самое лучшее посмотри в DRKB или Delphi World 6.0

Это сообщение отредактировал(а) Alex - 19.3.2005, 09:43

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

Мой адресс не дом и не улица, мой адресс WWW

Vit

Дата 19.3.2005, 09:02 (ссылка)

(нет голосов)

Загрузка ...

Vitaly Nevzorov

Профиль
Группа: Экс. модератор
Сообщений: 10964
Регистрация: 25.3.2002
Где: Chicago

Репутация: 48
Всего: 207

Мой совет - использовать базы данных

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

With the best wishes, Vit
I have done so much with so little for so long that I am now qualified to do anything with nothing
Самый большой Delphi FAQ на русском языке здесь: www.drkb.ru

Pakshin A. S.

Дата 19.3.2005, 12:41 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 5056
Регистрация: 16.2.2003

Репутация: 21
Всего: 61

Vit старый аватар никак вернул... smile

Ну зачем прям сразу БД...
Для начала: Каком максимум кол-во записей?

Просто экономичней сделать обыкновенную процедуру разделения:

Код


procedure DecodeInfo(Str: string; var ICQ, mail: integer);
begin
 ICQ:=Copy(str,1, Pos(Str, ';')-1);
 mail:=Copy(str, Pos(Str, ';')+1), Length(str) - Pos(Str, ';'));
end;

С чьей помощью можно легко организовать поиск... smile

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »