ZQuery liefert nichts zurück

[EgonHugeist]

Hallo SyntaxXx,

7.0.4-stable ist nicht 100% fertig für XE4. Bitte lade 7.1 vom SVN herunter.

oder:

ZAbstractRODataSet.Pas

Delphi-Quellcode:

{$IFDEF WITH_TRECORDBUFFER}
function TZAbstractRODataset.GetRecord(Buffer: TRecordBuffer; GetMode: TGetMode;
  DoCheck: Boolean): TGetResult;
{$ELSE}
function TZAbstractRODataset.GetRecord(Buffer: PChar; GetMode: TGetMode;
  DoCheck: Boolean): TGetResult;
{$ENDIF}
var
  RowNo: Integer;
begin
  // mad stub for unidirectional (problem in TDataSet.MoveBuffer) - dont know about FPC
  // we always use same TDataSet-level buffer, because we can see only one row
  {$IFNDEF WITH_FUNIDIRECTIONAL}
  if IsUniDirectional then
    Buffer := Pointer(Buffers[0]); <<< das sollte so aussehen, dann sind die Daten da.
  {$ENDIF}