das wird dir warscheindlich nicht viel bringen!
Ich habe eine normale unit und eine Form!
Von meiner Unit1 greife ich auf diverse Classen zu, welche sich zum Teil selber in sich wieder aufrufen!
der Kopf kann z.B so aussehen:
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
| unit Classsnapshot;
interface
Uses
classes, Controls, TTestClass, ClassSnapshotObject, SysUtils, dialogs, Classobjectlist;
type
TSnapshot = class
Private
SnapshotLinkObject : TObjectlist;
SnapshotProzessObject : TObjectlist;
SnapshotServiceObject : TObjectlist;
Procedure decodestringlist( Snapshot: Tstrings );
Public
constructor Create( Snapshot: Tstrings );
property getSnapshotLinkObject : Tobjectlist read SnapshotLinkObject write SnapshotLinkObject ;
property getSnapshotProzessObject : TObjectlist read SnapshotProzessObject write SnapshotProzessObject;
property getSnapshotServiceObject : TObjectlist read SnapshotServiceObject write SnapshotServiceObject;
End;
implementation
constructor TSnapshot.Create( Snapshot: Tstrings );
Begin
inherited Create;
decodestringlist(Snapshot);
End; |
Jetzt möchte ich in einer Procedure in der class auf mein Treeview der Form1 zugreifen!
Aber wenn ich z.b die Unit 1 in Uses einfüge kann ich nicht mehr kompilieren!
danke
viele grüsse Delphirxs
Moderiert von 
Peter Lustig: Code- durch Delphi-Tags ersetzt
