Registriert seit: 20. Jul 2005
Ort: Schwerin
152 Beiträge
Delphi 7 Professional
|
class in delphi
27. Jan 2007, 20:05
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
|
|
Zitat
|