Выделение ячеек в StringGrid по содержанию (Delphi)

[delboske]

Здравствуйте. Есть StringGrid в который выводится список запущенных процессов и время их создания. Необходимо чтоб при нажатии на кнопку выделялись цветом все процессы которые моложе двух недель (меньше 14ти дней от текущей даты) . Пока удалось только выделить ячейку по заранее написанному содержанию, а с временем не получается.

begin
if (gdFocused in State) then
begin
StringGrid1.Canvas.Brush.Color := clWhite;
StringGrid1.Canvas.Font.Color := clBlack;
end
else
if StringGrid1.Cells[ACol, ARow] = '05.05.2005 05:05:05' then
StringGrid1.Canvas.Brush.color := clRed
else
StringGrid1.canvas.brush.Color := clWhite;

if (ACol > 0) and (ARow > 0) then
begin

StringGrid1.Canvas.FillRect(Rect);

StringGrid1.Canvas.TextOut(Rect.Left, Rect.Top, StringGrid1.Cells[ACol, ARow]);
end;

[Stilet]

Используй функцию WeeksBetween().
Проблема только в том, что ты, как я понял, хранишь дату в виде строки. Было бы совсем неплохо хранить ее в виде даты в неком списке.
На данный момент твой код можно подкостылить только так:

if WeeksBetween(now, StrToDateTime(StringGrid1.Cells[ACol, ARow])<2 then
StringGrid1.Canvas.Brush.color := clRed
else
StringGrid1.canvas.brush.Color := clWhite;

Сразу предупреждаю - могут быть ошибки из-за формата даты. Тогда придется настраивать FormatSettings, чтоб указать формат даты.

FormatSettings.LongDateFormat:='dd.mm.yyyy hh:nn:ss'

Но это все равно не по феншую.

[delboske]

Stilet

Спасибо за совет!

Дату в виде строки я написал для примера. Так дата у меня получается с помощью FileAge из procentry.szexefile и заполняется как все остальные ячейки. Я снял снапшот процессов через CreateToolHelp32Snapshot и уже из него заполнял всю таблицу.

begin
k:=1;
hsnap:=CreateToolHelp32Snapshot(TH32CS_SNAPPROCESS,0);
procentry.dwSize:=sizeof(procentry);
Process32First(hsnap,procentry);
repeat
with procinfogrid do
 begin
  if k>rowcount-1 then
  rowcount:=rowcount+1;
  cells[0,k]:=procentry.szexefile;
  cells[1,k]:=inttostr(procentry.th32ProcessID);
  cells[3,k]:=GetExeFilePath(procentry.szexefile)+procentry.szexefile;      // тут будет путь
  dt:= FileAge(GetExeFilePath(procentry.szexefile));
   if dt > 1 then
    cells[2,k]:= DateTimetoStr(FileDateToDateTime(dt))
    else
     cells[2,k]:= '-------';
 end;

[Stilet]

и уже из него заполнял всю таблицу

Да, но все равно при отрисовке событие должно получать дату. А ты, как я понял, хранишь ее именно в виде строки. А я бы создавал для каждой строки грида объект некоего класса с полями, в которых будут характеристики процесса, и уже отрисовывал бы опираясь на них.
Например класс

TProc=class
 private
  Data:TDateTime;
... Еще чето
end

Пихаем в грид:

With StringGrid do begin
 RowCount:=RowCount+1;
 Objects[0,RowCount-1]:=TProc.Create();
 TProc(Objects[0,RowCount-1]).Data:=...
...
end;

И в отрисовке обрашался бы к Objects

снапшот процессов через CreateToolHelp32Snapshot

Ремарка: Он устарел, рекомендую работать с модулем PsAPI.

[delboske]

Stilet

Большое спасибо! Буду допиливать

[Stilet]

Ага. Удачи )

[delboske]

Stilet

Только выдает ошибку на <2 "incompatible types Tdatetime and boolean"

[Stilet]

Не может оно такого выдавать. Покажи как написал.

[delboske]

Stilet

processlist - название моей таблицы

begin
  if (gdFocused in State) then
 begin
    processlist.Canvas.Brush.Color := clWhite;
   processlist.Canvas.Font.Color := clBlack;
 end
 else
    if WeeksBetween(now, StrToDateTime(processlist.Cells[ACol, ARow])< 2 then
processlist.Canvas.Brush.color := clRed
else
processlist.canvas.brush.Color := clWhite;

  if (ACol > 0) and (ARow > 0) then
  begin

    processlist.Canvas.FillRect(Rect);

    processlist.Canvas.TextOut(Rect.Left, Rect.Top, processlist.Cells[ACol, ARow]);
  end;
  end;

[Stilet]

Эх... Ну ладно я невнимательный. Писал с потолка. Но ты хотя бы мог не копипастить код втупую как штатное школоло, а разобраться в нем и написать по своему? Шо за манера такая у новичков - брать из тырнета даже не читая?
Скобочки там закрывающей не хватает.

P.S. Все. Я баиньки. Глаза слипаются...