Procedure mit TForm1 in extra Unit?

[Sir Rufo]

Ich wollte nur damit sagen, dass das so nicht funktioniert, bzw. so definiert überflüssig ist ...

Zitat von MCXSC:

Delphi-Quellcode:

unit Mainform;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics [...];

type
  TMainFrm = class(TForm)
    [...]
  private
    [...]
  public
    [...]
  end;

var
  MainFrm: TMainFrm;  

implementation

uses UnitXYZ, [...];

{$R *.dfm}

Delphi-Quellcode:

unit UnitXYZ;

interface

procedure TuDas(NehmeDenString: String;);

implementation

uses
  MainForm [...];

procedure TuDas(NehmeDenString: String;);
begin
with MainForm do begin  /// <<< Das tut aber so nicht !!!!! Hmmm, tut eigentlich schon, ist aber Quatsch ...
[...]
end;
end;