Forum: Algorithmen, Datenstrukturen und Klassendesign
Delphi
by Jasocul,
19. Okt 2022
Ich hasse unnötige Exits (In diesem Fall noch übersichtlich, aber ich habe schon schlechte Erfahrungen bei größeren Methoden damit gemacht):
const
DirArray: array of String = ('H:\testend\profil1', 'H:\testend\profil2', 'H:\testend\profil3', 'H:\testend\profil4');
function DirCheck(const AIndex: Integer): Boolean;
begin
Result := ((AIndex >= Low(DirArray)) and (AIndex <=...
Forum: Algorithmen, Datenstrukturen und Klassendesign
Delphi
by Jasocul,
19. Okt 2022
Bin mir gerade nicht sicher was ForceDirectory macht, falls das Verzeichnis bereits existiert. Es kann dann ja nicht erzeugt werden. Ist das Ergebnis dann auch False? Dann wäre die Kapselung in einer Function, wie ich es vorgeschlagen habe, besser. Abgesehen davon muss man berücksichtigen, das ForceDirectory immer einen voll qualifizierten Pfad benötigt (steht auch in der Doku). Das ist im...
Forum: Algorithmen, Datenstrukturen und Klassendesign
Delphi
by Jasocul,
19. Okt 2022
Ich gehe mal davon aus, dass immer nur ein Profil aktiv sein kann. Da würde ich sofort auf einen Enumerator zurückgreifen, um die 4 if..then rauszuschmeißen und durch ein case ersetzen. Bei einem case wird sofort nach dem richtigen Fall der Rest übersprungen. Bei deiner Variante werden immer alle Profile geprüft.
Diesen Teil:
if not DirectoryExists(p1String) then begin
...