selbsterstellte unit + aufruf einer procedure

[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 -.-