Jeg har med interesse læst det om class filer som er beskrevet her i forum.
Men jeg er ikke sikker på at jeg forstår det helt.
Er en class bare? at tilføje en ny unit og skrive noget i den ?
Klasser er en måde at beskrive ting på. Sådan groft sagt.
Klasser er grundstenen i den programmeringsform der hedder Objekt-Orienteret Programmering.
Delphi er som udgangspunkt OOP. Dvs. at f.eks. forme er klasser. En klasse benyttes ved at skabe en instans af klassen, kaldet et objekt. Dette objekt besidder nogle metoder og egenskaber som man så kan kalde. Et simpelt (tænkt og fuldstændig ubrugelig i praksis) eksempel på en klasse kunne være:
interface
type
TMinKlasse = Class(TObject)
private // disse kan kun ses af klassen selv
// To tal værdier som vi kan regne på
FValue1 : Integer;
FValue2 : Integer;
protected // Disse kan kun ses af klassen selv og evt. arvinge
// Her er ingenting.
public // Disse kan ses af alle.
// regne funktioner
function Divider : Integer;
function Multiplicer : Integer;
function Adder : Integer;
function Substraher : Integer;
property Value1 : Integer read FValue1 write FValue1;
property Value2 : integer read FValue2 write FValue2;
end;
implementation
function TMinKlasse.Divider : Integer;
begin
Result := FValue1 div FValue2;
end;
function TMinKlasse.Multiplicer : Integer;
begin
Result := FValue1 * FValue2;
end;
function TMinKlasse.Adder : Integer;
begin
Result := FValue1 + FValue2;
end;
function TMinKlasse.Substraher : Integer;
begin
Result := FValue1 - FValue2;
end;
Du ville så kunne bruge denne klasse på følgende måde:
...
var
MinKlasse : TMinKlasse; // Reference til en instans af klassen TMinKlasse
Resultat : integer;
begin
MinKlasse := TMinKlasse.Create; // Skal altid gøres ved klasse
MinKlasse.Value1 := 10;
MinKlasse.Value2 := 5;
Resultat := MinKlasse.Divider; // Resultat er 10 / 5 = 2
Resultat := MinKlasse.Multiplicer; // Resultat er 10 * 5 = 50
Resultat := MinKlasse.Adder; // Resultat er 10 + 5 = 15
Resultat := MinKlasse.Substraher; // Resultat er 10 - 5 = 5
MinKlasse.Free; // Nedlæg objektet - skal altid gøres når man er færdig.
end;
...
Hvad er det for noget jeg kan læse om i en bog, om at jeg bare ? kan trykke :
Ctrl+Shift+C og så laver delphi resten ?
En gang fik jeg den til det ,men jeg kan ikke huske hvor og hvordan øv.
Jeg har Delphi 4.0
Ctrl+Shift+C anvendes til at få Delphi til at fuldføre et interface. Dvs. når man har defineret sine funktioner og egenskaber stiller man cursoren et eller andet sted i klassen og trykker taste-kombinationen. Derved danner Delphi implementationen af alle funktioner og procedurer automatisk. Denne mulighed var tilgængelig første gang i Delphi 4 Professional. Den er ikke tilgængelig i Standard/Personal udgaver.
---
Thomas Due
tdue@mail.dk