VPF::Кодировка при сохранении файла

Serhik_z

Дата 19.8.2007, 17:56 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Awaiting Authorisation
Сообщений: 108
Регистрация: 4.12.2004

Репутация: нет
Всего: нет

Кодировка при сохранении файла.
Здравствуйте!
Как добавить в окно сохранения файла кодировку
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;

Присоединённый файл ( Кол-во скачиваний: 12 )

kodir.jpg 10,08 Kb

Mikh@il

Дата 19.8.2007, 18:02 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 72
Регистрация: 15.8.2007

Репутация: нет
Всего: нет

Нарисуй новою форму (в чем проблема)?

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »