Changeset 340 for tools/dbc_export/UDBC.pas

Timestamp:

Feb 27, 2010, 6:25:07 PM (15 years ago)

Author:

maron

Message:

Přidání parametru sql_query, připojení k databázi, nahrazování původních textů texty z databáze

File:

• tools/dbc_export/UDBC.pas (modified) (2 diffs)

tools/dbc_export/UDBC.pas

@@ -30 +30 @@
     procedure LoadColumnStrings(Column: Integer);
     procedure SaveToFile(FileName: string);
+    procedure SetString(Row, Column: Integer; Text: AnsiString);
   end;
 
@@ -121 +122 @@
 end;
 
+procedure TDBC.SetString(Row, Column: Integer; Text: AnsiString);
+begin
+  if VarIsStr(Cells[Row,Column]) then begin
+    StringBlockSize := StringBlockSize + strlen(Pchar(Text)) - strlen(Pchar(VarToStr(Cells[Row,Column])));
+    Cells[Row,Column] := Text;
+  end;
+end;
+
 function TDBC.DetectColumnType(Column: Integer): TDBCColumnType;
 //var