Anwendung soll Ordner erstellen

[DiBo33]

Ich denke du führst dir mal mein Link zu Gemüte und arbeitest erst mal ein Grundlagen-Tutorial durch, alles andere hat keinen Wert.

[theo]

lerne erst seit 2 Jahren Pascal.

Wenn du in dem Tempo weitermachst, schaffst du bis zu Niklaus Wirths hundertstem Geburtstag dein erstes eigenes Programm.

[McCry]

@theo
Boa Alter!
Der Witz hat jetzt aber gessesen.

[theo]

@theo
Boa Alter!
Der Witz hat jetzt aber gessesen.

Wieso? Das war gar kein Witz.

[schnullerbacke]

Versuchs mal so:

Code: Alles auswählen

program testCrDir;
uses
  sysutils;
 
var
  DirStr: string;
 
begin
  DirStr:= 'MeinDir';
  CreatDir(DirStr);
end;

Im aktiven Verzeichnis sollte dann MeinDir als Unterverzeichnis auftauchen.

[McCry]

hi,
erstmal danke das du mir helfen willst.
Aber da , wie schon gesagt, mein Lehrer nicht viel drauf hat, weis ich nicht wie ich die Unit gestalten soll.
LG McCry

[l0lhaxx]

Hallo,

auch wenn das Thema schon älter ist hätte ich auch mal eine Frage dazu.
Ich möchte abfrage ob ein Verzeichnis schon besteht und wenn nicht sollen die fehlenden Ordner erstellt werden.

Dazu benutze ich ForceDirectories. Allerdings kann er mit dem DBEdit17.Caption nichts anfangen (DBEdit17 enthält den namen des letzten Ordners.
Wie löse ich das Problem korrekt?

Code: Alles auswählen

 
ForceDirectories ('L:\XXX\YYY\'DBEdit17.Caption);         //('L:\XXX\YYY\'DBEdit17.Caption)

Code: Alles auswählen

 
unit1.pas(586,96) Fatal: Syntax error, ")" expected but "identifier DBEDIT17" found
 

Vielen Dank vorab!

[schnullerbacke]

Die Einfachmethode.

Code: Alles auswählen

 
{$I+}
  ChDir(EditField.Text):
  if IOResult <> 0 then begin
    MkDir(EditField.Text);
  end;
{$I-}
 

[Requion]

Hallo l0lhaxx,

irgendwie haut der dir (laut highlight) den ganzen string kaputt.
Probier es mal ohne das DBEdit.

Und zur zusammenführung von strings + benutzen.

Code: Alles auswählen

'String' + Edit1.Text

[Lion]

Ist das ganze Unicode fähig?

[schnullerbacke]

Pardon!!

Code: Alles auswählen

 
{$I-}
  ChDir(Edit.Text);
  if IOResult <> 0 then begin
    ...
  end;
{$I+}
 

Sonst klappt vielleicht die Abfrage mit IOResult nicht. Da es normale Pascal-Strings sind macht er auch Unicode.

[Lion]

Was bedeutet hier

Code: Alles auswählen

{$I-} bzw. {$I+}

?

[schnullerbacke]

{$I-} = Schalte die Prüfung durch das System ab

{$I+} = Schalte Systemprüfung wieder ein

Normalerweise wird das Schiefgehen der Abfrage mit einer Exception durch das System beantwortet die man nicht abfangen kann. In IOResult steht in dem Fall nix und es gibt einen schweren Ausnahmefehler mit Programmabbruch. Durch das Abschalten kann man in IOResult(Systemvariable von Pascal) die Fehlernummer ermitteln und sehen was nicht richtig war.

Eleganter ist eine Exception, aber so geht es auf einfache Art auch. Man sollt das aber immer nur punktuell abschalten, also nicht am Anfang aus und bei Programmende ein. Sonst kommen keine Ausnahmefehler mehr und man sucht sich tot.

[l0lhaxx]

so funktioniert es übrigens auch....

Code: Alles auswählen

 
ForceDirectories ('L:\Pfad\Pfad\Pfad\'+DBEdit17.Caption);

[schnullerbacke]

@lolhaxx

Jupp, aber in dem Fall wird das Verzeichnis erstellt wenn es nicht existiert. Mit der anderen Methode wird erst mal nur auf Vorhandensein getestet. Komplett sieht das dann eher so aus:

Code: Alles auswählen

 
  GetDir(PathPuffer);
{$I-}
  ChDir(Edit.Text);
{$I+}
  if IOResult <> 0 then begin
    // hier Verzeichnis anlegen
    MkDir(Edit.Text);
    ChDir(Edit.Text);
    // alles was du möchtest hier
  end;
  ChDir(PathPuffer); // und wieder ins Körbchen