Экспертная система Delphi.int.ru

Сообщество программистов
Общение, помощь, обмен опытом

Регистрация на сайте занимает 40 секунд, а пользу приносит годами.

Дополнительные функции

Delphi.int.ru Expert

Другие разделы портала

Переход к вопросу:

Статистика за сегодня:

Вопросы: 0
Ответы: 0
Мини-форумы: 0

Онлайн на сайте: 6 (3404)
Онлайн в IRC: 2 (17)
Последние новости:
8 июля 2023
Последний вопрос:
30 августа 2025, 19:29
Последний ответ:
29 марта 2018, 23:32

Лучшие эксперты

Подробнее »

Вопрос # 6 630

Раздел: Delphi » Общие вопросы по программированию

/ вопрос открыт /

Здравствуйте, эксперты!
И снова я к Вам обращаюсь. Помогите пожалуйста, Не получается реализовать так называемую шахматку(в stringgride отобразить цветными ячейками занятые и свободные номера в зависимости от даты)
Написал один вариант, но он работает очень криво (При установке отображение даты меньшей, чем дата заселение ячейки не выделяются)
Может у кого есть рабочий пример, или хотя бы каркас, буду очень признателен.

Приложение:

procedure TForm1.loadnomer;
var
i,n,s,i1,s1:integer;
begin
ADOQuery1.Open;
n:=ADOQuery1.Fields[0].AsInteger;
s2:=n;
StringGrid1.RowCount:= n+1;
ADOQuery1.Close;
ADOQuery1.Active:=false;
ADOQuery1.SQL.Clear;
for i:=1 to n+1 do
begin
ADOQuery1.Active:=true;
ADOQuery1.Open;
StringGrid1.Cells[0,i]:= ADOQuery1.Fields[0].AsString;
end;
for s:=0 to n do
begin
ADOQuery1.Open;
if not (ADOQuery1.Fields[0].AsString='')
then
begin
//FormatDateTime('dd.mm',ADOQuery1.Fields[0].AsDateTime);
for i1:=0 to StringGrid1.ColCount do
if StringGrid1.Cells[i1,0]=FormatDateTime('dd.mm', ADOQuery1.Fields[0].AsDateTime) then
begin
a1:=i1;
a2:=s;
StringGrid1.Cells[a1,a2]:='X';
for s1:=0 to n do
begin
ADOQuery1.Close;
ADOQuery1.Active:=false;
ADOQuery1.SQL.Clear;
ADOQuery1.Open;
end;
end;
end;
end;
end;