[Mp3]

не давно задавался темой,что бы программа считывала 3 строчку из файла и кидала её в memo1

var s:TStringList;
begin
if OpenDialog1.Execute
then Begin
s := TStringList.Create;
s.loadfromfile( opendialog1.FileName );
edit1.Text := s.Strings[ 2 ];
s.Free;
end;
end;

а как можно сделать чтобы она считывала вторую с конца строчку и выкидывала туда же?!
p.s. заранее спасибо

[PS11011010]

Код:

edit1.Text := s.Strings[s.count-4];

[Mp3]

спасибо..работает...объясни что за команда плиз

[PS11011010]

s.count - число записей
s.count-1 - индекс последней записи
s.count-3 - индекс второй с конца записи

[Mp3]

а как будет выглядеть код?если мне надо чтобы считалась первая и последняя строка из файла? вот предыдущей код

procedure TForm1.Button1Click(Sender: TObject);
var s:TStringList;
begin
if OpenDialog1.Execute
then Begin
s := TStringList.Create;
s.loadfromfile( opendialog1.FileName );
memo1.Text := s.Strings[ s.count-1 ];
s.Free;
end;
end;

[PS11011010]

Код:

memo1.Lines.Add(s.Strings[0]); //первая
memo1.Lines.Add(s.Strings[s.Count-1]); //последняя