Deklaration oder nicht?

[Delbor]

Hi zusammen

Ich arbeite zwar unter Delphi Alexandria, aber zur Zeit unter einem Beispielprogramm, das höchstens mit Delphi 10 kompiliert wurde. Mein Stolperstein ist folgendes:

procedure PrintBitmap(Printer: TPrinter; Bitmap: TBitmap); Dies ist nicht etwa die Deklaration im Interface, sondern der Prozedurkopf im implementation-Teil. Nach den neuen Deklarationsregeln (Deklaration von Variablen bei Erstgebrauch) könnte ich mir vorstellen, dass ähnliches auch für Prozeduren gilt.
Aber dieses Beispielprogramm gibt es schon seit vielen Jahren, und es muss auch mit älteren Versionen lauffähig sein.
Hier das Embarcadero-Wikki und seine Aussagen zur Deklaration unter Delphi 11 Alexandria.

Meines Wissens war es unter Pascal seit Jahrzehnten möglich, Prozeduren zu verwenden, die nicht innerhalb einer (Form-)Klasse deklariert sind, sondern zB. kurz vor oder nach der Formvariablen (beliebig im interface-Teil?).

Aber dass eine Prozedur gar nicht deklariert ist, kann ich mir schlicht nicht vorstellen.
Was hab ich übersehen? Wie lange gibt es mittlerweile die neuen Deklarationsregeln?

Gruss
Delbor

[Sherlock]

Kurz: Das war schon immer so. Im Prinzip mußt Du im Interface nur deklarieren, was auch außen (also außerhalb der Unit) sichtbar/verwendbar sein soll.

Sherlock

[Delbor]

Hi Sherlock

Zitat:

Kurz: Das war schon immer so. Im Prinzip mußt Du im Interface nur deklarieren, was auch außen (also außerhalb der Unit) sichtbar/verwendbar sein soll.

Und woher bekam dann Delphi seinen Ruf der Typsicherheit? Ich verstehe unter Typsicherheit nicht nur den sicheren Umggang mit Variablen, sondern auch den mit Prozeduren und Funktionen..

Gruss
Delbor

[jaenicke]

Wenn du einen Prozedurtyp TExample = procedure(...) hast, kannst du einer Variable dieses Typs auch nur Prozeduren zuweisen, deren Signatur dazu passt.
Das ist kurz gesagt Typsicherheit: Du kannst verschiedene Typen nicht einfach so untereinander zuweisen.

Ob die Prozedur im Interface der Unit nach außen veröffentlicht wurde oder ob die Variable im Prozedurkopf oder inline im Code deklariert wurde, spielt dabei keine Rolle.

[Benmik]

Gehe ich recht in der Annahme, dass ihr alle trotzdem jede Prozedur auch im Interface deklariert, auch wenn sie nur in der Unit verwendet wird?

[jaenicke]

Zitat von Benmik:

Gehe ich recht in der Annahme, dass ihr alle trotzdem jede Prozedur auch im Interface deklariert, auch wenn sie nur in der Unit verwendet wird?

Das wäre mir viel zu unübersichtlich. Wenn etwas für andere Units direkt veröffentlicht werden soll, verwende ich Klassenmethoden, damit man beim Aufruf im Quelltext sieht, wo die Methode herkommt. Ich mag global verfügbare einfache Prozeduren nicht in eigenem Code. Deshalb stehen lose Prozeduren bei mir in aller Regel nur unter implermentation.

[Delbor]

Hi zusammen

Zitat:

Gehe ich recht in der Annahme, dass ihr alle trotzdem jede Prozedur auch im Interface deklariert, auch wenn sie nur in der Unit verwendet wird?

Zumindest ich gehöre zu dieser Fraktion. Inlinedeklarationen gewöhne ich mir nicht an, auch wenn dies eine ganz bestimmte Schreibweise im Code voraussetzt, die von diesem deutlich abweicht. Kurz zum Interfaceteil/Prozedurkopf wechseln und zurück ist auch dank Delphis IDE kein Problem.

Ich hab das erst so verstanden, dass ich dich gründlich missverstanden habe, bzw. dass ich mit meiner ungenügenden Beschreibung zu einem Missverständnis verleitet habe.

Missverständnis hin oder her ich zeig das mal am besten am konkreten Beispiel. Hier habe ich von einer Bitmap geschrieben, die ich mit einem Fremdprogramm einer PDF hinzugefügt habe (Bezahlt-Stempel). Dieser Stempel wird in meinem Programm nicht angezeigt, in einer Demo des Herstellers meiner PDF-Komponenten hingegen schon.
Da ich verständlicherweise wissen will, woran das liegt, habe ich damit begonnen, den Code zu klonen (damit ich nichts überlese).

Und in eben dieser Demo ist die gezeigte Prozedure ohne wirkliche Deklaration enthalten:

Delphi-Quellcode:

procedure PrintBitmap(Printer: TPrinter; Bitmap: TBitmap);
var
  InfoHeaderSize, ImageSize: DWORD;
  InfoHeader: PBitmapInfo;
  Image: Pointer;
begin
   xxx
end;

Die drei x stehen für einige Zeilen Code, die hier nicht interessieren. Diese Prozedur wird aus verschiedenen Routinen aufgerufen.
Eine Suche in der aktuellen Datei über den Suchen-Dialog erzeugt folgende Rückmeldung:

Zitat:

F:\Embarcadero Project Corner\Delphi Alexandria Corner\Delphi Alex Winsoft Demos 5-2\Viewer\Main.pas [2]
F:\Embarcadero Project Corner\Delphi Alexandria Corner\Delphi Alex Winsoft Demos 5-2\Viewer\Main.pas [2]
F:\Embarcadero Project Corner\Delphi Alexandria Corner\Delphi Alex Winsoft Demos 5-2\Viewer\Main.pas(518): procedure PrintBitmap(Printer: TPrinter; Bitmap: TBitmap);
F:\Embarcadero Project Corner\Delphi Alexandria Corner\Delphi Alex Winsoft Demos 5-2\Viewer\Main.pas(607): PrintBitmap(Printer, Bitmap);

Ein Code-Ausschnitt rund um die in der Meldung genannte Zeile 607:

Delphi-Quellcode:

            if Pdf.FormFill then
            begin
              Bitmap := Pdf.RenderPage(0, 0, Printer.PageWidth, Printer.PageHeight, ro0, [rePrinting]);
              try
                PrintBitmap(Printer, Bitmap);  // <= Zeile 607:
              finally
                Bitmap.Free;
              end;
            end

Es gibt in dieser Unit auch keinen entsprechenden Prozedur-Typ.

Interessant ist, dass die CloneForm, mit deren Hilfe ich ermitteln will, wieso dieses Demoprogramm meine Pdfs mt dem Stempel anzeigt, mein eigenes Programm aber nicht, die Prozedur PrintBitmap und deren Aufruf(e) enthält, aber schon ohne Kompilierung als unbekannt kennzeichnet. Das bedeutet, dass eine Deklaration im Original vorhanden ist, aber weder von Delphi geschweige denn von mir gefunden wird...

Als Info vielleicht noch wichtig: Das Programm verwendet die DLL PDFium...

Gruss
Delbor

[himitsu]

Und was ist nun mit der Zeile 518?
Was ist da drumrum?




Es gibt "Methoden" in Klassen (und auch in Records).

Dort ist in der Typdeklaration immer eine "Forward"-Deklaration vorhanden (egal ob im Interface oder der Implementation)
und dann in der Implementation die eigentlich Deklaration der Methode.




Einzelne Prozeduren/Funktionen (nicht in einer Klasse) stehen ebenfalls immer in der Implementation
und man kann optional auch vorher eine Forward-Deklaradion angeben.

Entweder im Interface, oder auch in der Implementation (hier aber mit forward; markiert).




Auch Klassen und und Zeigertypen kann man als Forward, vor dem eigentlichen Typen deklarieren, so lange es innerhalb des selben TYPE-Blocks steht.




Über ein "Interface" kann man auch getrennt, sogar in einer anderen Unit, für eine Klasse alles quasi als abgetrenten "Forward" deklarieren,
ebenso wie über eine Vererbung als virtual; abstract; eine Methode forwarden.

[Delbor]

Hi himitsu

Zitat:

Über ein "Interface" kann man auch getrennt, sogar in einer anderen Unit, für eine Klasse alles quasi als abgetrenten "Forward" deklarieren,

Sogar in einer andern Unit? Oder DLL?

Muss morgen mal sehen - vielleicht ist mir gerade ein Licht aufgegangen...

Gruss
Delbor

[himitsu]

via COM/ActiveX auch in einer anderen EXE oder gar in einem anderen PC.