Button1 aus binären datei entfernen

[Pseudemys Nelsoni]

hi,

ich speichere einen record in einer datei ab (file of myrecord).
Wenn ich nun was per button 1 speichere steht folgendes ind er datei:

Zitat:

qwertzui
Oõ=Ô[s
;d$hÅ•ÍÜÄ¥ [e-mail] 9
Oî" ´j
5½ 5½ øô î" ôò ó ÷âÑw*j @X Hp ów9
Oÿÿ B u t t o n 1 P ` 
Ûsïw ów`  ¤ó xó fiïw9
O`  ö
¨õ œŽÒw9
O`  ö *j Äs ¸ŽÒw9
Oö B u t t o n 1 œŽÒw9
O`  Dö *j Äs
17.09.2004 B u t t o n 1 <7� 9
O

wieso steht da Button1 mit drin? kann ich das verhindern?

[Bernhard Geyer]

Etwas mehr Code wäre schön.
Du wirst einen Implementierungsfehler in deinem Speichercode haben.

[sakura]

Und nimm bitte die Leerzeichen aus der Überschrift - bedenke die Suche :roll:

...:cat:...

[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