Changeset 258


Ignore:
Timestamp:
Jul 26, 2011, 1:05:39 PM (13 years ago)
Author:
george
Message:
  • Minor modifications
Files:
6 edited

Legend:

Unmodified
Added
Removed
  • Common/UThreading.pas

    r246 r258  
    321321    on E: Exception do
    322322      if Assigned(OnException) then
    323         OnException(Self, E);
     323        OnException(FThread, E);
    324324  end;
    325325end;
  • CoolTranslator/UCoolTranslator.pas

    r233 r258  
    6767procedure Register;
    6868begin
    69   RegisterComponents('Sample', [TCoolTranslator]);
     69  RegisterComponents('Samples', [TCoolTranslator]);
    7070end;
    7171
  • ExceptionLogger/UExceptionLogger.pas

    r247 r258  
    5454procedure Register;
    5555begin
    56   RegisterComponents('Sample', [TExceptionLogger]);
     56  RegisterComponents('Samples', [TExceptionLogger]);
    5757end;
    5858
  • Generics/TemplateGenerics/Generic/GenericListString.inc

    r251 r258  
    7676  Result := Start;
    7777  while (Result < Count) and
    78   (CompareStr(FItems[Result], Item) = -1) do
     78  (CompareStr(FItems[Result], Item) <> 0) do
    7979    Result := Result + 1;
    8080  if Result = FCount then Result := -1;
  • Network/CoolWeb/Persistence/USqlDatabase.pas

    r250 r258  
    312312    StringReplace(Value, '"', '\"', [rfReplaceAll]);
    313313    if Value = 'NOW()' then DbValues := DbValues + ',' + Value
    314     else DbValues := DbValues + ',' + Data.Keys[I] + '=' + '"' + Value + '"';
     314    else DbValues := DbValues + ',`' + Data.Keys[I] + '` =' + '"' + Value + '"';
    315315  end;
    316316  System.Delete(DbValues, 1, 1);
     
    318318    DbResult := TDbRows.Create;
    319319    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);
    321321  finally
    322322    DbResult.Free;
  • PinConnection/UCommSerialPort.pas

    r231 r258  
    5555    try
    5656      Lock.Acquire;
    57       SendStreamRaw(Stream);
     57      if CanWrite(0) then
     58        SendStreamRaw(Stream);
    5859    finally
    5960      Lock.Release;
Note: See TracChangeset for help on using the changeset viewer.