TFbmItem.Protocol
Diese Variable ist vom Typ TFbmProtocolItemList und eine Eigenschaft der Klasse TFbmItem, welche in der Unit Item definiert wurde. Diese Variable bietet nur lesenden Zugriff.
Diese Eigenschaft kann für den Zugriff auf das Protokoll des Elements verwendet werden. Die ältesten Einträge stehen oben. Der Zugriff per TFbmItem.Protocol[0] greift also auf den ersten Protokoll-Eintrag zu und TFbmItem.Protocol[TFbmItem.Protocol.Count - 1] auf den neuesten Eintrag.
Ersten Bearbeiter bzw. Ersteller eines Elements finden:
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
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
var
i: Integer;
UserRef: Integer;
begin
UserRef := 0;
for i := 0 to Item.Protocol.Count - 1 do
begin
if Item.Protocol[i].UserRef > 0 then
begin
UserRef := Item.Protocol[i].UserRef;
Break;
end;
end;
if UserRef > 0 then
begin
// Ersten Bearbeiter gefunden
end
else
begin
// Ersten Bearbeiter nicht gefunden
end;
end.
i: Integer;
UserRef: Integer;
begin
UserRef := 0;
for i := 0 to Item.Protocol.Count - 1 do
begin
if Item.Protocol[i].UserRef > 0 then
begin
UserRef := Item.Protocol[i].UserRef;
Break;
end;
end;
if UserRef > 0 then
begin
// Ersten Bearbeiter gefunden
end
else
begin
// Ersten Bearbeiter nicht gefunden
end;
end.