Zeoslib Portal

Code: Select all

procedure RefreshQuery(vmo_ParQuery: TZQuery);
begin
   with (vmo_ParQuery as TZQuery) do
   begin
      DisableControls;
      Close;
      Open;
      EnableControls;
   end;
end;

Code: Select all

procedure TZRowAccessor.SetNull(ColumnIndex: Integer);
var Data: PPointer;
begin
{$IFNDEF DISABLE_CHECKING}
  CheckColumnIndex(ColumnIndex);
{$ENDIF}
  {$R-}
  if (FBuffer.Columns[FColumnOffsets[ColumnIndex{$IFNDEF GENERIC_INDEX} - 1{$ENDIF}]] = bIsNotNull) then begin
    Data := @FBuffer.Columns[FColumnOffsets[ColumnIndex{$IFNDEF GENERIC_INDEX} - 1{$ENDIF}] + 1];
    FBuffer.Columns[FColumnOffsets[ColumnIndex{$IFNDEF GENERIC_INDEX} - 1{$ENDIF}]] := bIsNull;
    {$IFDEF RangeCheckEnabled}{$R+}{$ENDIF}
    case FColumnTypes[ColumnIndex{$IFNDEF GENERIC_INDEX} - 1{$ENDIF}] of
      stAsciiStream, stBinaryStream, stUnicodeStream:
          PIZLob(Data)^ := nil;
      stBytes, stString, stUnicodeString:
        if Data^ <> nil then begin
          System.FreeMem(Data^);  <----- Error come from this line.
          Data^ := nil;
        end;
      {$IFDEF WITH_CASE_WARNING}else ;{$ENDIF}
    end;
  end;
end;  

Code: Select all

procedure TForm1.DBGrid1TitleClick(Column: TColumn);
var
  bm: TBookmark;
  G: TDBGrid;
  Q: TZQuery;
  S: string;
  imgIdx: integer;
begin
  G := Column.Grid as TDBGrid;
  Q := G.DataSource.DataSet as TZQuery;
  if (Q = nil) or not Q.Active or Q.IsEmpty then exit;
  if (Column.Field.DataType in [ftUnknown, ftBytes, ftVarBytes, ftBLOB,
    ftMemo, ftGraphic, ftFmtMemo, ftWideMemo]) then
    exit;
  bm := Q.GetBookmark;
  Q.DisableControls;
  try
    s := Q.IndexFieldNames;
    if POS(Column.FieldName + ' Desc', s) = 0 then
    begin
      Q.IndexFieldNames := Column.FieldName + ' Desc';
      imgIdx := 1;
    end
    else
    begin
      Q.IndexFieldNames := Column.FieldName;
      imgIdx := 0;
    end;
    Column.Title.ImageIndex := imgIdx;

    if (G.Tag > 0) and (G.Tag <> Column.Index + 1) then
      G.Columns[G.Tag - 1].Title.ImageIndex := -1;
    G.Tag := column.Index + 1;
  finally
    Q.GotoBookmark(bm);
    Q.FreeBookmark(bm);
    Q.EnableControls;
  end;
end;