mORMot and Open Source friends: Check-in [767e09a0f5]

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

Overview

Comment:	fixed compilation issue with some revisions of the UniDAC library
Timelines:	family \| ancestors \| descendants \| both \| trunk
Files:	files \| file ages \| folders
SHA1:	767e09a0f5301751c06bb22bdd0e6683b94ee3bb
User & Date:	abouchez 2013-05-15 13:35:30

Context

2013-05-15
14:43		ensure TSQLTableToGrid.Create() uses TDrawGrid font to compute row height check-in: f3ccffea59 user: abouchez tags: trunk
13:35		fixed compilation issue with some revisions of the UniDAC library check-in: 767e09a0f5 user: abouchez tags: trunk
13:34		fixed ticket [545fbe7579] about TSQLDBConnection.LastErrorMessage not reset check-in: 453d56e007 user: abouchez tags: trunk

Changes

Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to SynDBDataset/SynDBUniDAC.pas.

procedure TSQLDBUniDACConnectionProperties.GetTableNames(
  var Tables: TRawUTF8DynArray);
var List: TStringList;
    i: integer;
begin
  List := TStringList.Create;
  try
    (MainConnection as TSQLDBUniDACConnection).fDatabase.GetTableNames(List,false,true);
    SetLength(Tables,List.Count);
    for i := 0 to List.Count-1 do
      Tables[i] := StringToUTF8(List[i]);
    exit;
  finally
    List.Free;
  end;

procedure TSQLDBUniDACConnectionProperties.GetTableNames(
  var Tables: TRawUTF8DynArray);
var List: TStringList;
    i: integer;
begin
  List := TStringList.Create;
  try
    (MainConnection as TSQLDBUniDACConnection).fDatabase.GetTableNames(List);
    SetLength(Tables,List.Count);
    for i := 0 to List.Count-1 do
      Tables[i] := StringToUTF8(List[i]);
    exit;
  finally
    List.Free;
  end;