Einzelnen Beitrag anzeigen

Rackergen2

Registriert seit: 13. Jul 2004
99 Beiträge
 
Delphi 7 Enterprise
 
#3

Re: If Abfragen für verschiedene CheckBoxen optimieren

  Alt 19. Jul 2004, 18:23
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;
  Mit Zitat antworten Zitat