mORMot and Open Source friends: Check-in [d06ebb80a6]

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Overview

Comment:	fixed Delphi XE/XE2 compilation
Timelines:	family \| ancestors \| descendants \| both \| trunk
Files:	files \| file ages \| folders
SHA1:	d06ebb80a646730d3c82c99b74a23201d6a22fc1
User & Date:	abouchez 2013-03-29 12:54:11

Context

2013-03-29
14:10		fixed Delphi XE/XE2 compilation check-in: eb3e0eff82 user: abouchez tags: trunk
12:54		fixed Delphi XE/XE2 compilation check-in: d06ebb80a6 user: abouchez tags: trunk
11:34		added TSynTestCase.CleanUp virtual method for proper cleaning before Destroy check-in: 38f27c96d6 user: abouchez tags: trunk

Changes

Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to SQLite3/mORMot.pas.

  result := TObjectList<T>.Create;
  if (self=nil) or (RowCount=0) then
    exit;
  R := TSQLRecordClass(T).Create;
  try
    R.FillPrepare(self);
    Row := @fResults[FieldCount];     // Row^ points to first row of data
    {$ifdef ISDELPHIXE}
    result.Count := RowCount;         // faster than manual Add()
    for i := 0 to RowCount-1 do begin // TObjectList will free each instance
      Item := TSQLRecordClass(T).Create;
      PPointerArray(result.List)[i] := Item;
    {$else}
    for i := 0 to RowCount-1 do begin // TObjectList will free each instance
      Item := T.Create;

  result := TObjectList<T>.Create;
  if (self=nil) or (RowCount=0) then
    exit;
  R := TSQLRecordClass(T).Create;
  try
    R.FillPrepare(self);
    Row := @fResults[FieldCount];     // Row^ points to first row of data
    {$ifdef ISDELPHIXE3}
    result.Count := RowCount;         // faster than manual Add()
    for i := 0 to RowCount-1 do begin // TObjectList will free each instance
      Item := TSQLRecordClass(T).Create;
      PPointerArray(result.List)[i] := Item;
    {$else}
    for i := 0 to RowCount-1 do begin // TObjectList will free each instance
      Item := T.Create;