Последние записи

made in programmersforum 4

Интенсив по Python: Работа с API и фреймворками 24-26 ИЮНЯ 2022. Знаете Python, но хотите расширить свои навыки?
Slurm подготовили для вас особенный продукт! Оставить заявку по ссылке - https://slurm.club/3MeqNEk

Online-курс Java с оплатой после трудоустройства. Каждый выпускник получает предложение о работе
И зарплату на 30% выше ожидаемой, подробнее на сайте академии, ссылка - ttps://clck.ru/fCrQw

18th
Июл

Дописать строки в файл

Posted by micher under Delphi

Нужно сделать программу, чтобы считывало с файла строки ,определяло самую длинную и самую короткую строку, и потом эти строки дописывало в этот файл.

var

  Form1: TForm1;

  var s:TStringList; i,min,max:integer;

  a:Integer;

  f:TextFile;

  Tmp:string;

implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);

begin

 s:=TStringList.create;

s.LoadFromFile('C:\1.txt');

max:=0; min:=0;

for i:=0 to s.count-1 do begin

    if trim(s)='' then continue;

    if length(s)>length(s[max]) then max:=i;

    if length(s)<length(s[min]) then min:=i;

end;

Memo1.Lines.Add('max =  '+s[max]);

Memo1.Lines.Add('max =  '+s[min]);

s.free;

begin

Memo1.Lines.SaveToFile('C:\1.txt');

end;

 end;

end.

а как дописать, а не перезаписать?

Serge_Bliznykov

можно поступить так

procedure TForm1.Button1Click(Sender: TObject);

begin

  s:=TStringList.create;

  s.LoadFromFile('C:\1.txt');

  if s,Count length(s[max]) then max:=i;

     if length(s)<length(s[min]) then min:=i;

  end;

  s.Append(s[max]);

  s.Append(s[min]);

  s.SaveToFile('c:\1.txt');

  s.Free;

end;

либо так

var ft : TextFile;

....

  тут ваш код с TStringList по определению самой длиной и короткой строк

  AssignFile(ft, 'C:\1.txt');

  Append(ft);

  WriteLn(ft, s[max]);

  WriteLn(ft, s[min]);

  CloseFile(ft);

  s.Free;

end.

тема на форуме