Цитата:
Сообщение от Tanusha
Дело в том, что решила использовать нетипизированный тип файлов потому, что строки в моем случае привышают 255 символов. а в дальнейшем к этим строкам еще и добавляеются символы. вот и ищу выход, как разбить эти строки на более маленькие, чтобы можно было далее работать с текстовым типом.
может, конечно, есть другой выход, но пока в голову пришло только делить на более маленькие. а может Вы знаете, как увеличить эти 255?
|
Ну во-первых, если я правильно помню, типы файлов "Text" и "File of Char" абсолютно тождественны, можно и так, и так. Теперь что касается ограничения в 255 символов, то оно относится не к файлам, а к строкам, и значит в данном случае пользоваться строковыми переменными нельзя. В итоге у меня получилось как-то так:
Код:
var
f,f2:file of char;
n:Byte;
b:char;
begin
assign(f, 'D:\text.txt');
reset(f);
assign(f2, 'D:\file1.txt');
rewrite(f2);
n:=0;
Repeat
Repeat
Inc(n);
Read(f,b);
Write(f2,b);
Until (n=150) or (b=#13) or Eof(f);
If b=#13 then n:=0 else
If n=150 then
begin
Repeat
Read(f,b);
Write(f2,b);
Until (b=' ');
Write(f2,#10);
n:=0;
end;
Until Eof(f);
close(f);
close(f2);
end.