Кодировка при сохранении файла.
Здравствуйте!
Как добавить в окно сохранения файла кодировку
1. Имя файла
2. Тип файла
3. Кодировка -------
Как у Виндосовского блокнота.
| Код |
var
Form1: TForm1;
EditedFile: string;// для открытия и сохранения файла
implementation
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
begin
with OpenDialog1 do begin
Options:=Options+[ofPathMustExist,ofFileMustExist];
InitialDir:=ExtractFilePath(Application.ExeName);
Filter:='Text files (*.iso)|*.iso';
end;
with SaveDialog1 do begin
InitialDir:=ExtractFilePath(Application.ExeName);
Filter:='Text files (*.iso)|*.iso';
end;
SynMemo1.ScrollBars := ssBoth;
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
SaveDialog1.FileName := 'Spiral'{Form1.Caption}; // Spiral - имя файла
if SaveDialog1.Execute then begin
SynMemo1.Lines.SaveToFile
(SaveDialog1.FileName + '.iso');
Form1.Caption:=SaveDialog1.FileName;
end;
end;
|
|