Hallo!

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

TMainForm:

zusammenfalten · markieren

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:

zusammenfalten · markieren

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:

markieren

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

Übergib doch die Form als Parameter

Hi,

versuch es doch mal mit
with MainFrm do cu

Oliver

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.

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

Zitat von MCXSC:

zusammenfalten · markieren

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}

zusammenfalten · markieren

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;

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^^

Zitat von MCXSC:

Doch tut es.

Hab es grad geeditet

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

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*

Ja, reicht.