[rastamar71]

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

Код:

procedure TForm5.Button1Click(Sender: TObject);
begin
var
s:TStringList;
n:integer;
begin
if OpenDialog1.Execute
then Begin
s:=TStringList.Create;
s.loadfromfile(opendialog1.FileName);
edit1.Text:=s.Strings[0];
edit2.Text:=s.Strings[n];
s.Free
end;
end;

end.

Админ: Пользуемся тегами при оформлении кода!