Wiederkehrende Proceduren ausgliedern

[Matt]

Hallo,

habe die die Funktion fertig, aber ich komm nicht drauf, wie ich die jetzt aufrufen kann von einem anderen Formular!!!

Weiß jemand Rat?

Gruß Matt

[nailor]

einfach in der unit, in der der Aufruf erfolgt, bei USES die andere unit (die mit der Funktion drin) dabeischreiben, und dann ganz normal aufrufen, mit den Parametern, für die du sie vorher programmiert hast

[Luckie]

Die Unit, in der sie sind zu der Unit hinzufügen aus der der Aufruf erfolgt. Desweiteren müssen die Funktions / procedur Prototypen im Interface Abschnitt der sepaarten Unit bekannt gemacht werden.

[Matt]

Hatte ich auch gedacht, nur dann kommt die Meldung "undifinierter Bezeichner"

Funktion:
Function WordBrief(Dok,Schrift,Anrede,Firma,Name,Strasse,Pl z,Ort,Brief:string)WORD;
bla... bla...


Aufruf:
WordBrief('Neu','Arial',Anrede,Firma,Name,Strasse, Plz,Ort,Brief:string;

[Luckie]

Und hats du die Funktion auch im Interface Abschnitt eingetragen?

[Matt]

Wo denn da genau ???
und wie ???

[Dagon]

Zwischen Interface und Implementation.

[nailor]

Delphi-Quellcode:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Spin, INIFiles, ShellAPI, Math, ComCtrls, ExtCtrls; //<--- daaaaaaaaaaaa dazu!

type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;

[Luckie]

Nein nicht dazu. Die Funktion muss

Code:

unit Unit[b]2[/b];

interface

uses
  Windows,  SysUtils;

[color=red]function WriteLetter(..., ..., ...): Integer;  // hier![/color]

implementation

da bekannt gemacht werden, damit sie Unit1 kennt.

[Matt]

Habe es jetzt hinbekommen!
Vielen Dank für Eure Geduld!

Gruß Matt