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Å•ÍÜÄ¥ asdf@ye.com 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?

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

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

......

moin bernhard,

hier ist er:

zusammenfalten · markieren

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:

zusammenfalten · markieren

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