Funktion ohne Result?

[himitsu]

Also eigentlich denkst du richtig ... denke ich mal


Du könnest ja auch andersrum versuchen - mit Except, das sollte auch gehn:

Delphi-Quellcode:

function DeleteUser(user: String): Boolean; 
var 
Identities: TIniFile; 
begin 
Result:=True; 
Identities:=TIniFile.Create(ExtractFilePath(paramstr(0))+'\Identities.dat'); 
Try 
   Identities.EraseSection(user); 
Except
   Result:=False;         
end; 
Identities.Free; 
end;

Man könnte auch mal die Code-Optimierung (teilweise) abstellen:

Delphi-Quellcode:

...
begin
{$O-} Result:=False; {$O+}
Identities:=TIniFile.Create(ExtractFilePath(paramstr(0))+'\Identities.dat');
...