Ordner selbständig erstellen lassen

[MCOP2001DE]

Hallo

Ich habe folgendes Problem.
Ich möchte das beim Anlagen eines neuen Kunden in einer Datenbank gleizeitig ein Ordner mit dem Namen des Kunden Angelegt wird.
Der Pfad wo der neue Ordner angelegt wird kann nicht fest angegeben werden denn der soll veränderbar sein.
das ich mit MKDIR den Ordner erstellen kann habe ich bereits rausgefunden wenn ich jetzt aber das Programm Compiliere bekomme ich die Meldung das String und Pansichar nicht kompatible sind.

hier mal der Code:

Delphi-Quellcode:

// Neuen Kundenordner anlegen
    if Neu = 'Ja' then
     begin
       ini := TInifile.Create(ExtractFilePath(ParamStr(0))+'Sys.ini');
       try
          Root       := ini.ReadString('KBPfad', 'Dir', Root);
       finally
          ini.Free;
       end;
       SetCurrentDirectory(Root);
       MKDir (Mainframe.Dateneingabe.DB_Kunden_Name.Text);
       Neu := 'Nein';
     end;

weiß jemand ne Lösung?

Mirko

[DeddyH]

Mach mal aus SetCurrentDirectory SetCurrentDir.

[MCOP2001DE]

Hallo DeddyH

Danke für die schnell Antwort.
Das war der Fehler jetzt klappt es

Danke


Mirko

[Christian Seehase]

Moin Mirko,

ich finde das etwas optimistisch programmiert

Falls jemand die Sys.ini von Hand geändert hat, kannst Du Dir so Probleme einhandeln.

Ich würd's eher so machen:

Delphi-Quellcode:

       ini := TInifile.Create(ExtractFilePath(ParamStr(0))+'Sys.ini');
       try
          // Erst einmal sicherstellen, dass der eingelesene Wert auf \ endet
          Root       := IncludeTrailingPathDelimiter(ini.ReadString('KBPfad', 'Dir', Root));
       finally
          ini.Free;
       end;

       // Schlägt ForceDirectories fehl, stimmt was mit dem Pfad nicht
       // z.B., weil die Ini-Datei manipuliert wurde, oder Rechte fehlen
       if ForceDirectories(Root+Mainframe.Dateneingabe.DB_Kunden_Name.Text) then begin
         Neu := 'Nein';
       end else begin
         // Fehler verarbeiten
       end;