Changeset 154 for trunk/UAcronym.pas

Timestamp:

Oct 16, 2017, 3:44:47 PM (7 years ago)

Author:

chronos

Message:

• Fixed: Settings dialog buttons position on form resize.

File:

• trunk/UAcronym.pas (modified) (4 diffs)

trunk/UAcronym.pas

@@ -713 +713 @@
     NewNode := Node.OwnerDocument.CreateElement('Ref');
     Node.AppendChild(NewNode);
-    NewNode.TextContent := IntToStr(TImportSource(Items[I]).Id);
+    NewNode.TextContent := WideString(IntToStr(TImportSource(Items[I]).Id));
   end;
 end;
@@ -725 +725 @@
   Node2 := Node.FirstChild;
   while Assigned(Node2) and (Node2.NodeName = 'Ref') do begin
-    if TryStrToInt(Node2.TextContent, Id) then begin
+    if TryStrToInt(string(Node2.TextContent), Id) then begin
       Source := AcronymDb.ImportSources.SearchById(Id);
       if Assigned(Source) then begin
@@ -1228 +1228 @@
     NewNode := Node.OwnerDocument.CreateElement('Ref');
     Node.AppendChild(NewNode);
-    NewNode.TextContent := IntToStr(TAcronymCategory(Items[I]).Id);
+    NewNode.TextContent := WideString(IntToStr(TAcronymCategory(Items[I]).Id));
   end;
 end;
@@ -1240 +1240 @@
   Node2 := Node.FirstChild;
   while Assigned(Node2) and (Node2.NodeName = 'Ref') do begin
-    if TryStrToInt(Node2.TextContent, Id) then begin
+    if TryStrToInt(string(Node2.TextContent), Id) then begin
       Category := Db.Categories.SearchById(Id);
       if Assigned(Category) then begin