OpenDialog1.Execute=true (error) - Помощь студентам

zotox · 13.07.2009, 15:38

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
 s:TStrings;
begin
 s:=s.Create();
 if OpenDialog1.Execute=true then
  begin
   edit1.Text:=OpenDialog1.FileName;
   s.LoadFromFile(edit1.Text);
  end;
end;

Выскакивает ошибка при нажатии на кнопку (то есть когда программа запустилась)

Помогайте

(ошибку скорее всего сами найдете так как код маленький, ну если что дам ошибку!)

Пепел Феникса · 13.07.2009, 15:43

Код:

s:=s.Create();

заменить на

Код:

s:=TStringList.Create;

и диалог в ошибке не причем
хотя можно просто написать

Код:

if OpenDialog1.Execute then

Serge_Bliznykov · 13.07.2009, 16:30

ещё добавлю.
после s.LoadFromFile...
будет идти какой-то код, которого сейчас ещё просто нет, верно?
иначе, бессмысленно читать файл в локальную переменную...

Так вот, не забудьте при выходе из процедуры сделать
s.Free; или
(лучше) так:
FreeAndNil(s);

13.07.2009, 15:38	#1
zotox Форумчанин Регистрация: 09.09.2008 Сообщений: 395	OpenDialog1.Execute=true (error) Код: `procedure TForm1.Button1Click(Sender: TObject); var s:TStrings; begin s:=s.Create(); if OpenDialog1.Execute=true then begin edit1.Text:=OpenDialog1.FileName; s.LoadFromFile(edit1.Text); end; end;` Выскакивает ошибка при нажатии на кнопку (то есть когда программа запустилась) Помогайте (ошибку скорее всего сами найдете так как код маленький, ну если что дам ошибку!) Последний раз редактировалось Stilet; 13.07.2009 в 16:13.

13.07.2009, 15:43	#2
Пепел Феникса Старожил Регистрация: 28.01.2009 Сообщений: 21,000	Код: `s:=s.Create();` заменить на Код: `s:=TStringList.Create;` и диалог в ошибке не причем хотя можно просто написать Код: `if OpenDialog1.Execute then` Хорошо поставленный вопрос это уже половина ответа. \| Каков вопрос, таков ответ. Программа делает то что написал программист, а не то что он хотел. Функции/утилиты ждут в параметрах то что им надо, а не то что вы хотите.

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
КОМПОНЕНТ OpenDialog1	Anna_fors	Компоненты Delphi	3	05.06.2009 22:00
Проблема с фкнкцией Execute	rocky7	Общие вопросы C/C++	0	01.03.2009 16:42
Запрет на read table или execute proc <name_proc>	Lunatikus	БД в Delphi	2	27.02.2008 11:26

13.07.2009, 16:30	#3
Serge_Bliznykov Старожил Регистрация: 09.01.2008 Сообщений: 26,229	ещё добавлю. после s.LoadFromFile... будет идти какой-то код, которого сейчас ещё просто нет, верно? иначе, бессмысленно читать файл в локальную переменную... Так вот, не забудьте при выходе из процедуры сделать s.Free; или (лучше) так: FreeAndNil(s);