VPF::Сохранение массивов в файлы - Форум программистов

bems

Дата 2.4.2006, 17:19 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 3400
Регистрация: 5.1.2006

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

Цитата(6Apokali6sis6 @ 2.4.2006, 14:06

)

a:array[1..100] of char;

Цитата(6Apokali6sis6 @ 2.4.2006, 14:06

)

for i:= 0 to 100 do
if a[i]=vibor then

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

Обижено школьников: 8

Drovosek

Дата 4.4.2006, 12:20 (ссылка)

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

Загрузка ...

Новичок

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

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

База данных, конечно, круто, а начать и с этого хорошо!!!

А почему не записывать все данные в один файл:

Код
var f: textfile; strs: tstringlist; s: string; begin // trim - убирает пробелы в строке по бокам assignfile(f,'data\res.txt'); readln(f,k); //для прикола можно ставить цифру - кол-во записей //add strs.add(inttostr(k+1)); while not EOF(f) do begin readln(f,s); strs.add(s); end; // весь файл перенесли в strs rewrite(f); strs.add(trim(edit1.text)); //имя strs.add(trim(edit2.text)); //фамилия strs.add(trim(edit3.text)); //телефон //теперь заполняем файл for i:=0 to strs.count-1 do writeln(f,strs.strings[i]); closefile(f); end;

структура файла:

2
Иван
Иванов
123456
Петр
Петров
123457

А поиск сделать вот так:

Код
var f: textfile; mas,result: array[1..3] of string; begin //допустим, поиск по фамилии s:=trim(edit1.text); assignfile(f,'data\res.txt'); readln(f,k); для вывода результатов создай listbox while not eof(f) do for i:=1 to 3 do readln(f,mas[i]); if mas[1]=s then for i:=1 to 3 do begin result[i]:=mas[i]; listbox1.items.add(result[i]); end; //взяты данные по фамилии, имени, телефону //в listbox будут выведены результаты по поиску //result[1] - исходная фамилия //result[2] - имя согласно фамилии //result[3] - телефон closefile(f); end;

Скажи, как именно ты видишь свой поиск?

Каким он должен быть?

Это сообщение отредактировал(а) Drovosek - 4.4.2006, 12:32

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