Changeset 111


Ignore:
Timestamp:
Nov 1, 2016, 9:06:24 AM (8 years ago)
Author:
chronos
Message:
  • Fixed: Characters encoding for string loaded from MS Access database.
File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/UAcronym.pas

    r101 r111  
    77uses
    88  Classes, SysUtils, Contnrs, XMLRead, XMLWrite, DOM, UXMLUtils,
    9   SpecializedList, fphttpclient2, Dialogs, odbcconn, sqldb;
     9  SpecializedList, fphttpclient2, Dialogs, odbcconn, sqldb, LazUTF8;
    1010
    1111type
     
    329329    NewAcronym := TAcronymEntry.Create;
    330330    while not SQLQuery1.EOF do begin
    331       NewAcronym.Name := Trim(SQLQuery1.FieldByName('Acronym').AsString);
    332       NewAcronym.Meaning := Trim(SQLQuery1.FieldByName('Meaning').AsString);
     331      NewAcronym.Name := Trim(WinCPToUTF8(SQLQuery1.FieldByName('Acronym').AsString));
     332      NewAcronym.Meaning := Trim(WinCPToUTF8(SQLQuery1.FieldByName('Meaning').AsString));
    333333      if (NewAcronym.Name <> '') and (NewAcronym.Meaning <> '') then begin
    334334        AddedAcronym := Sources.AcronymDb.AddAcronym(NewAcronym.Name, NewAcronym.Meaning);
     
    336336        if AddedAcronym.Sources.IndexOf(Self) = -1 then
    337337          AddedAcronym.Sources.Add(Self);
    338       end;
     338        end;
    339339      SQLQuery1.Next;
    340340      Inc(ItemCount);
Note: See TracChangeset for help on using the changeset viewer.