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

Автор: Volf 11.10.2006 0:31

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



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

Автор: 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

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