рАБОТА С ФАЙЛАМИ

[СергейURC]

ПОМОГИТЕ НАПИСАТЬ ПРОГРАММУ НА bORLAND DELPHI
НУЖНО НАПИСАТЬ ПРОГРАММУ, КОТОРАЯ ОТФОРМАТИРУЕТ ТЕКТОВЫЙ ФАЙЛ. аБЗАЦНЫЙ ОТСТУП N ПРОБЕЛОВ. МАКСИМАЛЬНАЯ ДЛИНА СТРОКИ N СИМВОЛОВ.

[mosq]

все легко делается, только напиши подробней:
1) абзацный отступ в Н пробелов - это если начата новая строка, то перед первым словом ставить Н пробелов? или между предыдущей строкой и новой ставить Н переносов?
2) максимальная длина строки - в ней делать перенос или обрезать вообще?

[SuperVisor]

Наработки, мысли, предложения. Будет это - будет помощь, нет - во фриланс.

[Utkin]

Если в Делфи, можно использовать компонент Memo, намного проще - организация строк, загрузка и пр.

[СергейURC]

Сообщение от mosq

все легко делается, только напиши подробней:
1) абзацный отступ в Н пробелов - это если начата новая строка, то перед первым словом ставить Н пробелов? или между предыдущей строкой и новой ставить Н переносов?
2) максимальная длина строки - в ней делать перенос или обрезать вообще?

Абзацный отступ - это если начата новая строка, то перед первым символом ставить Н пробелов

[SERG1980]

Сообщение от СергейURC

ПОМОГИТЕ НАПИСАТЬ ПРОГРАММУ НА bORLAND DELPHI
НУЖНО НАПИСАТЬ ПРОГРАММУ, КОТОРАЯ ОТФОРМАТИРУЕТ ТЕКТОВЫЙ ФАЙЛ. аБЗАЦНЫЙ ОТСТУП N ПРОБЕЛОВ. МАКСИМАЛЬНАЯ ДЛИНА СТРОКИ N СИМВОЛОВ.

1. Если строка превышает заданную длину, что делать (перенос, удалять излишки)?
2. Когда делать Абзацный отступ?

[СергейURC]

Сообщение от SERG1980

1. Если строка превышает заданную длину, что делать (перенос, удалять излишки)?
2. Когда делать Абзацный отступ?

Если строка превышает заданный отступ нужно делать перенос

[quit]

СергейURC, А что Вы уже сделали?

[SERG1980]

Ох уж эти студенты. Попробуйте так

rocedure TForm1.Button1Click(Sender: TObject);
 var SL,SL1:TStringList;
     i,j:integer;
     d,nks,n:integer;
     ks:string;
begin
 d:=50;//длина строки
 nks:=5; //число пробелов
 ks:='';
 for i:=1 to nks do ks:=ks+' ';
 if form1.OpenDialog1.Execute() then
 begin
  SL:=TStringList.Create;
  SL1:=TStringList.Create;
  SL.LoadFromFile(form1.OpenDialog1.FileName);
  for i:=0 to SL.Count-1 do
  begin
   n:= Length(SL[i]) div d;
   if (n>0)and(Length(SL[i]) mod d > 0) then n:=n+1;
   for j:=0 to n-1 do
   begin
    if j=0 then SL1.Add(ks+Copy(SL[i],1,d-nks))
    else SL1.Add(Copy(SL[i],j*d+1-nks,d));
   end;
  end;
  SL1.SaveToFile(form1.OpenDialog1.FileName+'_Изм.txt');
  SL1.Free;
  Sl.Free;
 end;
end;