Показать сообщение отдельно
  #10  
Старый 15.05.2012, 22:59
Аватар для Kpyc
Kpyc Kpyc вне форума
Новичок
 
Регистрация: 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;
Ответить с цитированием