Klasser

I din FormCreate skal du lave følgende :

test := Ttest.create;

Du bør iøvrigt putte din test variable op i din TForm dekleration.  Som det er har du et problem med at genbruge class\'en TForm, dvs. ved at kopiere den, til et andet program, idet den er bundet til en globalvariabel Test. 
Jeg ville ha\' lavet TForm således:


Type
  TForm1 = class(TForm)
    ...  // Cut div. controls.
  private
    { Private declarations }
    FTest : TTest;
  public
    { Public declarations }
  end;

Bemærk F\'et foran navnet.  Det er en konvention at private variable (kaldet Class Fields på engelsk) starter med \'F\' (for Field).

Hvis du så har brug for at kunne \'se\' test fra andre objecter/steder i programmet, hvilket nu er umuligt idet den er blevet private, så kan du \'eksportere\' den som en property.  Du skal så vælge om det skal være en public, protected eller published property (se online hjælpen for forskellen).  Jeg vælger normalt at sætte den til public.  Altså bliver TForms code nu:

Type
  TForm1 = class(TForm)
    ...  // Cut div. controls.
  private
    { Private declarations }
    FTest : TTest;
  public
    { Public declarations }
    Property Test : TTest Read FTest Write FTest;
  end;

Evt. kan du bruge getter/setter metoder... men det bliver en anden gang...

Peter