Файлы Delphi

[Likan15]

Описать и проверить функцию которая находит максимальную длину из строк текстового файла


Var
t:textfile;
s:string;
max:integer;

procedure TForm1.FormCreate(Sender: TObject);
begin
AssignFile(t,'date.dat');
end;

procedure TForm1.N1Click(Sender: TObject);
var
i:integer;
begin
rewrite(t);
for i:=0 to Memo1.Lines.Count-1 do
begin
s:=Memo1.Lines[i];
writeln(t,s);
end;
end;

procedure TForm1.N2Click(Sender: TObject);

begin
reset(t);
Memo2.Lines.Clear;
while not eof(t) do
begin
readln(t,s);
Memo2.Lines.Add(s);
end;
end;

procedure TForm1.N4Click(Sender: TObject);
begin
CloseFile(t);
close;
end;

procedure TForm1.N3Click(Sender: TObject);

function poshitat
begin



end;
Var
max:integer;
begin

end;
end.

[Serge_Bliznykov]

вообще-то, всё, что Вам надо, это один просто цикл:

var f:textfile;
     MaxLength, iMaxNumber, i : integer;
     MaxLengthStr, s : string;
begin
   AssignFile(f,'date.dat');
   Reset(f);
   MaxLengthStr := '';
   MaxLength := -1;
   i := 0;
   while not eof(f) do begin
     inc(i);
     Readln(f,s);
     if length(s)>MaxLength then begin
         MaxLength := length(s);
         MaxLengthStr := s;
         iMaxNumber := i 
     end;
   end;
   CloseFile(f);
  
  (*
    Всё — готово!
     номер строки максимальной длины в iMaxNumber
     Максимальная строка в MaxLengthStr
     длина максимальной строки в MaxLength
     if MaxLengthStr < 0 then
           Файл Пуст....

ну, или, если Вы уж читаете в Memo,
то воспользуйтесь методом загрузки текстового файла!
Это всего ОДНА строчка кода:

  Memo1.LoadFromFile('date.dat');

ну а потом Вы уже знаете, как перебирать строки и искать строчку с максимальной длиной...