строки Опции

[Caries]

Стоит следующая задача: дан внешний текстовый файл, нужно взять из него текст и записать в новый файл, причем разбив его типа как в ворде, 25 строк на странице и 80 символов строке.
1.Проблема - как реализовать , чтобы считывалось из текстовго файла по 80 символов и записывалось в массив и далее следующие 80 символов.
2. Нужно ставить символ | чтобы в итоге получилась рамка. Как реализовать чтобы в конце каждой строки скажем после 80 символа ставился такой символ.
спасибо.

[Caries]

я немного подругому писал

Код

while(not eof(t))and (i<=n) do
begin
read(t,ch); if (ch=#13) or (ch=#10) or (length(m[i]) >80) then
begin
if length( m[i])<80 then begin
d:=81-length(m[i]);(дополняю строку пустыми символами до 80, чтоб сохранить рамку)
for f:=1 to d do
m[i]:=m[i] + ' ';
end;m[i]:=m[i] + ch;
inc(i);m[i]:='' end else m[i]:=m[i] + ch;
end;

выводит вконце кажой строки значок ٱ и вставлет лишнюю рустую строку...
Что у меня не так.

Сообщение отредактировано: Caries - 17.04.2005 19:10