Абзацы(Паскаль)

[ТРОЯН=)]

Привет всем подскажите пожалуйста как в файлах к строкам добавлять пробелы?Нужно выровнять по центру или по правому краю.

[Sazary]

Ну, файл - не экран консоли. И размер окна текстового редактора можно менять. Но это я так.
Объявляете файл как текстовый. Читаете строку (до знака перевода строки). Потом добавляете пробелы функцией include.

[ТРОЯН=)]

спс сейчас попробую)

[ТРОЯН=)]

А как вообще эта функция работает?Пробелы в неё писать нельзя - как я понял(ошибку типа выдаёт).Вот написал чтот незнаю как дальше

Program file14;
uses crt;
 var
 f:text;
 fn:string;
 s,m:string;
cline, k,i:integer;

begin
clrscr;
 writeln('‚ўҐ¤ЁвҐ Ё¬п д*©«*');
 readln(fn);
 fn:=fn+'.txt';
 assign(f,fn);
 reset(f);
cline:=0;
while not eof(f) do
 begin
readln(f,m);
cline:=cline+1;
end;
for i:= 1 to cline do begin
 while not eoln(f) do
readln(f,s);
{а сюда эту вставку пробелов надо}

end;
end.

[Sazary]

Я имел в виду вот что: читаете очередную строку, вставляете пробелы (в строку, то есть в строковую переменную), а потом пишете эту строку в файл.
То есть, тут тоже через временный файл.

На счет функции: сорри, перепутал. Не include, а insert:

Procedure Insert (SubS: String; var S: String; Index: Integer)

Вставляет подстроку SubS в строку S в позиции Index.

[ТРОЯН=)]

  
Program file14;
uses crt;
 var
 f,f1:text;
 fn:string;
 s,m,subs:string;
cline, k,i:integer;

begin

clrscr;
 writeln('‚ўҐ¤ЁвҐ Ё¬п д*©«*');
 readln(fn);
 fn:=fn+'.txt';
 assign(f,fn);
 reset(f);
 assign(f1,'ff');
 rewrite(f1);
cline:=0;
subs:='    ';
while not eof(f) do
 begin
read(f,m);
insert(subs,m,1);
write(f,m);{Блин если здесь убрать файл(ф) то выводит в консоли нормально с отступами а если оставить -бут ошибка } 
readln;
end;
close(f);
close(f1);
erase(f);
rename(f1,fn);
end.
end.

 end;
 end.

[Sazary]

Так ведь тут:

write(f,m);

не f нужно писать, а f1 )

[ТРОЯН=)]

Блин нифига чёт неполучается-т.е. программа только 1 строку копирует
(зацыкливается прога и стоит)я эти бегины и энды уже по разному перестовлял-неполучается.

[Sazary]

Блин нифига чёт неполучается-т.е. программа только 1 строку копирует
(зацыкливается прога и стоит)я эти бегины и энды уже по разному перестовлял-неполучается.

Замените в цикле:

read(f,m);
insert(subs,m,1);
write(f,m);

на

readln(f,m);
insert(subs,m,1);
writeln(f1,m);

[ТРОЯН=)]

УРАААААААААААААААААА!!!!СПАСИБО-Это была последняя задача))теперь постораюсь сделать выравнивание на правый край , а завтра получю 5 по программированию)))))