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

Вниз

ChangeFileExt не работает но и не ругаеться   Найти похожие ветки 

 
hfa   (2004-01-09 10:53) [0]

Не в какую не работает ChangeFileExt пишу так
ChangeFileExt("c:\test.txt",".BMP") но ничего не получаеться кто-нибудь объяснит почему и что делать?


 
Тимохов   (2004-01-09 10:55) [1]

Можно подробнее, что ты пишешь?


 
Тимохов   (2004-01-09 10:57) [2]

Что у тебя будет в сообщении в таком коде?

procedure TForm2.Button1Click(Sender: TObject);
begin
showmessage(ChangeFileExt("c:\test.txt",".BMP"))
end;

у меня все работает.


 
hfa   (2004-01-09 11:01) [3]

Мне нужно поменять расширение файла допустим с txt на bmp
Вот я пишу функцию для смены расширения файла! ChangeFileExt("c:\test.txt",".BMP") но не работает почему-то а хотя должно:(


 
hfa   (2004-01-09 11:02) [4]

будет c:\test.bmp


 
Плохиш_   (2004-01-09 11:03) [5]

>hfa © (09.01.04 11:01) [3]

В справке по делфи написано, что функцию ChangeFileExt нужно использовать так:

s:= ChangeFileExt(OpenDialog1.FileName,".BMP");


 
TUser   (2004-01-09 11:04) [6]

ChangeFileExt просто изменяет строку. Для переименовывания файла - ReanameFile.


 
Тимохов   (2004-01-09 11:04) [7]

hfa © (09.01.04 11:01) [3]
Товарищ!
Очените ответ номер 2. Вернее не очените, а ответьте не мне, так себе на вопрос поставленный там. Функция работает. Также оцените ответ номер 1, с просьбой о вашем коде. Иначе не ясно на что отвечать...


 
Плохиш_   (2004-01-09 11:04) [8]

>hfa © (09.01.04 11:02) [4]

Ну вот видишь. Всё прекрасно работает.


 
Тимохов   (2004-01-09 11:05) [9]

TUser © (09.01.04 11:04) [6]
Ценю талант медиума. Как вы догадались, что он хочет на диске поменять расширение файла, а не имя файла в виде строки?


 
hfa   (2004-01-09 11:07) [10]

как на что отвечать! как поменять это чертово расширение файла в дельфи если стандартная функция ChangeFileExt не работает по неизвестным причинам


 
Тимохов   (2004-01-09 11:08) [11]

Гражданин.
Буде добры объяснить вашу задачу. Популярно.
Вообще есть подозрение что TUser вам уже ответил.


 
Плохиш_   (2004-01-09 11:09) [12]

>Тимохов © (09.01.04 11:05) [9]
:-))
Автор оказывается первую строчку из хелпа дословно перевёл ;-) а дальшь читать уже времени/силёнок не хватило :-)


 
Тимохов   (2004-01-09 11:11) [13]

Попробуй написать так. Может получится

renamefile("c:\test.txt", ChangeFileExt("c:\test.txt", ".bmp"));


 
Плохиш_   (2004-01-09 11:12) [14]

Кстати, орешник давно не обновлялся :-))


 
hfa   (2004-01-09 11:12) [15]

все сделал так

var
NewFile:string;
NewFile:=ChangeFileExt("c:\test.txt",".BMP");
RenameFile("c:\test.txt",NewFile)
работает! но почему <Тимохов © /B>работает без всяких там renameFile а у меня нет! странно


 
TUser   (2004-01-09 11:12) [16]


> Тимохов © (09.01.04 11:05) [9]

Просто иначе вопрос бы вряд ли возник. Код наподобии [2] у него заработал бы.


 
Плохиш_   (2004-01-09 11:13) [17]

>hfa © (09.01.04 11:12) [15]

Орех растёт прямо на глазах :-)


 
Тимохов   (2004-01-09 11:14) [18]

Плохиш_ (09.01.04 11:12) [14]

Какие же упертые бывают личности.
Говорит - не работает. Ты ему - что ты хочешь сделать. Он - НЕ РАБОТАЕТ!!! Ты ему - селать то что надо и т.д...
Прикол, чессо слово.


 
Тимохов   (2004-01-09 11:15) [19]

TUser © (09.01.04 11:12) [16]
Да сразу ясно, что ему надо. Но нужно же учиться хотя бы вопросы ставить четко. Это тоже талант.


 
hfa   (2004-01-09 11:15) [20]

но вообщето интересно то что не задолго до этого мне приходилось ее использовать и все нормально работало!


 
hfa   (2004-01-09 11:17) [21]

всем спасибо.......



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

Форум: "Основная";
Текущий архив: 2004.01.20;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.48 MB
Время: 0.141 c
14-63390
PRO
2003-12-29 00:19
2004.01.20
Что лучше Delphi или C


1-63141
skt888
2004-01-07 07:10
2004.01.20
String в WideString


1-63241
hfa
2004-01-09 10:53
2004.01.20
ChangeFileExt не работает но и не ругаеться


1-63235
Ivolg
2004-01-09 11:53
2004.01.20
Второстепенные формы


6-63277
Deadcat
2003-10-27 06:10
2004.01.20
Сканирование сети





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский