Forum: Algorithmen, Datenstrukturen und Klassendesign
Delphi
by KodeZwerg,
19. Okt 2022
Es gibt True zurück wenn es den Pfad erstellen konnte bzw wenn der Pfad bereits existiert.
Forum: Algorithmen, Datenstrukturen und Klassendesign
Delphi
by KodeZwerg,
19. Okt 2022
const
DirArray: array of String = ('H:\testend\profil1', 'H:\testend\profil2', 'H:\testend\profil3', 'H:\testend\profil4');
function DirCheck(const AIndex: Integer): Boolean;
begin
if ((AIndex < Low(DirArray)) or (AIndex > High(DirArray))) then
Exit(False);
Result := ForceDirectories(DirArray);
end;
Forum: Algorithmen, Datenstrukturen und Klassendesign
Delphi
by KodeZwerg,
19. Okt 2022
Ich würde das CreateDir mit ForceDirectories austauschen (und es auch als Prüfung verwenden)
also
case Profil of
p1: begin
if ForceDirectories(p1String) then begin
//andere Sachen machen, auch den Pfad p1String verwenden
end;
end;
//etc...