freepascal.ru

Необходимо "распарсить" текст. Прочитал, что фрипаскаль поддерживает строки больше 255 символов. Решил, что быстрее всего будет сделать это на старом добром паскале. Быстренько написал программку, но на 256 символе программа завершает свою работу. Что делаю не так?

Код: Выделить всё

rogram parser;
var f:text;
        a,b:string;
        s,out:string;
        n,kol: longint;
begin
Assign(f, '/home/akamoroz/Dropbox/1');
Reset(f);
Read(f,s);
Write('go!');
n:=0;
kol:=length(s);
while n < kol do begin
    //Код обхода строчки
end;
Write(out);
Close(f);
Assign(f, '/home/akamoroz/Dropbox/2');
Rewrite(f);
Write(f, out);
Close(f);
end.

используйте либо директиву

Код: Выделить всё

{$H+}

либо меняйте тип String на AnsiString