Changeset 258

Timestamp:

Jul 26, 2011, 1:05:39 PM (13 years ago)

Author:

george

Message:

• Minor modifications

Files:

• Common/UThreading.pas (modified) (1 diff)
• CoolTranslator/UCoolTranslator.pas (modified) (1 diff)
• ExceptionLogger/UExceptionLogger.pas (modified) (1 diff)
• Generics/TemplateGenerics/Generic/GenericListString.inc (modified) (1 diff)
• Network/CoolWeb/Persistence/USqlDatabase.pas (modified) (2 diffs)
• PinConnection/UCommSerialPort.pas (modified) (1 diff)

Common/UThreading.pas

@@ -321 +321 @@
     on E: Exception do
       if Assigned(OnException) then
-        OnException(Self, E);
+        OnException(FThread, E);
   end;
 end;

CoolTranslator/UCoolTranslator.pas

@@ -67 +67 @@
 procedure Register;
 begin
-  RegisterComponents('Sample', [TCoolTranslator]);
+  RegisterComponents('Samples', [TCoolTranslator]);
 end;
 

ExceptionLogger/UExceptionLogger.pas

@@ -54 +54 @@
 procedure Register;
 begin
-  RegisterComponents('Sample', [TExceptionLogger]);
+  RegisterComponents('Samples', [TExceptionLogger]);
 end;
 

Generics/TemplateGenerics/Generic/GenericListString.inc

@@ -76 +76 @@
   Result := Start;
   while (Result < Count) and
-  (CompareStr(FItems[Result], Item) = -1) do
+  (CompareStr(FItems[Result], Item) <> 0) do
     Result := Result + 1;
   if Result = FCount then Result := -1;

Network/CoolWeb/Persistence/USqlDatabase.pas

@@ -312 +312 @@
     StringReplace(Value, '"', '\"', [rfReplaceAll]);
     if Value = 'NOW()' then DbValues := DbValues + ',' + Value
-    else DbValues := DbValues + ',' + Data.Keys[I] + '=' + '"' + Value + '"';
+    else DbValues := DbValues + ',`' + Data.Keys[I] + '` =' + '"' + Value + '"';
   end;
   System.Delete(DbValues, 1, 1);
@@ -318 +318 @@
     DbResult := TDbRows.Create;
     if Schema <> '' then Schema := '`' + Schema + '`.';
-    Query(DbResult, 'UPDATE ' + Schema + '`' + ATable + '` SET (' + DbValues + ') WHERE ' + Condition);
+    Query(DbResult, 'UPDATE ' + Schema + '`' + ATable + '` SET ' + DbValues + ' WHERE ' + Condition);
   finally
     DbResult.Free;

PinConnection/UCommSerialPort.pas

@@ -55 +55 @@
     try
       Lock.Acquire;
-      SendStreamRaw(Stream);
+      if CanWrite(0) then
+        SendStreamRaw(Stream);
     finally
       Lock.Release;