Funktion in anderer Unit

[The Lord]

Zitat von Coder1990:

Hast du in Unit1 die Procedure auch in Implementation Deklariert (also mit begin end und befehlszeilen)?
Steckt die Procedure in Unit1 in einer Klasse?
Ist die Procedure in Unit1 im "var" Bereich deklariert (falls du keine Klasse in der Unit hast)?

MfG

Delphi-Quellcode:

...

implementation

{$R *.dfm}


procedure PHPVar(RichEdit: TRichEdit);
var
  isVar: Boolean;
  i: Integer;
  s: String;
begin
  for i := 0 to Length(RichEdit.Text) do
  begin

...

Aufruf:

Delphi-Quellcode:

procedure TForm2.Button5Click(Sender: TObject);
begin
  TForm4.PHPVar(RichEdit1);
end;