Invalid pointer operation

← →
RASkov (2007-02-05 16:14) [40]

> [37] uncle benc (05.02.07 16:08)
> i := 1

i:=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]

Хотя, ладно, всем спасибо. Думаю нет смысла дальше развивать эту тему, т.к. переливаем из пустого в порожнее.

> uncle benc (05.02.07 15:43) [25]
> Grid.RowCount := Query.RecordCount+1

Садитесь. Два.

> uncle benc (05.02.2007 16:43:46) [46]

В школе на математику принципиально не ходил.

> Anatoly Podgoretsky © (05.02.07 20:31) [49]
>
> > uncle benc (05.02.2007 16:43:46) [46]
>
> В школе на математику принципиально не ходил.
>

Ранее была "слепая печать". Её преодолели. Так теперь ещё возникло "слепое" чтение! :-)

Invalid pointer operation Найти похожие ветки