Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2007.02.18;
Скачать: CL | DM;

Вниз

Как исправить...?   Найти похожие ветки 

 
Nanos   (2007-01-28 14:15) [0]

Когда я сохраняю содержимое RichEdit, я делаю так
if SaveDialog.Execute then
begin
with TStringList.Create do begin
Text := RichEdit1.Text;
SaveToFile(savedialog.FileName);
Free;
end;
end;
Но у меня проблемы с форматом сохранённого файла. Он сохраняется без фрмата, фрмат приходиться прописывать вручную. Тоесть если я изменю код так
if SaveDialog.Execute then
begin
with TStringList.Create do begin
Text := RichEdit1.Text;
SaveToFile(savedialog.FileName+,".txt");
Free;
end;
end;
то он сохраняется нормально, но этот код не подходит так как мой Savedialog может сохранять и другие форматы.
Подскажите как исправить эту ошибку


 
antonn ©   (2007-01-28 14:17) [1]

if SD.Execute then begin      
if sd.FilterIndex=1 then  begin  SavePlayList_PLS( sd.FileName+".pls");  end;
if sd.FilterIndex=2 then  begin  SavePlayList_M3U( sd.FileName+".m3u" ); end;
end;


 
Nanos   (2007-01-28 14:40) [2]

Спасибо всё работает. У меня остался один вопрос можно ли как нибудь сохранять текст в различных кадировках, так как это можно делать в стандартном блокноте.


 
RASkov   (2007-01-29 02:13) [3]

> [0] Nanos   (28.01.07 14:15)

if SaveDialog.Execute then
begin
with TStringList.Create do begin
Text := RichEdit1.Text;

SaveToFile(savedialog.FileName+,".txt");
Free;
end;
end;
А зачем такие фокусы, можно и RichEdit1.Lines.SaveToFile();
И
if SD.Execute then begin      
case sd.FilterIndex of
1: RichEdit1.Lines.SaveToFile(SD.FileName+".txt");
2: RichEdit1.Lines.SaveToFile(SD.FileName+".rtf");
else RichEdit1.Lines.SaveToFile(SD.FileName+SD.DefaultExt);
end;
end;

Только еще нужно учитывать ввел ли пользватель в SD.FileName имя файла с раширением или без него или может получится такое имя filename.ext.txt


 
GrayFace ©   (2007-01-29 13:23) [4]

В событии OnTypeChange пиши:
with OpenDialog1 do
  case FilterIndex of
    1: DefaultExt:=".txt";
    2: DefaultExt:=".bmp";
  enx;

А после Execute никаких расшерений не добавляй.



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

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

Наверх




Память: 0.47 MB
Время: 0.028 c
3-1163080786
Megabyte
2006-11-09 16:59
2007.02.18
Аналог Profiler а(для MSSQL) для Firebird 2.0


4-1160040203
ildarkh
2006-10-05 13:23
2007.02.18
Запуск программы из службы


15-1169958407
Дмитрий Белькевич
2007-01-28 07:26
2007.02.18
Потестируйте, пожалуйста, программу, запуск программы как сервиса


15-1169706061
Ega23
2007-01-25 09:21
2007.02.18
Всех Татьян - с Татьяниным днём!


2-1170326279
WhiteBarsik
2007-02-01 13:37
2007.02.18
В EXE не желает включаться "designide"