Procedure TForm.xyz in Unit

[mkinzler]

Dann verwende Vererbung oder die Objektablage.

[Fussball-Robby]

Und wie geht das?

[mkinzler]

Vererbung?
Oder die Objektablage?

[Fussball-Robby]

Zitat:

Zitat von mkinzler

Vererbung?
Oder die Objektablage?

Kommt drauf an, was in diesem Fall geeigneter ist :wink:

[mkinzler]

Du könntest dir eine eigene Formklasse ableiten und deine Formulare von dieser ableiten.

[Fussball-Robby]

Also in meiner Unit so:

Delphi-Quellcode:

interface

type
  TUForm = class(TForm)
    Procedure xyz(S: String);
  end;


implementation

Procedure TUForm.xyz(S: String);
begin
end;

Und im Projekt:

Delphi-Quellcode:

Uses UMyCodes;
//[..]
type
  TForm1 = class(TUForm)
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

Stimmt das so?

[mkinzler]

Ja. Bei neueren Delphiversionen könntest du auch einen ClassHelper verwenden.

[Fussball-Robby]

Gibts bei Delphi 5 bestimmt mal wieder noch nicht :wink:
Danke, für die Hilfe, ich werds jetzt so machen.

Mfg

[mkinzler]

Nein, erst ab D10.

[Fussball-Robby]

Ich hab noch eine klitzekleine Frage :wink:
Ich hatte ja jetzt das hier in meiner Unit:

Delphi-Quellcode:

Type
  TUForm = class(TForm);
    Procedure xyz //[..]

Das hat natürlich den Nachteil, dass ich in jedem Projekt die Form von TUForm ableiten müsste. Ich hab jetzt mal das ausprobiert:

Delphi-Quellcode:

Type
  TUForm = class(TForm);
  TForm = class(TUForm)
    Procedure xyz //[..]

Und das funktioniert so. Die Unit lässt sich kompilieren und ich kann die Funktionen aus der MainUnit mit einer ganz normalen TForm nutzen. Kann ich das so machen, oder gibts da irgebndwelche Nachteile/Fehlverhalten?

Mfg

Edit: Fipptehler :wink: