Actionlist

@Saron · Регистрация: 06.12.2012

Author24 — интернет-сервис помощи студентам

Доброго времени суток.
Помогите плз связать OpenDialog с ActionList...

Pascal

procedure TForm1.OpenExecute(Sender: TObject);
begin
 If opendialog1.Execute
  then   f:=Opendialog1.FileName;
  memo1.lines.LoadFromFile(f);
end;

Я пытаюсь вызвать OpenDialog из MainMenu через ActionList.
Что тут не так подскажите плз...

Добавлено через 49 минут

Сообщение от Saron

Доброго времени суток.
Помогите плз связать OpenDialog с ActionList...

Pascal

procedure TForm1.OpenExecute(Sender: TObject);
begin
 If opendialog1.Execute
  then   f:=Opendialog1.FileName;
  memo1.lines.LoadFromFile(f);
end;

Я пытаюсь вызвать OpenDialog из MainMenu через ActionList.
Что тут не так подскажите плз...

Все разобрался... В поле Object Inspector свойство Action нужно было указать обработчик события из ActionList

Добавлено через 29 минут
Почему задавая расширения сохраняемым файлам, файл сохраняется без расширения.

Pascal

procedure TForm1.SaveExecute(Sender: TObject);
begin
SaveDialog1.FileName := f;
if SaveDialog1.Execute then
 begin
  f := SaveDialog1.FileName;
 \\Для сохранения файла с нужным расширением пришлось сделать запись f := SaveDialog1.FileName+*.txt
  Memo1.Lines.SaveToFile(f);
 end
 else abort;
end;

Файл не хочет сохраняться в ТХТ формате... Запись в фильтре имеется: Текстовый файл | *.txt

@mss · 28.03.2013, 11:25

Сообщение от Saron

Запись в фильтре имеется: Текстовый файл | *.txt

Фильтр используется для отбора существующих файлов, а не для вновь создаваемых.
Для вновь создаваемых следует ручками задавать расширение имени.

@papaDOS · 28.03.2013, 11:31

Если я ничего не путаю, то у SaveDialog есть свойство DefaultExt, которое и задает расширение, если расширение не указано в имени.

@Saron · 28.03.2013, 12:18 **[ТС]**

Сообщение от papaDOS

Если я ничего не путаю, то у SaveDialog есть свойство DefaultExt, которое и задает расширение, если расширение не указано в имени.

Задав этому св-ву расширение, файл по прежнему сохраняется без него...
Ручками сохраняется как надо...

Указав индекс из Фильтра все начало работать правильно...
Спс

@mss 2664 / 2270 / 279 Регистрация: 24.12.2010 Сообщений: 13,723
	28.03.2013, 11:25	2
	Сообщение от Saron Запись в фильтре имеется: Текстовый файл \| *.txt Фильтр используется для отбора существующих файлов, а не для вновь создаваемых. Для вновь создаваемых следует ручками задавать расширение имени. 0

@papaDOS 31 / 31 / 6 Регистрация: 26.03.2013 Сообщений: 68
	28.03.2013, 11:31	3
	Если я ничего не путаю, то у SaveDialog есть свойство DefaultExt, которое и задает расширение, если расширение не указано в имени. 1

@Saron 0 / 0 / 1 Регистрация: 06.12.2012 Сообщений: 77
	28.03.2013, 12:18 [ТС]	4
	Сообщение от papaDOS Если я ничего не путаю, то у SaveDialog есть свойство DefaultExt, которое и задает расширение, если расширение не указано в имени. Задав этому св-ву расширение, файл по прежнему сохраняется без него... Ручками сохраняется как надо... Указав индекс из Фильтра все начало работать правильно... Спс 0