E/A Fehler 103

[Duffy]

Hallo Pseudemys Nelsoni,
versuch es mal so

Delphi-Quellcode:

function TDataBase.AccountExists(const ANickname: string): boolean;
var
  DBFileItem: TDBFileItem;
begin
  Result := False;
 
  if not(FileExists(FFilePath)) then
    Exit;

  AssignFile(FDBFile, FFilePath);

  Resset(FDBFile);  // <<<==--- Sorry den hatte ich vergessen

  while not EOF(FDBFile) do
  begin
    Read(FDBFile, DBFileItem);
    Result := DBFileItem.Nickname = ANickname;
    if Result then 
      Exit;
  end;
  
  CloseFile(FDBFile);
end;

bye
Claus