Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Начинающим";
Текущий архив: 2007.02.18;
Скачать: [xml.tar.bz2];

Вниз

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

 
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;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.45 MB
Время: 0.052 c
1-1166759833
firebird
2006-12-22 06:57
2007.02.18
Delphi не запускается?


15-1169567372
TIF
2007-01-23 18:49
2007.02.18
Создание своего формата файла


15-1169670328
Amychok
2007-01-24 23:25
2007.02.18
Медиаплеер


2-1170357940
ZiTRaX
2007-02-01 22:25
2007.02.18
Ошибка при работе с директивой absolute


15-1170099470
hmmm
2007-01-29 22:37
2007.02.18
помогите перевести фразу с eng.





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский