Текущий архив: 2007.02.25;
Скачать: CL | DM;
Вниз
Invalid pointer operation Найти похожие ветки
← →
RASkov (2007-02-05 16:14) [40]> [37] uncle benc (05.02.07 16:08)
> i := 1i:=1
SetLength(Alarm, Query.RecordCount);
While not Query.Eof do
begin
Grid.Cells[0,i] := Query.FieldByName("Id").AsString;
Grid.Cells[1,i] := DateTimeToStr(Query.FieldByName("DateIn").AsFloat);
Grid.Cells[2,i] := Query.FieldByName("Avtor").AsString;
Grid.Cells[3,i] := Query.FieldByName("Zayava").AsString;
if Query.FieldByName("DateOut").AsFloat <> 0 then
Grid.Cells[4,i] := DateTimeToStr(Query.FieldByName("DateOut").AsFloat);
Grid.Cells[5,i] := Query.FieldByName("Ispolnitel").AsString;
if Query.FieldByName("Alarm").AsBoolean then
Alarm[i] := True else Alarm[i] := False;
Query.Next;
i:=i+1;
end;
> А поле ID у тебя строковое?
А какя разница еслиGrid.Cells[0,i] := Query.FieldByName("Id").AsString;
← →
Elen © (2007-02-05 16:21) [41]
> RASkov
Alarm[i] := True else Alarm[i] := False;
Ты хочеш сказать что нужно Alarm[i-1] := True else Alarm[i-1] := False; т.к. он с нуля начинается? тогда в [28] автор опять мозги пудрит
← →
Elen © (2007-02-05 16:23) [42]
> RASkov
А извини я [29] пропустила :)
← →
uncle benc (2007-02-05 16:24) [43]Поле Id - счетчик. (т.е. LongInt)
← →
RASkov (2007-02-05 16:32) [44]И вот еще
if Query.RecordCount >= 1 then
Grid.RowCount := Query.RecordCount+1
else Grid.RowCount := 2;
ClearGrid(Grid);
По ходу надо +2 делать...
Т.е. мы должны добавить столько строк, сколько записей в таблице+1
А значения RowCount начинаются с 0, RecordCount с 1
Ну и здесь ошибка
Grid.Cells[0, i] := Query.FieldByName("Id").AsString;
Нет последней строчки в гриде....
← →
RASkov (2007-02-05 16:33) [45]> Т.е. мы должны добавить столько строк, сколько записей в
> таблице+1
Т.е. мы должны добавить столько строк, сколько записей в таблице+1 на заголовки
← →
uncle benc (2007-02-05 16:43) [46]
> RASkov (05.02.07 16:32) [44]
Тут нет ошибки.
> значения RowCount начинаются с 0, RecordCount с 1
Исходя из этого RowCount := RecordCount+1
т.е. если возвращенных записей 1, то RowCount станет равным 2 (заголовок и строка)
← →
uncle benc (2007-02-05 16:46) [47]Хотя, ладно, всем спасибо. Думаю нет смысла дальше развивать эту тему, т.к. переливаем из пустого в порожнее.
← →
Johnmen © (2007-02-05 17:15) [48]> uncle benc (05.02.07 15:43) [25]
> Grid.RowCount := Query.RecordCount+1
Садитесь. Два.
← →
Anatoly Podgoretsky © (2007-02-05 20:31) [49]> uncle benc (05.02.2007 16:43:46) [46]
В школе на математику принципиально не ходил.
← →
Германн © (2007-02-06 02:03) [50]
> Anatoly Podgoretsky © (05.02.07 20:31) [49]
>
> > uncle benc (05.02.2007 16:43:46) [46]
>
> В школе на математику принципиально не ходил.
>
Ранее была "слепая печать". Её преодолели. Так теперь ещё возникло "слепое" чтение! :-)
Страницы: 1 2 вся ветка
Текущий архив: 2007.02.25;
Скачать: CL | DM;
Память: 0.53 MB
Время: 0.046 c
