Ausgliedern von Functionen in externe Unit

[Tyrael Y.]

Delphi-Quellcode:

unit SuperFunktionen...

  function HoleBetreffzeileVonEMail(): string;

end.


unit VerbinderKlasse
uses 
 ...meinTollesFormularUnit, SuperFunktionen...
...
type
  TVerbinderKlasse = class
  ...
   meinFormular: TMeinFormular;
  ...
    procedure SetzeEMailBetreffZeile();

implementation

procedure TVerbinderKlasse.Create()
begin
..  
  meinFormular = TMeinFormular.Craete(..
..
end;


procedure SetzeEMailBetreffZeile();
begin
  meinFormular.Betreffzeile := HoleBetreffzeileVonEMail();
end;
...

ein Beispiel...hoffe es ist verständlich