selbsterstellte unit + aufruf einer procedure

[bjacke]

Hi,
ich möchte eine unit mit procedure aufrufen, aber im Hauptformular finde ich nicht die möglichkeit zum Aufrufen.

mainform

Delphi-Quellcode:

uses option;
...
procedure TForm1.Combo1Change(Sender: TObject);
begin
option.???
end;

option

Delphi-Quellcode:

unit option;

interface

uses
MSXML2_TLB,windows,SysUtils;

type
  Toption = class
  procedure preference;
  private

  public
  
  end;

implementation
uses mainform;

procedure Toption.preference;
Var   pref,actual_pref:IXMLDOMnode; opt_path:string;
Begin
bla;
End;
end.

Edit: Ich kriege auch immer dieMeldung duplicated recources, bin schon am suchen .

[jim_raynor]

Nun. Da musst du erstmal ein Objekt von TOption erstellen. Aber willst du das wirklich. Du kannst dir das ganze Objektkram sparen und einfach folgendes machen:

Delphi-Quellcode:

unit option;

interface

uses
MSXML2_TLB,windows,SysUtils;

  procedure preference;

implementation

uses mainform;

procedure preference;
Var   pref,actual_pref:IXMLDOMnode; opt_path:string;
Begin
  bla;
End;

end.

Wenn du es wirklich mit Objekt machen willst, musst du erstmal ein Objekt anlegen.

Delphi-Quellcode:

var
  Opt: TOption;
begin
  Opt:=TOption.Create;
  Opt.preference;
  .
  .
  // Objekt löschen
  Opt.Free;
end;

[bttb930]

die procedure ist keine procedure der unit option sondern eine der klasse toption.

du kannst sie entweder ohne das ganze class-gedöns in der unit option deklarieren oder mußt es ganz anders machen

[Dax]

Dazu musst du in deinem Code erst ein Objekt Toption erstellen. Dein Code müsste entsprechend so aussehen:

Delphi-Quellcode:

procedure TForm1.Combo1Change(Sender: TObject);
var options: Toption;
begin
  options := Toption.Create;
  options.preference;
end;

Ausserdem musst du deine Prozedur noch im public oder im published-Teil der Klasse deklarieren.

[Tyrael Y.]

Im Hauptform

Delphi-Quellcode:

uses option;
...
procedure TForm1.Combo1Change(Sender: TObject);
var myOption: TOption;
begin
  myOption := TOption.Create;
  try
    myOptiom.Preference(....);
  finally
    myOption.Free;
  end;  
end;

im der Option unit

Delphi-Quellcode:

unit option;

interface

uses
MSXML2_TLB,windows,SysUtils;

type
  Toption = class
  private

  public
    procedure preference;  //public damit du von "draussen" darauf zugreifen kannst 
  end;

implementation
uses mainform;

procedure Toption.preference;
Var   pref,actual_pref:IXMLDOMnode; opt_path:string;
Begin
bla;
End;
end.

mfg


Edit: Bin zu langsam -.-