Directorys erstellen

[DelTurbo]

Hi,
ich glaube ich brech gleich ab. Ich nutze (als beispiel) folgenden code um mehr als eine Directory anzulegen.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
    ForceDirectories('E:\test\1\2\3');
end;

Was ich auch mache, ich bekomme immer die folgende fehlermeldung.

Code:

---------------------------
Project1
---------------------------
Fehler bei Bereichsprüfung.
---------------------------
OK   
---------------------------

Es wird keine dir angelegt. Was mach ich falsch???

Vielen dank im voraus.

[DelTurbo]

Hat sich erledigt. Es lag an der SysUtils. Die war wohl für unix.

Trotzdem danke....

[DeddyH]

Bist Du sicher, dass der Fehler mit ForceDirectories zusammenhängt?

[DelTurbo]

Jap, schau oben. Es wird ja nix anderes gemacht. Button klicken und dann kommt das was oben steht. Ich hatte wohl mal was an der Sysutils geändert und vergessen den Devinition MSWINDOWS reinzumachen. Ich glaub ich werd alt

[alfold]

Trotzdem sollte man prüfen ob die Verzeichnisse angelegt wurden

Delphi-Quellcode:

if not ForceDirectories(Dir) then
  //konnten nicht ertellt werden, warum auch immer

Gruss alfold

[DelTurbo]

Das kommt auch rein. Ich hatte nur das beispiel so einfach wie möglich gehalten. Das prob war/ist, man findet nix über diesen fehler bei google. Deswegen war ich etwas verwirrt.

Und die einzige "anlaufstelle" die ich in solchen fällen habe ist halt dieses Forum hier. Das hat den grund, das man nicht immer gleich als blöde abgestempelt wird und gesagt bekommt "nutz die Boardsuche" oder änhlich.

[Win32.API]

Zitat von DelTurbo:

Hat sich erledigt. Es lag an der SysUtils. Die war wohl für unix.

Seit wann kann man mit D7 für Unix entwickeln?

[alfold]

Zitat von Win32.API:

Zitat von DelTurbo:

Hat sich erledigt. Es lag an der SysUtils. Die war wohl für unix.

Seit wann kann man mit D7 für Unix entwickeln?

Würde mal sagen, seit dem es sie gibt
Wie es mit der Pro und darunter aussieht kann ich allerdings nicht sagen.

Gruss alfold

[DelTurbo]

Hier mal der Code abschnitt.

Delphi-Quellcode:

function ForceDirectories(Dir: string): Boolean;
var
  E: EInOutError;
begin
  Result := True;
  if Dir = '' then
  begin
    E := EInOutError.CreateRes(@SCannotCreateDir);
    E.ErrorCode := 3;
    raise E;
  end;
  Dir := ExcludeTrailingPathDelimiter(Dir);
{$IFDEF MSWINDOWS}
  if (Length(Dir) < 3) or DirectoryExists(Dir)
    or (ExtractFilePath(Dir) = Dir) then Exit; // avoid 'xyz:\' problem.
{$ENDIF}
{$IFDEF LINUX}
  if (Dir = '') or DirectoryExists(Dir) then Exit;
{$ENDIF}
  Result := ForceDirectories(ExtractFilePath(Dir)) and CreateDir(Dir);
end;

[himitsu]

Dennoch hat das Linuxzeug eigentlich keine Auswirkung.

In Delphi 7 ist sind das nur die Codeabschnitte für Kylix 3, da zu großen Teilen die selben Quellcodes genutzt wurden.
Seit einer Weile (so ab 2006 und 2009) gibt es in Delphi wieder vermehrt solche Codes anzutreffen, für Mac, Linux und Co., welches für den neuen Cross-Compiler (angeblich ab XE2) eingeügt wurde/wird.


Standardmäßig sollte ein Ändern der VCL-Quellcodes auch keine Auswirkung auf die zu kompilierenden Programme haben, da diese Quellcodes nur für den CodeEditor und den Debugger, aber nicht für den Compiler sichtbar sind.
uch werden standardmäßig keine VCL-Quellcodes neu kompiliert, selbst wenn man daran etwas ändert. (diese Änderung bringen höchstend den User durcheinander, da der Debugger dann schnell mal Mist anzeigt).