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');
...