IPB
ЛогинПароль:

> ВНИМАНИЕ!

Прежде чем задать вопрос, смотрите FAQ.
Рекомендуем загрузить DRKB.

> saveDialog, расширение
Client
сообщение 7.05.2009 17:14
Сообщение #1


Профи
****

Группа: Пользователи
Сообщений: 865
Пол: Мужской
Реальное имя: Вячеслав

Репутация: -  20  +


Привет!
Я хочу создать файл с выбранным расширением. Использую saveDialog. В лейбл вывожу имя файла, но файл не имеет расширения. Как из saveDialog'а вытащить выбраное расширение? Название файла ввел - "пример".
И как создать файл в дельфи? assign и rewrite? или есть другие способы?

Сообщение отредактировано: Client - 7.05.2009 17:19


Эскизы прикрепленных изображений
Прикрепленное изображение Прикрепленное изображение
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
 
 Ответить  Открыть новую тему 
Ответов
volvo
сообщение 7.05.2009 17:53
Сообщение #2


Гость






Надо вытягивать расширение из поля Filter и приклеивать его к имени файла. Вот пример:
procedure TForm1.Button1Click(Sender: TObject);
var
sL: TStringList;
ix: Integer;
begin
if SaveDialog1.Execute() then begin
sL := TStringList.Create;
try
ix := 2 * Pred(SaveDialog1.FilterIndex);
ExtractStrings(['|'], [], PChar(SaveDialog1.Filter), sL);
ShowMessage(SaveDialog1.FileName + Copy(sL[ix], 2, Length(sL[ix]) - 1));
finally
sL.Free;
end;
end;
end;

Цитата
И как создать файл в дельфи? assign и rewrite? или есть другие способы?
Да там способов - миллион... Можно заполнить данными тот же TStringList и потом записать его в файл (SaveToFile)... Все зависит от того, какой файл тебе нужен в результате, что он содержать должен.
 К началу страницы 
+ Ответить 

Сообщений в этой теме


 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 



- Текстовая версия 9.07.2025 17:43
Хостинг предоставлен компанией "Веб Сервис Центр" при поддержке компании "ДокЛаб"