1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:

var
  i:Integer;
begin
  if item.index mod StrToInt(Edit2.Text) <> 0 then begin
    ListView1.Canvas.Font.Color:=clYellow;
    ListView1.Canvas.Brush.Color:=clRed;
    ListView1.Canvas.Font.Style:=[fsBold]
  end
  else begin
    ListView1.Canvas.Font.Color:=clBlue;
    ListView1.Canvas.Brush.Color:=clLime;
    ListView1.Canvas.Font.Style:=[fsBold]
  end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:

var 
  i:Integer; 
  x: Boolean;
begin 
  if item.index mod StrToInt(Edit2.Text) <> 0 then
    x:=not x;
  if x then begin
    ListView1.Canvas.Font.Color:=clYellow; 
    ListView1.Canvas.Brush.Color:=clRed; 
    ListView1.Canvas.Font.Style:=[fsBold] 
  end 
  else begin 
    ListView1.Canvas.Font.Color:=clBlue; 
    ListView1.Canvas.Brush.Color:=clLime; 
    ListView1.Canvas.Font.Style:=[fsBold] 
  end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

  if item.index mod 4 = 0 then
    x:=not x;
  if x then begin
    ListView1.Canvas.Font.Color:=clYellow;
    ListView1.Canvas.Brush.Color:=clRed;
    ListView1.Canvas.Font.Style:=[fsBold]
  end else begin
    ListView1.Canvas.Font.Color:=clBlue;
    ListView1.Canvas.Brush.Color:=clLime;
    ListView1.Canvas.Font.Style:=[fsBold]
  end;					

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:
87:
88:
89:
90:
91:
92:
93:
94:
95:
96:
97:
98:
99:
100:
101:
102:
103:
104:
105:
106:
107:
108:
109:
110:
111:
112:
113:
114:
115:
116:
117:
118:
119:
120:
121:
122:
123:
124:
125:
126:
127:
128:
129:
130:
131:
132:
133:
134:
135:
136:
137:
138:
139:
140:
141:
142:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, ComCtrls, Buttons;

type
  TForm1 = class(TForm)
    Edit1: TLabeledEdit;
    Edit2: TLabeledEdit;
    Bevel1: TBevel;
    ListView1: TListView;
    Label1: TLabel;
    Bevel2: TBevel;
    BitBtn1: TBitBtn;
    procedure BitBtn1Click(Sender: TObject);
    procedure ListView1CustomDrawItem(Sender: TCustomListView;
      Item: TListItem; State: TCustomDrawState; var DefaultDraw: Boolean);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;
  rArray:array of Integer;
  is_e:String = '';
  x:Bool;
implementation

uses Tools;

{$R *.dfm}

function GetExeDir:String;
begin
  result:=ExtractFileDir(ParamStr(0)) + '\';
end;

function is_array_e(rArray:array of Integer; r:Integer):Bool;
var
  i:Integer;  
begin
  result:=False;
  for i:=0 to HIGH(rArray) do begin
    if rArray[i] = r then begin
      result:=True;
      Exit;
    end;
  end;
end;

function ifStr(r:Integer):Integer;
var
  i:integer;
begin
  result:=-1;
  //1,2,3,6,7,11
  for i:=2 to NumToken(is_e,',') do begin
    if GetToken( is_e,',',i) = IntToStr(r)  then begin
      result:=i;
      Exit;
    end;
  end;
end;

procedure TForm1.BitBtn1Click(Sender: TObject);
var
  MaxT, MaxG, r, i,x:Integer;
  Names:TStringList;
  tg:string;
begin
  if Edit1.Text = '' then begin
    ShowMessage('Anzahl der Teielnehmer Fehlen !');
    Edit1.SetFocus;
    Exit;
  end;

  if Edit2.Text = '' then begin
    ShowMessage('Teielnehmern in Gruppen Fehlern !');
    Edit2.SetFocus;
    Exit;
  end;

  MaxT:=StrToInt(Edit1.Text);
  MaxG:=StrToInt(Edit2.Text);
  is_e:='';
  if ( MaxT mod MaxG  <> 0) or ( StrToInt(Edit1.Text) in [ ord(1),ord(2),ord(3),ord(6),ord(7),ord(11)]) then begin;
    ShowMessage('Ungültige Teielnehmer zahl');
    Edit2.SetFocus;
  end; 

  Names:=TStringList.Create;

  if FileExists(GetExeDir + 'names.txt') = False then begin
    ShowMessage('Datei Names.txt nicht gefunden');
    Exit;
  end
  else
    Names.LoadFromFile(GetExeDir + 'names.txt');

  ListView1.Items.Clear;
  SetLength(rArray, Maxt);
  Randomize;
  for i:=1 to MaxT div MaxG do begin

    for x:=1 to MaxG do begin
      r:=Random(MaXT)+1;
      repeat
        r:=Random(MaXT)+1;
      until ifStr(r) = -1 ;

      is_e:=is_e + ',' + IntToStr(r) ;
      with ListView1.Items.Add do begin
        Caption:=Names.Strings[r-1];
        SubItems.Add(IntToStr(i))
      end;
    end;

  end;
end;

procedure TForm1.ListView1CustomDrawItem(Sender: TCustomListView;
  Item: TListItem; State: TCustomDrawState; var DefaultDraw: Boolean);
begin
  x:=odd( StrToInt(item.SubItems.Strings[0]));
  if x then begin
    ListView1.Canvas.Font.Color:=clYellow;
    ListView1.Canvas.Brush.Color:=clRed;
    ListView1.Canvas.Font.Style:=[fsBold]
  end else begin
    ListView1.Canvas.Font.Color:=clBlue;
    ListView1.Canvas.Brush.Color:=clLime;
    ListView1.Canvas.Font.Style:=[fsBold]
  end;

end;

end.					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

  x:=not x; 
  if x then begin 
    ListView1.Canvas.Font.Color:=clYellow;  
    ListView1.Canvas.Brush.Color:=clRed;  
    ListView1.Canvas.Font.Style:=[fsBold]  
  end  
  else begin  
    ListView1.Canvas.Font.Color:=clBlue;  
    ListView1.Canvas.Brush.Color:=clLime;  
    ListView1.Canvas.Font.Style:=[fsBold]  
  end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

  if odd(item.index) = True then
    if x then begin  
      ListView1.Canvas.Font.Color:=clYellow;   
      ListView1.Canvas.Brush.Color:=clRed;   
      ListView1.Canvas.Font.Style:=[fsBold]   
    end   
    else begin   
      ListView1.Canvas.Font.Color:=clBlue;   
      ListView1.Canvas.Brush.Color:=clLime;   
      ListView1.Canvas.Font.Style:=[fsBold]   
    end;					

1:
2:
3:
4:

if (Item.Index and 4) = 4 then
  ...
else
  ...