а как будет выглядеть код?если мне надо чтобы считалась первая и последняя строка из файла? вот предыдущей код
Цитата:
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;
|