Текущий архив: 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.041 c
