Цвет строки ListBox через цикл в зависимости от параметра

[waka2ebawer]

Добрый вечер!

Имеется ListBox, в который загружается список файлов и в конце файла [0] или [1] - это параметр. В зависимости от параметра строка либо зеленая либо красная. У меня стоит сейчас CASE INDEX OF на 30 строк в котором проверка. Естественно если больше 30-ти строк то те не окрашиваются. Пробовал через цикл но тогда он окрашивает все строки в один цвет в зависимости от последней строки. В дальнейшем мне понадобится параметры [2], [3] и далее и тут нужно решение. Как сделать это правильно через цикл или подскажите иное решение.

[eoln]

Не надо цикл, обрабатывай DrawItem у ListBox'a. В параметре Index указывается строчка, которая отрисовывается. Извлекаешь текст, ищешь (pos или copy с конца) [0] или [1]. В зависимости от найденного окрашиваешь строку.

[waka2ebawer]

проблема решена

procedure TForm1.lst1DrawItem(Control: TWinControl; Index: Integer;
Rect: TRect; State: TOwnerDrawState);
var
 text,str,a:string;
  begin
   with (Control as TListBox).Canvas do
    begin a:='[1]'; 
    text:=lst1.Items.Strings[Index];
    while pos('[',text)<>0 do begin str:=copy(text,pos('[',text),pos(']',text)); delete(text,1,pos(']',text));
    if Pos('[', str)>0 then 
    str:= Copy(str, 1, Pos(']', str));
    if str=a then begin 
    Font.Color:=clWhite; Brush.Color:=clGreen;
    end else begin
    Font.Color:=clWhite; Brush.Color:=clRed;
   end;end;
  FillRect(Rect);
TextOut(Rect.Left,Rect.Top,(Control as TListBox).Items[index]);
end;
end;