Версия для печати темы

Нажмите сюда для просмотра этой темы в обычном формате

Форум «Всё о Паскале» _ Задачи _ Телефонный справочник

Автор: Volf 11.10.2006 0:31

Всем привет!!!
Задача состоит в следующем:
есть телефонный справочник, нужно сделать такую штучку:
чтобы в текстовом файле (spis1, ну и следовательно после сортировки в spis2) вводимая в базу информация формировалась никак у меня - каждое поле на отдельной строке, а все в одну строчку Телефон___ФИО___Улица___Дом!!!



Прикрепленные файлы
Прикрепленный файл  Lab.zip ( 2.34 килобайт ) Кол-во скачиваний: 108

Автор: volvo 11.10.2006 0:46

Формируй при записи в файл spis1.txt строку так:

const delimiter = '|'; { <--- Или любой другой символ, НЕ используемый в строках }
procedure zapis;
begin
assign (f1,'a:\spis1.txt');
append (f1);
for i:=1 to num do
with a[ i ] do begin
writeln(f1,
number, delimiter,
fio, delimiter,
ulica, delimiter,
dom);
end;

close (f1);
end;
, то же самое - в newfile... А вот чтобы прочитать из файла строку, разделенную таким delimiter-ом, воспользуйся принципом, который я описывал здесь:

http://forum.pascal.net.ru/index.php?s=&showtopic=9488&view=findpost&p=62651

Попробуй сделать сам, не получится - приходи, поможем...

Автор: Volf 12.10.2006 0:27

Спасибо!
проблема то как раз в выводе, как записать в строку ослу понятно, а делая чтение из фала по аналогии приведенного примера выдает ошибки, и нихрена не выводит, хотя может я туплю...=(

Автор: volvo 12.10.2006 0:53

Цитата
как записать в строку ослу понятно
Чего ж не записал? Когда решение перед глазами - все легко и просто? dry.gif
Цитата
хотя может я туплю...
Это уже зависит от того, КАК именно ты сделал "по аналогии"... Тот пример был абсолютно рабочим...