Globale Procedure wie?

[Interritor]

Hi zusammen,

Ich bin noch zeimlich frisch in sachen Delphi und hab da mal ne Frage, habe die suche benutzt aber nix gefunden also:

Ich krieg es einfach nicht hin eine Procedure Global zu "Deklarieren", wenn ich die Procedure in den Global teil schreibe kommt immer der Fehler "END erwartet aber BEGIN gefunden", aber dabei ist das doch so richtig oder?

Delphi-Quellcode:

 procedure RtfAddText (text : string;);
   begin

   end;

Ich hoffe ihr könnt mir helfen,

Vielen Dank schonmal im vorraus!!!

mfg
Interritor

[mirage228]

also

bei dem "public" oben in der unit des forms müsstest du

schreiben

Delphi-Quellcode:

public
...

procedure RtfAddText (text : string);

und Definition dann so: (TFOrm1 ggf. ersetzen)

Delphi-Quellcode:

procedure TForm1.RtfAddText(text : string);
begin

end;

[Interritor]

Ahhh super es geht Danke!!!

[Sanchez]

@mirage228
Deine Anleitung führt zu keiner globalen procedure sondern zu einer Member-Prozedur von TForm1.

Die Definition:
procedure RtfAddText (text : string); kommt in den Interface-Teil der Unit aber außerhalb der Klasse.

Die Implementierung

Delphi-Quellcode:

.
.
.
procedure TForm1.RtfAddText(text : string);
begin

end;

end.

steht vor dem end.

@Interritor
oder meintest du keine globale Prozedur sondern eine öffentliche Memberprozedur von TForm1?

grüße Daniel

[Interritor]

Doch eigentlich meinte ich schon eine Globale Procedure aber das mit der Member procedure hat auch geklappt und scheint wohl für meinen zweck zu reichen.

Danke, ich notier es mir werde es bestimmt bald brauchen