Changeset 99 for trunk/Packages/CoolWeb/Persistence/USqlDatabase.pas

Timestamp:

Oct 2, 2012, 2:12:16 PM (12 years ago)

Author:

chronos

Message:

• Přidáno: Modul seznamu televizních kanálů TV.

File:

• trunk/Packages/CoolWeb/Persistence/USqlDatabase.pas (modified) (2 diffs)

trunk/Packages/CoolWeb/Persistence/USqlDatabase.pas

@@ -55 +55 @@
     LastUsedTable: string;
     LastQuery: string;
+    function EscapeString(Text: string): string;
     procedure CreateDatabase;
     procedure CreateTable(Name: string);
@@ -451 +452 @@
 end;
 
+function TSqlDatabase.EscapeString(Text: string): string;
+var
+  L: Integer;
+begin
+  SetLength(Result, Length(Text) * 2 + 1);
+  L := mysql_real_escape_string(FSession, PChar(Result), PChar(Text), Length(Text));
+  SetLength(Result, L);
+end;
+
 { TDbRows }