Mysteriöser Fehler

[nailor]

Es sind 292 Zeilen. Da ist kein anders i, kein Bild, kein TBitmap. NIX!

[Brüggendiek]

Hallo!

Hurra - Lösung!

Ich hab's mal in meinem laufenden Projekt auf dem 2. Rechner reingehauen und bekam auch die Fehlermeldungen wie bei Dir!

Mit der Deklaration
Bild: Graphics.TBitMap; funktionierte es dann!

Offensichtlich enthält irgendeine Unit, die eingebunden wird, etwas, worüber der Compiler stolpert. Mit o.a. Code zwingst Du ihn, die Deklaration aus Graphics zu nehmen und nicht die ihm aus der Uses-Folge nächstgelegene. Zumindest bei mir lies sich das Prob damit lösen!

Gruß

Dietmar Brüggendiek

[Hansa]

Hi,

trotzdem sieht das da mir nach einem Problem mit globalen / lokalen Variablen hin. Das kann sehr knifflig werden.

Gruß
Hansa

[nailor]

thx a lot!!!

Aber ich bin mir !!!ganz!!! sicher an meinem Delphi nichts verändert zu haben.
Hast du auch rausgefunden, wann man graphics braucht (wie bei dem Prob) und wann nicht (neue Anwendung)?

[Hansa]

Hi,

Zitat von Hansa:

trotzdem sieht das da mir nach einem Problem mit globalen / lokalen Variablen hin. Das kann sehr knifflig werden.

Wenns das war, benenne trotzdem die Variablen um ! Wenn Du 5 Units mit Variablen gleichen Namens hast und mußt sie noch über den Unit-Namen ansprechen, na dann gute Nacht.

Gruß
Hansa

[nailor]

Ich habe eine Unit mit ca. 5 Variablen. So blöd bin ich doch auch nicht, dass ich da eine doppelt nehme.

Und als ob Brüggendiek den gleichen Mist bauen würde. Soviel Zufall ist eher unwarscheinlich!

[sakura]

Zitat von Brüggendiek:

Wenn es dann klappt, hast Du in irgendeiner Unit eine neue tBitMap definiert und die wird dann genommen!

Nicht irgendeine Unit. Das ist ein Standard Problem. tagBitmap und TBitmap sind durch Windows definierte Konstrukte. In der Uses Klausel steht die Unit Graphics vor der Unit Windows. Daraus ergibt sich dieses Problem. Auszug aus Windows.pas

Delphi-Quellcode:

{ Bitmap Header Definition }
  PBitmap = ^TBitmap;
  {$EXTERNALSYM tagBITMAP}
  tagBITMAP = packed record
    bmType: Longint;
    bmWidth: Longint;
    bmHeight: Longint;
    bmWidthBytes: Longint;
    bmPlanes: Word;
    bmBitsPixel: Word;
    bmBits: Pointer;
  end;
  TBitmap = tagBITMAP;
  {$EXTERNALSYM BITMAP}
  BITMAP = tagBITMAP;

[nailor]

Ich glaubs nicht! Ich hab die Klauseln vertauscht und es läuft ohne graphics.blabla

Wo käm man nur ohne so ein Forum hin? Da kommt doch kein normaler Mensch von allein drauf!

[sakura]

Zitat von Nailor:

Da kommt doch kein normaler Mensch von allein drauf!

Doch. Aber auch nur mit Hilfe der Options "Find Deklaration" vom Kontext-Menü.

[nailor]

Damit hast du dich stillschweigend als normalen Menschen durchmogeln wollen!