Определить самую длинную и самую короткую строку файла

[Jadson]

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

[Stilet]

а наработки?

[Leshii]

А язык какой?

[Jadson]

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

А язык какой?

на делфи.......

[rmv240899]

Алгоритм примерно такой:
Сначала считываем строки из файла и сохраняем их длины в контейнер. Затем находим максимальный и минмальный элемент. Как это будет на дельфи, не знаю.

[Jadson]

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[i])='' then continue;
    if length(s[i])>length(s[max]) then max:=i;
    if length(s[i])<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 < 1 then begin ShowMessage('Файл пуст!'); s.Free;   Exit end;
  max:=0; min:=0; 
  for i:=0 to s.count-1 do begin 
     if trim(s[i])='' then continue; 
     if length(s[i])>length(s[max]) then max:=i; 
     if length(s[i])<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.