Funktion in anderer Unit

[The Lord]

Hi,

ich habe eine längere Delphi-Pause eingelegt. Bin wieder mit der Turbo Explorer Version eingestiegen. Ich habe eine Funktion in Unit1 und möchte diese gerne in Unit2 benutzen.

Dafür habe ich bei Unit2 in der USES Klausel die Unit1 eingebunden.

[Pascal Fehler] Unit1.pas(15): E2065 Ungenügende Forward- oder External-Deklaration: 'TForm4.PHPVar'

Was habe ich in Unit1 falsch gemacht?

[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

[mkinzler]

Ich vermute mal du hast die Methode als freie Prozedur implementiert. Schreibe im Implementierungs-Abschnitt TForm4. davor

[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;

[taaktaak]

Ist

Zitat:

procedure PHPVar(RichEdit: TRichEdit);

im Interface-Abschnitt eingetragen?

[nahpets]

so sollte es gehen

Delphi-Quellcode:

... 
procedure PHPVar(RichEdit: TRichEdit); 

implementation 

{$R *.dfm} 


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

[angos]

Zitat von mkinzler:

Ich vermute mal du hast die Methode als freie Prozedur implementiert. Schreibe im Implementierungs-Abschnitt TForm4. davor

mkinzler hat recht.

im interface-teil sollte das so stehe:

Delphi-Quellcode:

type
  TForm4 = class(TForm)
  public
    procedure PHPVar(RichEdit: TRichEdit);
  end;
...

im implementation-Teil sollte das so stehen:
procedure TForm4.PHPVar(RichEdit: TRichEdit); Edit: @nahpets: nicht ganz. Bei dir ist die Procedur nicht innerhalb der Klasse TForm4 deklariert

[taaktaak]

Na, eigentlich nicht...
Wenn das im Implementation-Abschnitt 'ne Methode sein soll, dann muss diese im Interface als Klassenmethode erscheinen - oder?

//edit : jawoll!

[The Lord]

Zitat von taaktaak:

Ist

Zitat:

procedure PHPVar(RichEdit: TRichEdit);

im Interface-Abschnitt eingetragen?

Delphi-Quellcode:

unit Unit1;

interface

procedure PHPVar(RichEdit: TRichEdit);

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, idHTTP, StdCtrls, ComCtrls, Menus, ShellApi;

...

Etwa so? Das gibt aber nen Error

[taaktaak]

Hmm, du musst dich entscheiden:
Entweder soll es 'ne "normale" Prozedur sein oder eine Methode - im Augenblick vermischt du das, deswegen der Fehler.

//außerdem: Zuerst das Uses xxxx, dann deine Deklaration