RusFAQ.ru: Программирование на Delphi
| Информационный Канал Subscribe.Ru |
RusFAQ.ru: Программирование на Delphi
Выпуск № 063
от 20.08.2002, 11:20
| Администратор: Имя: Калашников О.А. URL: Информационный ресурс ICQ: 68951340 Россия, Москва |
О рассылке: Задано вопросов: 139 Отправлено ответов: 215 Активность: 154.6 %
|
| Список экспертов, ответы которых опубликованы в данном выпуске |
| Артём Шегеда Статус: Профессиональный Общий рейтинг: 119.89 URL: Пристанище неодинокого программиста [Подробней >>] |
Pablo Статус: Опытный Общий рейтинг: 130.1 URL: Моя страничка [Подробней >>] |
nix Статус: Доверительный Общий рейтинг: 114.12 [Подробней >>] |
| Necro Статус: Начальный Общий рейтинг: 114.86 [Подробней >>] |
Painbringer Статус: Профессиональный Общий рейтинг: 195.35 URL: Музычка, стишки и прочая дрянь [Подробней >>] |
Sanya Статус: Опытный Общий рейтинг: 130.7 [Подробней >>] |
| Краткий перечень вопросов |
Вопрос № 129. Здравствуйте! Не могли бы дать ссылочку(или прислать по мылу), где можно скачать компоненты для созд... (ответов: 3)
Вопрос № 130. У меня есть файл C:1.txt. Как через Delphi его переименовать вместе с расширением. Я писал функцию: ... (ответов: 5)
Вопросов: 2, ответов: 8
| Вопрос № 129 |
Здравствуйте! Не могли бы дать ссылочку(или прислать по мылу), где можно скачать компоненты для создания и извлечения архивов (архивированияразархивирования).
Заранее благодарен...
Вопрос отправлен: 16.08.2002, 19:49
Отправитель: PC Gamer (pcgamer@mail.ru)
[Следующий вопрос >>] [Список вопросов]
Отвечает Артём Шегеда
Здравствуйте, PC Gamer!
To Pablo: Это ж как нужно было пить, чтобы так руки дрожали? :)
WWW.Torry.NET - правильная ссылка
Ответ отправлен: 17.08.2002, 12:41
Отправитель: Артём Шегеда
Отвечает Pablo
Добрый день, PC Gamer!
На http://torry.toryy.net очень много компонент для Билдера и Дельфи там есть и зазлиные компоененты для архивирования бесплатные и платные.
Ответ отправлен: 16.08.2002, 22:36
Отправитель: Pablo
Отвечает nix
Доброе время суток, PC Gamer!
Посмотри на www.rarlab.com
Ответ отправлен: 19.08.2002, 06:49
Отправитель: nix
| Вопрос № 130 |
У меня есть файл C:1.txt. Как через Delphi его переименовать вместе с расширением.
Я писал функцию:
s,s1:string;n:integer;
s:='C:1.txt';
s1:='C:1.txt';
while pos(s1,'.')<>0 do begin
n:=pos(s1,'.');
delete(s1,n,10); // Эта процедура почему-то игнорируется
end;
RenameFile(s,s1+'.html');
Подскажите plz как лучше построить функцию...
Вопрос отправлен: 17.08.2002, 11:19
Отправитель: PC Gamer
[Следующий вопрос >>] [Список вопросов]
Отвечает Necro
1)Ты неправильно используешь POS, ищешь в '.' строку s1.
2)Я и сам иногда замечал глюки с двойным использованием pos. Так, как в приложении должно работать.
Приложение:
Ответ отправлен: 17.08.2002, 12:25
Отправитель: Necro
Отвечает Артём Шегеда
Здравствуйте, PC Gamer!
Настоятельно рекомендую не компостировать мозги людям и себе - воспользуйся функцией
function ChangeFileExt(const FileName, Extension: string): string;
Она возвращает строку с уже изменённым расширением.
Ответ отправлен: 17.08.2002, 12:37
Отправитель: Артём Шегеда
Отвечает Pablo
Приветствую Вас, PC Gamer!
В дельфах испотзую Дельфовые сетоды для работы с файлами:
FileOpen, FileCreate, FileRead, FileWrite, FileClose, FileExists, RenameFile.
Вот для пепеименования и попробуй использовать метод RenameFile, а для получения имени файла без расширения используй ExtractFileName.
Ну попробуй вот так сделать:
file:string;
file:='c:file.doc';
n:=ExtractFileName(file);
RenameFile(file,n+'.txt');
Ответ отправлен: 17.08.2002, 14:06
Отправитель: Pablo
Отвечает Painbringer
Добрый день, PC Gamer!
Дык так в pos передается сначала подстрока а потом строка!!!!!!!!!!!!!!!!!!!!!!!!!!! а не как у тебя. и вайл твой нафиг не нужен.
n:=pos('.',s1);
if n<>0 then delete(s1,n,length(s1)-n+1);
лучше конечно находить последнюю точку и только после нее изменять расширение. например так:
while pos('.',s1)<>0 do
begin
n:=pos('.',s1);
t:=t+copy(s1,1,n);
delete(s1,1,n);
end;
t:=t+'html';
теперь в t - то чё нада!
Ответ отправлен: 19.08.2002, 00:09
Отправитель: Painbringer
Отвечает Sanya
Добрый день, PC Gamer!
Попробуй так:
procedure Rename();
Var OldName,NewName, NewExt :String;
begin
OldName:='C:1.txt';
NewExt:='.html';
NewName:=ChangeFileExt(OldName, NewExt);
RenameFile( OldName, NewName);
end;
end.
Ответ отправлен: 19.08.2002, 02:47
Отправитель: Sanya
|
Форма отправки вопроса |
Форма может работать некорректно в почтовых программах "Microsoft Outlook" и "Microsoft Outlook Express". В программе The Bat! подобные формы не работают вообще!
После нажатия на кнопку "Отправить", будет открыто второе окно. Заметьте, что в некоторых браузерах могут стоять запреты на открытие других окон, а также "чрезмерное" кэширование данных, при этом факт отправки Вашего вопроса стоит под сомнением.
Мы рекомендуем открывать рассылку в программе Internet Explorer 5.0+ или отправлять вопросы с сайта по адресу: http://rusfaq.ru/cgi-bin/Message.cgi.
© 2002 Команда RusFAQ.ru.
| Вопрос и дополнение |
Ваш вопрос:
Приложение (если необходимо):
Получить ответов:
| Выбор рассылки |
| Программисту Assembler (38) C / C++ (27) Perl (14) Delphi (17) Pascal (26) Basic / VBA (11) Java / JavaScript (13) PHP (12) MySQL / MSSQL (12) |
Пользователю Windows 95/98/Me (44) Windows NT/2000/XP (31) "Железо" (38) Поиск информации (18) |
Администратору Windows NT/2000/XP (16) Linux / Unix (14) |
Юристу Гражданское право (8) Семейное право (6) Трудовое право (7) КоАП (5) |
Отправить вопрос всем экспертам выбранной рассылки.
| © 2002 Россия, Москва. Авторское право: RusFAQ.ru |
| http://subscribe.ru/
E-mail: ask@subscribe.ru |
Отписаться
Убрать рекламу |
| В избранное | ||
