AGB  ·  Datenschutz  ·  Impressum  







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

class in delphi

Ein Thema von mr.unbekannt · begonnen am 27. Jan 2007 · letzter Beitrag vom 28. Jan 2007
Antwort Antwort
mr.unbekannt

Registriert seit: 20. Jul 2005
Ort: Schwerin
152 Beiträge
 
Delphi 7 Professional
 
#1

class in delphi

  Alt 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
  Mit Zitat antworten Zitat
Benutzerbild von thkerkmann
thkerkmann

Registriert seit: 7. Jan 2006
Ort: Pulheim Brauweiler
464 Beiträge
 
Delphi 2010 Professional
 
#2

Re: class in delphi

  Alt 27. Jan 2007, 20:26
Hi,

zunächst mal würde ich aus deiner prozedur writetarif lieber den Constructor machen. So wie du sie programmiert hast, hat sie nämlich überhaupt keinen sinn.

Delphi-Quellcode:
constructor create(Link, Anbieter, Tarif, Gueltig, Nummer, Benutzername, Passwort,
                          Takt, Verbindungsentgeld, Woche, Samstag, Sonntag : string);
begin
  FLink := Link;
  FAnbieter := Anbieter;
  FTarif := Tarif;
  FGueltig := Gueltig;
  FNummer := Nummer;
  FBenutzername := Benutzername;
  FPasswort := Passwort;
  FTakt := Takt;
  FVerbindungsentgeld := Verbindungsentgeld;
  FAktiv := true;
  FWoche := Woche;
  FSamstag := Samstag;
  FSonntag := Sonntag;
end;
Gruss
Thomas Kerkmann
Ich hab noch einen Koffer in Borland.
http://thomaskerkmann.wordpress.com/
  Mit Zitat antworten Zitat
27. Jan 2007, 22:03
Dieses Thema wurde von "Christian Seehase" von "Programmieren allgemein" nach "Sonstige Fragen zu Delphi" verschoben.
Delphi-Frage
Muetze1
(Gast)

n/a Beiträge
 
#4

Re: class in delphi

  Alt 28. Jan 2007, 05:02
Und dieser Constructor kann komplett leer bleiben, da instanziieren der Klasse die internen Variablen auf Null initialisiert werden. Strings sind leer, Booleans sind False und Ordinaltypen sind 0.

Delphi-Quellcode:
constructor tarife.create;
begin
  // reicht vollkommen für den originalen Constructor
end;
  Mit Zitat antworten Zitat
Benutzerbild von semo
semo

Registriert seit: 24. Apr 2004
755 Beiträge
 
Delphi 2010 Professional
 
#5

Re: class in delphi

  Alt 28. Jan 2007, 06:36
wenn da wirklich nur leere strings übergeben werden dann ist das mit dem leeren constructor ok so, nur halt nicht wenn man doch schon mal einen tarif mit vorgegeben werten initialisieren will.
  Mit Zitat antworten Zitat
Benutzerbild von Jelly
Jelly

Registriert seit: 11. Apr 2003
Ort: Moestroff (Luxemburg)
3.741 Beiträge
 
Delphi 2007 Professional
 
#6

Re: class in delphi

  Alt 28. Jan 2007, 13:11
Was macht es denn für einen Sinn, in der WriteTarife Methode eine neue Instanz von Tarife zu erzeugen?
  Mit Zitat antworten Zitat
Benutzerbild von thkerkmann
thkerkmann

Registriert seit: 7. Jan 2006
Ort: Pulheim Brauweiler
464 Beiträge
 
Delphi 2010 Professional
 
#7

Re: class in delphi

  Alt 28. Jan 2007, 13:28
Zitat von Jelly:
Was macht es denn für einen Sinn, in der WriteTarife Methode eine neue Instanz von Tarife zu erzeugen?
und sie dann gleich wieder freizugeben
Thomas Kerkmann
Ich hab noch einen Koffer in Borland.
http://thomaskerkmann.wordpress.com/
  Mit Zitat antworten Zitat
Muetze1
(Gast)

n/a Beiträge
 
#8

Re: class in delphi

  Alt 28. Jan 2007, 14:57
Zitat von computer-glossar.de:
wenn da wirklich nur leere strings übergeben werden dann ist das mit dem leeren constructor ok so, nur halt nicht wenn man doch schon mal einen tarif mit vorgegeben werten initialisieren will.
Ich hatte mich auf seinen Constructor bezogen (welcher keine Parameter hat) und nicht den von anderen neu erstellten Constructor WriteTarife(). Ich hatte oben explizit auf seinen originalen Constructor hingewiesen.
  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 18:24 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