|
Вопрос # 2 681/ вопрос открыт / |
|
Приветствую, уважаемые эксперты!
Не получается создать папку.В качестве примера использовал урок(прикреплённый файл) помоему в этом уроке чегото не хватает.
Помогите начинающему!
С уважением Анатолий.
К вопросу прикреплён файл. Загрузить » (срок хранения: 60 дней с момента отправки вопроса)
 |
Вопрос задал: Манаенков АГ (статус: Посетитель)
Вопрос отправлен: 25 апреля 2009, 14:54
Состояние вопроса: открыт, ответов: 1.
|
Ответ #1. Отвечает эксперт: Amidamaru
Здравствуйте, Манаенков АГ!
Вообще я советую использовать ForceDirectories.
Если нет хелпа (как ни удивительно, у некоорых нет номального хелпа по делфи):
Unit SysUtils
function ForceDirectories(Dir: string): Boolean;
Creates a new directory, including the creation of parent directories as needed.
Создает новую папку, а также все необходимые "родительские" папки. Т.е. делает так, чтобы указанный путь существовал.
А по поводу "урока"... писал его, на мой взгяд, не очень опытный программист.
А думаю я так, потому что " = true" хороший программист писать не будет.
Также, если вы подключили юнит FileCtrl , то лучше заменить его на SysUtils .
Приложение: Переключить в обычный режим- procedure TForm1.Button1Click(Sender: TObject);
- begin
- if ForceDirectories('c:MyDir1Mydir2mydir3') then
-
-
- end;
 |
Ответ отправил: Amidamaru (статус: 4-ый класс)
Время отправки: 27 апреля 2009, 19:27
|
Мини-форум вопроса
Всего сообщений: 9; последнее сообщение — 27 апреля 2009, 19:40; участников в обсуждении: 3.
|
Ученый (статус: 8-ой класс), 25 апреля 2009, 15:37 [#1]:
Манаенков АГ в уроке как раз все хватает....... должно работать.... какая у вас ОСь? Может у вас просто напросто прав нет.....
|
|
|
Манаенков АГ (статус: Посетитель), 25 апреля 2009, 15:50 [#2]:
windows xp sp3
|
|
|
Манаенков АГ (статус: Посетитель), 25 апреля 2009, 15:52 [#3]:
У меня права администратора
|
|
|
Ученый (статус: 8-ой класс), 25 апреля 2009, 15:53 [#4]:
ну тогда дожен создавать полюбому....а по другому пути не пробовали создать?
|
|
|
Манаенков АГ (статус: Посетитель), 25 апреля 2009, 15:58 [#5]:
Код
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
createdir(C:\mydir);
end;
end.
ошибка:
[Error] Unit1.pas(28): Undeclared identifier: 'C'
[Fatal Error] Project2.dpr(5): Could not compile used unit 'Unit1.pas'
|
|
|
Ученый (статус: 8-ой класс), 25 апреля 2009, 16:00 [#6]:
а может лучше правильно писать, как в уроке createdir('C:\mydir');
|
|
|
Ученый (статус: 8-ой класс), 25 апреля 2009, 16:01 [#7]:
в уроке вроде бы ясно написано CreateDir('Documents');
|
|
|
Манаенков АГ (статус: Посетитель), 25 апреля 2009, 16:06 [#8]:
Огромное спасибо за помощь! Наше общение сработало на меня как перезагрузка ошибка (' не было
|
|
|
Amidamaru (статус: 4-ый класс), 27 апреля 2009, 19:40 [#9]:
По неизвесной причине в приложении ответа исчезли знаки "\"
тм должно быть ('c:\MyDir1\Mydir2\mydir3\')
|
Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.
|
