Zitat:
Delphi-Quellcode:
function TDataLocation.ConfigFile(out aConfigFileName : string; const aDefaultFileName : string = '') : Boolean;
var
aFound : Boolean;
begin
Result := False;
if aDefaultFileName > '' then
FDataFile := aDefaultFileName;
if not Result then
Result := FindDataCmd;
if not Result then
Result := FindConfigCmd;
if not Result then
Result := FindLocalConfig;
if not Result then
Result := FindLocalFile;
if not Result then
Result := FindUserDataFile;
aConfigFileName := FDataFile;
end;
Würde ich anders schreiben, dann ist es kompakter, aber vielleicht nicht so leicht zu verstehen. BTW: Die Variable "aFound" ist überflüssig.
Delphi-Quellcode:
function TDataLocation.ConfigFile(out aConfigFileName : string; const aDefaultFileName : string = '') : Boolean;
begin
if aDefaultFileName > '' then
FDataFile := aDefaultFileName;
try
Result := True;
If FindDataCmd then exit;
If FindConfigCmd then exit;
If FindLocalConfig then exit;
If FindLocalFile then exit;
If FindUserDataFile then exit;
Result := False;
finally
aConfigFileName := FDataFile;
end;
end;