Текущий архив: 2006.03.19;
Скачать: CL | DM;

Вниз

Ошибка сохранения   Найти похожие ветки 

← →
NSK3D ©   (2006-03-05 10:38) [0]

Здраствуйте!У меня проблема при сохранении(через SaveDialog)
когда я сохраняю файл с N именем и с *.X расширением,то файл сохраняется без расширения т.е. толко N без .X .
Помогите!

---

← →
Fenix ©   (2006-03-05 10:50) [1]

у тебя расширения записаны в Filter?
Если да, то такой код:
Это обработка сохранения

name:=savedialog1.FileName+savedialog1.DefaultExt;
memo1.lines.savetofile(savedialog1.DefaultExt)

А это надо добавить, что бы обработать расширение, которое выбрано в фильтре.

procedure TForm1.SaveDialog1TypeChange(Sender: TObject);
var
SL: TStringList;
begin
SL := TStringList.Create;
try
  SL.Delimiter := "|";
  Sl.DelimitedText := SaveDialog1.Filter;
  SaveDialog1.DefaultExt := SL[SaveDialog1.FilterIndex * 2 - 1];
finally
  SL.Free;
end;
end;


---

Страницы: 1 вся ветка

Текущий архив: 2006.03.19;
Скачать: CL | DM;

Наверх

Память: 0.46 MB
Время: 0.067 c