[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.

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

[NumLock]

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

[PS11011010]

Код:

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

[rastamar71]

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

[rastamar71]

всё работает