class in delphi

[mr.unbekannt]

Hi@all

ich habe ein kleines Problem. Ich bräuchte ein paar zeilen code und ich weiß nicht wie ich es machen soll. Ich bräuchte nch einen Counter, eine read und eine write procedure in ein file usw. halt die standart proceduren. der aufbau is bis jetzt so:

Delphi-Quellcode:

 type tarife = class
   private
     FLink : string;
     FAnbieter : string;
     FTarif : string;
     FGueltig : string;
     FNummer : string;
     FBenutzername : string;
     FPasswort : string;
     FTakt : string;
     FVerbindungsentgeld : string;
     FAktiv : boolean;
     FWoche : string;
     FSamstag : string;
     FSonntag : string;

     FCount : integer;
   protected
     property Link: string read FLink write FLink;
     property Anbieter: string read FAnbieter write FAnbieter;
     property Tarif: string read FTarif write FTarif;
     property Gueltig: string read FGueltig write FGueltig;
     property Nummer: string read FNummer write FNummer;
     property Benutzername: string read FBenutzername write FBenutzername;
     property Passwort: string read FPasswort write FPasswort;
     property Takt: string read FTakt write FTakt;
     property Verbindungsentgeld: string read FVerbindungsentgeld write FVerbindungsentgeld;
     property Aktiv: boolean read FAktiv write FAktiv;
     property Woche: string read FWoche write FWoche;
     property Samstag: string read FSamstag write FSamstag;
     property Sonntag: string read FSonntag write FSonntag;
   public
     destructor Destroy; override;
     constructor create;
     procedure WriteTarif(Link, Anbieter, Tarif, Gueltig, Nummer, Benutzername, Passwort,
                          Takt, Verbindungsentgeld, Woche, Samstag, Sonntag : string);
   end;

implementation

constructor tarife.create;
begin
  FLink := '';
  FAnbieter := '';
  FTarif := '';
  FGueltig :='';
  FNummer := '';
  FBenutzername := '';
  FPasswort := '';
  FTakt := '';
  FVerbindungsentgeld := '';
  FAktiv := false;
  FWoche :='';
  FSamstag := '';
  FSonntag := '';
  FCount := 0;
end;

procedure tarife.WriteTarif(Link, Anbieter, Tarif, Gueltig, Nummer, Benutzername, Passwort,
                          Takt, Verbindungsentgeld, Woche, Samstag, Sonntag : string);
var
  daten : tarife;
  i :integer;
begin
  daten := tarife.create;
  daten.FLink := Link;
  daten.FAnbieter := Anbieter;
  daten.FTarif := Tarif;
  daten.FGueltig := Gueltig;
  daten.FNummer := Nummer;
  daten.FBenutzername := Benutzername;
  daten.FPasswort := Passwort;
  daten.FTakt := Takt;
  daten.FVerbindungsentgeld := Verbindungsentgeld;
  daten.FAktiv := true;
  daten.FWoche := Woche;
  daten.FSamstag := Samstag;
  daten.FSonntag := Sonntag;
  //daten hinzufügen;
  daten.Free;
end;

Danke schon mal im voraus