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:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:
81:
82:
83:
84:
85:
86:
| procedure nachclick (
var transfer : array of string;
var stapel1,stapel2,stapel3,stapel4,stapel5,stapel6,stapel7 : array of string;
var welchstapel : string
);
var i,j : integer;
begin
if welchstapel = '1' then begin
for i := 1 to 14 do begin
for j := 1 to 14 do begin
if transfer[i] = stapel1[j] then begin
tbitbtn(findglobalcomponent('bitbtn'+IntToStr(j))).visible := false;
transfer[i] := '';
end;
end;
end;
end;
if welchstapel = '2' then begin
for i := 1 to 14 do begin
for j := 1 to 15 do begin
if transfer[i] = stapel2[j] then begin
tbitbtn(findglobalcomponent('bitbtn'+IntToStr(j+14))).visible := false;
transfer[i] := '';
end;
end;
end;
end;
if welchstapel = '3' then begin
for i := 1 to 14 do begin
for j := 1 to 16 do begin
if transfer[i] = stapel2[j] then begin
tbitbtn(findglobalcomponent('bitbtn'+IntToStr(j+30))).visible := false;
transfer[i] := '';
end;
end;
end;
end;
if welchstapel = '4' then begin
for i := 1 to 14 do begin
for j := 1 to 17 do begin
if transfer[i] = stapel2[j] then begin
tbitbtn(findglobalcomponent('bitbtn'+IntToStr(j+46))).visible := false;
transfer[i] := '';
end;
end;
end;
end;
if welchstapel = '5' then begin
for i := 1 to 14 do begin
for j := 1 to 18 do begin
if transfer[i] = stapel2[j] then begin
tbitbtn(findglobalcomponent('bitbtn'+IntToStr(j+62))).visible := false;
transfer[i] := '';
end;
end;
end;
end;
if welchstapel = '6' then begin
for i := 1 to 14 do begin
for j := 1 to 19 do begin
if transfer[i] = stapel2[j] then begin
tbitbtn(findglobalcomponent('bitbtn'+IntToStr(j+80))).visible := false;
transfer[i] := '';
end;
end;
end;
end;
if welchstapel = '7' then begin
for i := 1 to 14 do begin
for j := 1 to 18 do begin
if transfer[i] = stapel2[j] then begin
tbitbtn(findglobalcomponent('bitbtn'+IntToStr(j+99))).visible := false;
transfer[i] := '';
end;
end;
end;
end;
end; |
FINDCOMPONENT anstatt FindGlobalComponent.