Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Подскажите пожалуйста [D2005, 2000]

pkm © (2006-10-19 13:17:00)
Всем привет. Я в программе использую save_dialog. В нем есть несколько фильтров. В зависимости от выбранного фильтра, я к имени файла прибавляю расширение. А если пользователь написал сам расширение и плюс я дописал,то получается такая картина: name_file.txt.txt. Как этого избежать? Спасибо за внимание.

pkm (2006-10-19 14:19:00) [1]
Согласен!!!

Плохиш (2006-10-19 14:05:00) [2]

> pkm (19.10.06 13:57) [11]

Ты думаешь, точка в [5] просто так подчёркнута? Когда отладчиком пользоваться начнёшь учиться?

Darvin (2006-10-19 13:59:00) [3]
Просто установи DefaultExt, а всякие коррекции расширения - фтопку

pkm (2006-10-19 13:57:00) [4]
код такой:
if (sd_fil.DefaultExt)<>'txt' then fname:=sd_fil.filename+'.txt';
или
if extractfileext(sd_fil.filename)<>'txt' then fname:=sd_fil.filename+'.txt'

результат один:
name_file.txt.txt

Плохиш (2006-10-19 13:51:00) [5]
Хотя, в данном случае, AnsiLowerCase - один раз :-)

Плохиш (2006-10-19 13:51:00) [6]

> pkm (19.10.06 13:50) [8]
> А если я беру весь путь и имя файла.

И чего? А главное, куда берёшь?

Плохиш (2006-10-19 13:50:00) [7]
и использовать одну из функций AnsiUpperCase/AnsiLowerCase, но два раза.

pkm (2006-10-19 13:50:00) [8]
А если я беру весь путь и имя файла.

Плохиш (2006-10-19 13:49:00) [9]

> if extractfileext(filename)<>' . txt' then filename:=filename+'.
> txt'

Джо (2006-10-19 13:49:00) [10]
> [4] pkm (19.10.06 13:46)
> И так не получилось.

Наверное, тогда ты неправильно делаешь.

pkm (2006-10-19 13:46:00) [11]
И так не получилось.

Darvin (2006-10-19 13:44:00) [12]
TSaveDialog.DefaultExt

pkm (2006-10-19 13:41:00) [13]
Не получилось. Сохраняет name_file.txt.txt

Palladin (2006-10-19 13:21:00) [14]
if extractfileext(filename)<>'txt' then filename:=filename+'.txt'

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »