
15.05.2012, 22:59
|
 |
Новичок
|
|
Регистрация: 05.05.2011
Сообщения: 75
Версия Delphi: Turbo Delphi
Репутация: 11
|
|
Код:
procedure TForm1.Button1Click(Sender: TObject);
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;
|