Procedure im Object

[youuu]

Hi,

ich habe ein Object.

Delphi-Quellcode:

  TCompanySize = class
  Private
    const Small = 'Klein';
    const Middle = 'Mittel';
    const Large = 'Groß';
  Public
    Procedure CompanySizeAdd(ComboBox: TAdvComboBox; Customer: TObject; OldSize: string);
  End;

nun möchte ich dir Procedure in einer anderen Unit aufrufen, doch das Funktioniert nicht.
[DCC Fehler] UnitKundenInfo.pas(259): E2003 Undeklarierter Bezeichner: 'CompanySizeAdd'

Unit in der das Objekt liegt habe ich allerdings eingebunden.
Was habe ich vergessen?

[guidok]

Hast du auch eine Instanz der Klasse erzeugt?

Delphi-Quellcode:

company : TCompanySize;

...

company := TCompanySize.Create;
company.SizeAdd //usw...

[bigben37]

Zitat:

Zitat von guidok

Hast du auch eine Instanz der Klasse erzeugt?

Dann müsst aber eine AV auftreten, aber er kann den Code gar nicht kompilieren.

Du musst das halt so aufrufen:

Delphi-Quellcode:

var
CompanySize: TCompanySize 
begin
.
.
.

CompanySize.CompanySizeAdd(...);

Edit: Zeig uns dochmal, wie du das in der anderen Unit aufrufst.

[Aphton]

[quote="bigben37"]

Zitat:

Zitat von guidok

Du musst das halt so aufrufen:

Wäre nicht schlecht, zu erwähnen, dass Klassen erst per Create erstellt werden muss

Delphi-Quellcode:

var
  KlassenInstanz: TKlassenTyp;

...

  KlassenInstanz := TKlassenTyp.Create;
  KlassenInstanz.Procedure1();
  KlassenInstanz.Free; // sollte man später auch nicht vergessen ...

MfG

[youuu]

Edit:

Hat sich erledigt Funktioniert.
Danke an Aphthon, genau das war es ;)

[SimStar001]

Zitat:

Zitat von youuu

Hi,

Delphi-Quellcode:

  TCompanySize = class
  Private
    const Small = 'Klein';
    const Middle = 'Mittel';
    const Large = 'Groß';
  Public
    Procedure CompanySizeAdd(ComboBox: TAdvComboBox; Customer: TObject; OldSize: string);
  End;

hast du denn überhaupt die Funktion im Interface Teil geschrieben???

[guidok]

Zitat:

Zitat von Aphton

Wäre nicht schlecht, zu erwähnen, dass Klassen erst per Create erstellt werden muss

Hm, steht doch oben... :roll: