Tipp 1: Mach auf ZFinalArray ein zweidimensianales Array, also wird aus name 1, aus name2 2, aus street 3, usw.
ZFinalArray: array of array of String;
Tipp 2: Geb den Ceckboxen Namen mit Ziffern, z.B. checkbox1 bis checkbox6
Tipp 3:
Delphi-Quellcode:
procedure Vergleiche(zfactorT: integer);
var x,y,t,z: Integer;
tmp: boolean;
begin
for x := 1 to SizeOfTable-1 do
for y := x+1 to SizeOfTable do
begin
t := 0;
for z:=1 to 6 do
if (findcomponent('checkbox'+inttostr(z)) as TCheckbox).Checked then
t := t + ZmergeStrings(lowercase(ZFinalArray[x,z]),
lowercase(ZFinalArray[y,z]),ord(checkmax.checked));
if ((t <= zfactorT) and
...
then
begin
ZFinalArray[y,7]:='true';
...
end;
...
end;
...
end;