Тема: Записи
Показать сообщение отдельно
  #3  
Старый 09.03.2015, 14:10
Аватар для Uniq!
Uniq! Uniq! вне форума
Местный
 
Регистрация: 29.09.2010
Сообщения: 539
Версия Delphi: Delphi XE3
Репутация: 374
По умолчанию

Цитата:
Сообщение от weess
Поможете??
Искренне желаю вам сменить специальность, пока не поздно или
взяться за изучение предметов. Также советую выучить русский язык и научиться ставить задачи так, чтоб задание было понятно.

Код:
procedure TMainForm.btnLoadFromTxtClick(Sender: TObject);
begin
  OpenDialog.Filter := 'Текстовый файл|*.txt';
  if OpenDialog.Execute then
    SessionInfo.Lines.LoadFromFile(OpenDialog.FileName);
end;
Ответить с цитированием