Thema: Delphi Klassen allgemein

Einzelnen Beitrag anzeigen

Benutzerbild von Phoenix
Phoenix
(Moderator)

Registriert seit: 25. Jun 2002
Ort: Hausach
7.641 Beiträge
 
#7

Re: Klassen allgemein

  Alt 31. Mai 2004, 13:29
Delphi-Quellcode:
TTest = Class
   private
      m_value: integer;
   private
      function getMethode: integer;
      procedure setMethode(a_val: integer);
   public
      property Value: integer read getMethode write setMethode;
end;

function TTest.getMethode: integer;
begin
   result := m_value;
end;

procedure TTest.setMethode(a_val: integer);
begin
   m_value := a_val;
end;
Du hast also für deine Klasse (bzw. für die Eigenschaften) jeweils eine get- und eine set-methode, die den Wert auslesen bzw. schreiben. Diese Methoden geben genau den Datentyp zurück bzw. nehmen nur genau diesen Datentyp an den die Eigenschaft auch besitzt.
Sebastian Gingter
Phoenix - 不死鳥, Microsoft MVP, Rettungshundeführer
Über mich: Sebastian Gingter @ Thinktecture Mein Blog: https://gingter.org
  Mit Zitat antworten Zitat