moin,
wo ist hier der fehler?
Delphi-Quellcode:
function TDataBase.AccountExists(const ANickname: string): boolean;
var
DBFileItem: TDBFileItem;
begin
result := false;
AssignFile(FDBFile, FFilePath);
try
if FileExists(FFilePath) then
ReSet(FDBFile)
else exit;
while not EOF(FDBFile) do
begin
read(FDBFile, DBFileItem);
result := DBFileItem.Nickname = ANickname;
if result then exit;
end;
finally
CloseFile(FDBFile);
end;
end;
der fehler kommt nur wenn die datei noch nicht existiert, wenn sie existiert kommt der fehler nicht, aber ich finde nicht wo der fehler da ist?