Programmteile in extra Unit auslagern

[kalmi01]

Hi

Delphi-Quellcode:

unit uMain;
{$I myDebug.pas}

  interface
    uses
      Windows, Messages, Dialogs, SysUtils, Forms, StdCtrls, Classes, Controls, ExtCtrls,
      StShlCtl, SRChkBox, ovcbase, ovcmeter, LEDPaint, dynForm;

    type
      TMain = class(TForm)
......
    end;

    var
      Main        : TMain;
      SavCursor   : TCursor;

  implementation
    {$R *.dfm}

    uses
      uUtil;   <=== das brauchst Du !!!

Dann Aufruf z.B.:

Delphi-Quellcode:

uUtil.Demo := true;

uUtil.machwas(SavCursor);

Willst Du in der ausgelagerten Unit auf Variablen von Main zugreifen, musst Du entweder die Main-Unit in der ausgelagerten als "uses" deklarieren, oder mit
procedure test (var value : irgendwas); arbeiten und die Werte "public" übergeben und zurückholen.