mORMot and Open Source friends
Check-in [98535d019c]
Check-in [98535d019c]
Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
| Comment: | {546} fixed an awful regression introduced yesterday |
|---|---|
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: |
98535d019c747243efdc4a77a814fd56 |
| User & Date: | ab 2014-11-19 20:56:28 |
|
2014-11-19
| ||
| 21:05 | {547} removed the whole cache feature in SynDB Explorer for a remote client connection check-in: ab6c8515b7 user: ab tags: trunk | |
| 20:56 | {546} fixed an awful regression introduced yesterday check-in: 98535d019c user: ab tags: trunk | |
| 20:34 | {545} small documentation update check-in: 4ef2640170 user: ab tags: trunk | |
Changes to SQLite3/mORMotUI.pas.
1742 1743 1744 1745 1746 1747 1748 1749 1750 1751 1752 1753 1754 1755 |
result := nil else
result := TDrawGrid(Owner);
end;
function TSQLTableToGrid.GetFieldIndexTimeLogForMark: integer;
var F: integer;
begin
if fFieldIndexTimeLogForMark=-2 then begin
fFieldIndexTimeLogForMark := -1;
for F := 0 to Table.FieldCount-1 do
if Table.FieldType(F,nil)=sftTimeLog then begin
fFieldIndexTimeLogForMark := F;
break;
end;
|
> > > > |
1742 1743 1744 1745 1746 1747 1748 1749 1750 1751 1752 1753 1754 1755 1756 1757 1758 1759 |
result := nil else
result := TDrawGrid(Owner);
end;
function TSQLTableToGrid.GetFieldIndexTimeLogForMark: integer;
var F: integer;
begin
if Self=nil then begin
result := -1;
exit;
end;
if fFieldIndexTimeLogForMark=-2 then begin
fFieldIndexTimeLogForMark := -1;
for F := 0 to Table.FieldCount-1 do
if Table.FieldType(F,nil)=sftTimeLog then begin
fFieldIndexTimeLogForMark := F;
break;
end;
|
Changes to SynCommons.pas.
45609 45610 45611 45612 45613 45614 45615 45616 45617 45618 45619 45620 45621 45622 45623 45624 45625 45626 |
end;
{ TRawByteStringStream }
constructor TRawByteStringStream.Create(const aString: RawByteString);
begin
if aString='' then
exit;
fDataString := aString;
fPosition := length(fDataString);
end;
function TRawByteStringStream.Read(var Buffer; Count: Integer): Longint;
begin
if Count<=0 then
Result := 0 else begin
Result := Length(fDataString)-fPosition;
|
< < < |
45609 45610 45611 45612 45613 45614 45615 45616 45617 45618 45619 45620 45621 45622 45623 |
end;
{ TRawByteStringStream }
constructor TRawByteStringStream.Create(const aString: RawByteString);
begin
fDataString := aString;
end;
function TRawByteStringStream.Read(var Buffer; Count: Integer): Longint;
begin
if Count<=0 then
Result := 0 else begin
Result := Length(fDataString)-fPosition;
|
Changes to SynDB.pas.
4006 4007 4008 4009 4010 4011 4012 4013 4014 4015 4016 4017 4018 4019 4020 4021 |
else raise ESQLDBException.CreateUTF8(
'Invalid VType=% parameter #% in %.ProcessExec(cExecute)',
[ord(VType),i,self]);
end else
Stmt.BindArray(i,VType,VArray,InputExecute.ArrayCount);
Stmt.ExecutePrepared;
if ExecuteWithResults then begin
Data := TRawByteStringStream.Create(msgOutput); // include header
try
case header.Command of
cExecuteToBinary:
Stmt.FetchAllToBinary(Data);
cExecuteToJSON:
Stmt.FetchAllToJSON(Data,false);
cExecuteToExpandedJSON:
Stmt.FetchAllToJSON(Data,true);
|
| > |
4006 4007 4008 4009 4010 4011 4012 4013 4014 4015 4016 4017 4018 4019 4020 4021 4022 |
else raise ESQLDBException.CreateUTF8(
'Invalid VType=% parameter #% in %.ProcessExec(cExecute)',
[ord(VType),i,self]);
end else
Stmt.BindArray(i,VType,VArray,InputExecute.ArrayCount);
Stmt.ExecutePrepared;
if ExecuteWithResults then begin
Data := TRawByteStringStream.Create(msgOutput);
try
Data.Seek(0,soFromEnd); // include header
case header.Command of
cExecuteToBinary:
Stmt.FetchAllToBinary(Data);
cExecuteToJSON:
Stmt.FetchAllToJSON(Data,false);
cExecuteToExpandedJSON:
Stmt.FetchAllToJSON(Data,true);
|
Changes to SynopseCommit.inc.
1 |
'1.18.545'
|
| |
1 |
'1.18.546'
|