Changeset 258
- Timestamp:
- Jul 26, 2011, 1:05:39 PM (13 years ago)
- Files:
-
- 6 edited
Legend:
- Unmodified
- Added
- Removed
-
Common/UThreading.pas
r246 r258 321 321 on E: Exception do 322 322 if Assigned(OnException) then 323 OnException( Self, E);323 OnException(FThread, E); 324 324 end; 325 325 end; -
CoolTranslator/UCoolTranslator.pas
r233 r258 67 67 procedure Register; 68 68 begin 69 RegisterComponents('Sample ', [TCoolTranslator]);69 RegisterComponents('Samples', [TCoolTranslator]); 70 70 end; 71 71 -
ExceptionLogger/UExceptionLogger.pas
r247 r258 54 54 procedure Register; 55 55 begin 56 RegisterComponents('Sample ', [TExceptionLogger]);56 RegisterComponents('Samples', [TExceptionLogger]); 57 57 end; 58 58 -
Generics/TemplateGenerics/Generic/GenericListString.inc
r251 r258 76 76 Result := Start; 77 77 while (Result < Count) and 78 (CompareStr(FItems[Result], Item) = -1) do78 (CompareStr(FItems[Result], Item) <> 0) do 79 79 Result := Result + 1; 80 80 if Result = FCount then Result := -1; -
Network/CoolWeb/Persistence/USqlDatabase.pas
r250 r258 312 312 StringReplace(Value, '"', '\"', [rfReplaceAll]); 313 313 if Value = 'NOW()' then DbValues := DbValues + ',' + Value 314 else DbValues := DbValues + ', ' + Data.Keys[I] + '=' + '"' + Value + '"';314 else DbValues := DbValues + ',`' + Data.Keys[I] + '` =' + '"' + Value + '"'; 315 315 end; 316 316 System.Delete(DbValues, 1, 1); … … 318 318 DbResult := TDbRows.Create; 319 319 if Schema <> '' then Schema := '`' + Schema + '`.'; 320 Query(DbResult, 'UPDATE ' + Schema + '`' + ATable + '` SET (' + DbValues + ')WHERE ' + Condition);320 Query(DbResult, 'UPDATE ' + Schema + '`' + ATable + '` SET ' + DbValues + ' WHERE ' + Condition); 321 321 finally 322 322 DbResult.Free; -
PinConnection/UCommSerialPort.pas
r231 r258 55 55 try 56 56 Lock.Acquire; 57 SendStreamRaw(Stream); 57 if CanWrite(0) then 58 SendStreamRaw(Stream); 58 59 finally 59 60 Lock.Release;
Note:
See TracChangeset
for help on using the changeset viewer.