БД на паскале

[che91]

Есть вопрос, написал простую БД на Турбо, данные записываются в текстовые файлы => можно перезаписывать, дополнять и просматривать, зная структуру файла, но удалять и заменять не получается в виду того что не действуют ф-ии Seek и FilePos. Основной вопрос: нужно писать на основе типизированных файлов или есть способ доработать на ТХТ.. просто не хочется 900 строк писать заново.. Заранее благодарен.

[che91]

Удалять и заменять строки естественно

[Serge_Bliznykov]

да можно и на строках всё сделать... Вопрос в том насколько это будет просто и эффективно...

Как минимум - для удаления я бы рекомендовал завести в начале строки символ-признак. Если он есть - то строчку игнорировать (или при добавлении добавлять не в конец файла, а в эту строчку, помеченную символом).

просто не хочется 900 строк писать заново

если код нормально написан - то изменения коснутся десятка (двух) строк...
Там где чтение идёт. Причём, т.к. читать из текстового файла сложнее, чем из типиированного, то много строк кода просто надо будет выкинуть...


Какой из способов выбрать - решать Вам....

[che91]

Понято, спасибо большое

[che91]

Нужна помощь, кодец написан на free pascal, не компилируется, не выдает сведений об ошибке, ошибку найти не могу..( доступа к другой среде кроме free pascal сегодня и завтра не предвидится, а надо скоро, т.к. писать еще много, очень прошу помочь..
подпрограмму не запускал даже, там ошибок быть не должно вроде, но не работает(
Собственно код:

program BD;
uses crt;
type
       table1 =record
               firm: string[10];
               inn: string[4];
               adres: record
                      str: string[10];
                      built: string[4];
               end;
               boss:record
                    fam: string[10];
                    ins: string[4];
               end;
               amo_enp: integer;
               navar: real;
               enp_zp: real;
       end;
       baza1 = file of table1;
var firm: table1;
    t1: baza1;
procedure Rewrite(var b1:baza1);
  begin
  rewrite(b1);
  repeat
    with firm do
      begin
      write('Firm: ');
      readln(firm);
      if (length(firm)=0)
        then break;
      write('Number of firm: ');
      readln(inn);
      write('Adres: street: ');
      readln(adres.str);
      write('Adres: building: ');
      readln(adres.built);
      write('Director of firm: Surname: ');
      readln(boss.fam);
      write('Director of firm: initials: ');
      readln(boss.ins);
      write('Amount of workers: ');
      readln(amo_enp);
      write('Profit: ');
      readln(navar);
      enp_zp:=(navar)/(amo_enp + 2.00);
      write (b1, firm);
    end;
  until (false);
  close(b1);
  clrscr;
end;

begin
  clrscr;
  assign(t1, 'baza.dat');
  rewrite(t1);
end.

[che91]

Простите, туплю, исправил, всё работает отлично