Hi, also es geht um folgendes. Ich habe mir für diverse Projekte eine Mainfunc.pas angelegt, in welche ich wichtige, mehrmals verwendete Funktionen abgelegt habe. Eine Funktion ist z.B. die vGetClassName aus dem Beispiel unten. Wie Ihr seht ist die
Unit nun ausgeklammert, alle includes sind sichtbar, trotzdem compiliert er, WIESO??? Er meckert nicht, garnix = ???
Das darf doch garnicht gehen... Ich versteh die Welt nicht mehr...
Delphi-Quellcode:
unit PivotalUnit;
interface
uses Windows, Messages, SysUtils, Classes, Dialogs;
type
TKundenDaten =
record
Name, Strasse, Plz, Ort:
string;
end;
TCase =
class
private
WidthDiff: TRect;
public
Handle: integer;
caseID:
string;
KundenName:
string;
function getRemoteNr:
string;
function getAnlagentyp:
string;
function getEinrichterPassword:
string;
function getSBNr:
string;
function getKundendaten: TKundenDaten;
constructor create(
const handle: integer);
end;
TPivotal =
class
private
procedure clearCaseList;
public
CaseList: TList;
procedure updateCaseList;
constructor create;
destructor destroy;
override;
end;
implementation
//uses MainFunc; <- das ist die unit die eigentlich fehlen müsste
{ TCase }
function TCase.getKundendaten: TKundenDaten;
var
L: TList;
timeOut: cardinal;
begin
L:= GetWindowList;
for wdh:= 0
to L.count-1
do
if vGetClassName( integer(L[wdh]))= '
AfxFrameOrView42'
then
...