[rastamar71]

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

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

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.

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

[NumLock]

Count - кол-во элементов, соотв. Count-1 последний

[PS11011010]

Код:

1	edit2.Text:=s.Strings[s.count-1];

[rastamar71]

теперь он выдает ошибку на if OpenDialog1.execute then Begin

[rastamar71]

всё работает