Ошибка сохранения [D7, XP]
NSK3D © (2006-03-05 10:38:00)
Здраствуйте!У меня проблема при сохранении(через SaveDialog)
когда я сохраняю файл с N именем и с *.X расширением,то файл
сохраняется без расширения т.е. толко N без .X .
Помогите!
Fenix (2006-03-05 10:50:00) [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;
Наверх 
ЧАТ |
Орешник |
|
