|
Вопрос # 5 089/ вопрос открыт / |
|
Здравствуйте!помогите решить задачу...Введите имя файла(возможно,без расширения) и изменить его расширение на "exe"
пример:
введите: введите:
qqq qqq.com
результат: результат:
qqq.exe qqq.exe
 |
Вопрос задала: Iren Key (статус: Посетитель)
Вопрос отправлен: 16 марта 2011, 17:39
Состояние вопроса: открыт, ответов: 1.
|
Ответ #1. Отвечает эксперт: puporev
Здравствуйте, Iren Key!
Можно сделать так. Код в приложении.
Приложение: Переключить в обычный режим- var f:text;
- nf:string;
- begin
-
- readln(nf);
- assign(f,nf);
- {$I-} reset(f); {$I+}
- if IOResult <> 0 then
- begin
-
-
- readln;
- exit;
- end;
-
- if pos('.',nf)>0 then nf:=copy(nf,1,pos('.',nf)-1);
-
- close(f);
-
- readln
- end.
 |
Ответ отправил: puporev (статус: 2-ой класс)
Время отправки: 16 марта 2011, 18:06
Оценка за ответ: 5
Комментарий к оценке: СБРЁСБ)
|
Мини-форум вопроса
Всего сообщений: 5; последнее сообщение — 16 марта 2011, 20:02; участников в обсуждении: 2.
|
min@y™ (статус: Доктор наук), 16 марта 2011, 19:09 [#1]:
Я чой-то не вкурил: надо именить расширение у файла (на диске) или у имени файла (в строке)?
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
|
|
puporev (статус: 2-ой класс), 16 марта 2011, 19:21 [#2]:
Я сменил на диске...
|
|
|
min@y™ (статус: Доктор наук), 16 марта 2011, 19:25 [#3]:
Цитата (puporev):
Я сменил на диске...
А надо было где?
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
|
|
puporev (статус: 2-ой класс), 16 марта 2011, 19:55 [#4]:
Спроси у ТС, как понял, так и написал...
|
|
|
min@y™ (статус: Доктор наук), 16 марта 2011, 20:02 [#5]:
Цитата (puporev):
Спроси у ТС, как понял, так и написал...
А ТС - это хто?
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.
|
