Procedure mit TForm1 in extra Unit?

[MCXSC]

Hallo!

Ich habe eine kurze Frage, irgendwie bin ich grade zu deppert dafür. Ich habe z.B. folgenden Aufbau:

TMainForm:

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}

Nun habe ich eine Unit, wie folgt:

Delphi-Quellcode:

unit UnitXYZ;

interface

procedure TuDas(NehmeDenString: String;);

implementation

uses
  MainForm [...];

procedure TuDas(NehmeDenString: String;);
begin
with MainFrm do begin
[...]
end;
end;

Die Procedure wird aus verschiedenen anderen Forms ausgeführt. Allerdings hätte ich gerne das "with MainForm do begin ... end;" weg; die gesamte Procedure soll sich eben auf "TMainForm" beziehen. Ich bekomme es nur nicht hin...

Kann mir jemand einen Tipp geben? Ich weiß, dass die Procedur irgendwie so aussehen muss:

Delphi-Quellcode:

procedure TMainFrm.TuDas(NehmeDenString: String;);
begin
[...]
end;

Aber ich bekomm es eben nicht zum laufen, da die Procedure ja irgendwo nochmal deklariert werden muss...

[mkinzler]

Übergib doch die Form als Parameter

[Sir Rufo]

Hi,

versuch es doch mal mit
with MainFrm do cu

Oliver

[MCXSC]

Zitat von mkinzler:

Übergib doch die Form als Parameter

Hm?

Zitat von Sir Rufo:

Hi,

versuch es doch mal mit
with MainFrm do

Danke, aber so sieht es ja bisher aus. Ich würde das aber gerne etwas kompakter bauen.

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

[MCXSC]

Doch tut es.

with MainFrm do ...lässt nur eine Codezeile zu, die sich auf's MainForm bezieht...

with MainFrm do begin [...] end; ...bezieht sich auf den gesamten Block zwischen begin und end...

Ich weiß, es ist sinnfrei, eine gesamte Procedure so "einzumauern", aber genau das versuche ich ja grade zu lösen^^

[Sir Rufo]

Zitat von MCXSC:

Doch tut es.

Hab es grad geeditet

[Sir Rufo]

Zitat von MCXSC:

Die Procedure wird aus verschiedenen anderen Forms ausgeführt. Allerdings hätte ich gerne das "with MainForm do begin ... end;" weg; die gesamte Procedure soll sich eben auf "TMainForm" beziehen. Ich bekomme es nur nicht hin...

So wie du das deklariert hast bezieht sich alles auf die UNIT MainForm aber nicht auf das FORMULAR MainFrm!!!

Was ist denn der tiefere Sinn dafür?

Entweder ich habe ein proc oder func, die direkt mit einem Formular verknüpft ist, dann nehme ich die in die Klasse direkt mit auf, oder die ist generisch, dann meinetwegen in eine eigene Unit und dann das Formular als Parameter mit.

Und trotzdem wirst du dann mit with ... do arbeiten werden wollen (nicht müssen).

cu

Oliver

[MCXSC]

Zitat von Sir Rufo:

So wie du das deklariert hast bezieht sich alles auf die UNIT MainForm aber nicht auf das FORMULAR MainFrm!!!

Was ist denn der tiefere Sinn dafür?

Kleinerer Fehler. MainForm = MainFrm. Hab mich beim schnellen tipseln der Procedure halt vertippt.

Zitat von Sir Rufo:

Entweder ich habe ein proc oder func, die direkt mit einem Formular verknüpft ist, dann nehme ich die in die Klasse direkt mit auf, oder die ist generisch, dann meinetwegen in eine eigene Unit und dann das Formular als Parameter mit.

Genau das versuche ich doch... o_O

Wenn ich eine eigene Funktion direkt in MainForm eingebe, reicht es, wenn ich die Procedure nochmals im "private" deklariere. *denk*

[Die Muhkuh]

Ja, reicht.