AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Thema durchsuchen
Ansicht
Themen-Optionen

Button1 aus binären datei entfernen

Ein Thema von Pseudemys Nelsoni · begonnen am 17. Sep 2004 · letzter Beitrag vom 17. Sep 2004
Antwort Antwort
Benutzerbild von Pseudemys Nelsoni
Pseudemys Nelsoni

Registriert seit: 24. Dez 2002
Ort: Hamburg-Harburg
3.551 Beiträge
 
#1

Button1 aus binären datei entfernen

  Alt 17. Sep 2004, 15:33
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:
qwertzuiOõ=Ô[s
;d$hÅ•ÍÜÄ¥ asdf@ye.com 9Oî" ´j  5½ 5½ øô î" ôò ó ÷âÑw*j @X Hp ów9Oÿÿ B u t t o n 1 P `   Ûsïw ów`  ¤ó xó fiïw9O`  ö  ¨õ œŽÒw9O`  ö *j Äs ¸ŽÒw9O ö B u t t o n 1 œŽÒw9O`  Dö *j Äs
17.09.2004 B u t t o n 1 <7 9O

wieso steht da Button1 mit drin? kann ich das verhindern?
Mario
MSN: cyanide@ccode.de
  Mit Zitat antworten Zitat
Benutzerbild von Bernhard Geyer
Bernhard Geyer

Registriert seit: 13. Aug 2002
17.188 Beiträge
 
Delphi 10.4 Sydney
 
#2

Re: B u t t o n 1 entfernen

  Alt 17. Sep 2004, 15:42
Etwas mehr Code wäre schön.
Du wirst einen Implementierungsfehler in deinem Speichercode haben.
Windows Vista - Eine neue Erfahrung in Fehlern.
  Mit Zitat antworten Zitat
Benutzerbild von sakura
sakura

Registriert seit: 10. Jun 2002
Ort: Unterhaching
11.412 Beiträge
 
Delphi 12 Athens
 
#3

Re: B u t t o n 1 entfernen

  Alt 17. Sep 2004, 15:51
Und nimm bitte die Leerzeichen aus der Überschrift - bedenke die Suche

......
Daniel Lizbeth
Ich bin nicht zurück, ich tue nur so
  Mit Zitat antworten Zitat
Benutzerbild von Pseudemys Nelsoni
Pseudemys Nelsoni

Registriert seit: 24. Dez 2002
Ort: Hamburg-Harburg
3.551 Beiträge
 
#4

Re: B u t t o n 1 entfernen

  Alt 17. Sep 2004, 15:54
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
Mario
MSN: cyanide@ccode.de
  Mit Zitat antworten Zitat
Antwort Antwort


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 23:58 Uhr.
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz