Форум: "Начинающим";
Текущий архив: 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
Время: 2.663 c