Button1 aus binären datei entfernen

[Pseudemys Nelsoni]

moin bernhard,

hier ist er:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  TSDataBase: TTSDataBase;
  DBDataRec: TDBDataRec;
begin
  TSDataBase := TTSDataBase.Create('C:\hi.db');
  try
    TSDataBase.AddAccount('testnick', 'testpass', 'testmail');
  finally
    TSDataBase.Free;
  end;
end;

und hier noch die function der klasse:

Delphi-Quellcode:

function TTSDataBase.AddAccount(Nickname, Password, Email: string): boolean;
var
  line: TDBMD5DataRec;
  DBFile: TDBFile;
begin
  result := false;
  AssignFile(DBFile, fFilePath);
  if FileExists(fFilePath) then
    ReSet(DBFile)
  else ReWrite(DBFile);
  while not EOF(DBFile) do
  begin
    Read(DBFile, line);
    if Nickname = DBDataRec.Nickname then
      exit;
  end;
  line.Nickname := DBDataRec.Nickname;
  line.Password := MD5String(DBDataRec.Password);
  line.EMail := DBDataRec.EMail;
  line.RegTime := DateToStr(Now);
  Seek(DBFile, FileSize(DBFile));
  Write(DBFile, line);
  CloseFile(DBFile);
  result := true;
end;

das ist alles