如何使用函数“copy”将UTF-8值赋给变量

时间:2017-08-24 02:29:43

标签: delphi-6

我使用以下代码将文本分配给SQL参数:

quInsert.Parameters.ParamByName('veh_type').value := copy(s,11,1);

有时,我正在读取的.txt文件中的文本是UTF-8,其中包含使用两个字节的字符。如何更改以下代码以接受UTF-8数据?

procedure TPrepareform.Button1Click(Sender: TObject);
var
  f : textfile;
  s : string;
  i : integer;
  IsAnsiString : Boolean;
begin
  with quInsert do
  begin
    close;
    sql.clear;
    sql.add('insert into v_info_2018');
    sql.add('(record_type, plate_group, plate_no, v_type, v_type_cn,');
    sql.add('v_type_pt, v_type_pt, v_brand, engine_no, ct_tax_amount');
    sql.add('inspect_date, record_date');
    sql.add('values (:record_type, :plate_group, :plate_no, :v_type, :v_type_cn, :v_type_pt, :v_type_pt,');
    sql.add(':v_brand, :engine_no, :ct_tax_amount,');
    sql.add(':inspect_date, :record_date');
  end;
  i := 0;
  assignfile(f,edMasterName.Text);
  reset(f);
  while not eof(f) do
  begin
    readln(f,s);
    inc(i);
  end;
  prInsert.Max := i;
  i := 0;
  reset(f);
  VRS_Main.StatusBar1.Panels[5].Text:='0';
  while not eof(f) do
  begin
    inc(i);
    prInsert.StepIt;
    readln(f,s);
    quInsert.Parameters.ParamByName('record_type').value := copy(s,1,1);
    quInsert.Parameters.ParamByName('plate_group').value := copy(s,2,1);
    quInsert.Parameters.ParamByName('plate_no').value := copy(s,3,8);
    quInsert.Parameters.ParamByName('v_type').value := copy(s,11,1);
    quInsert.Parameters.ParamByName('v_type_cn').value := UTF8Decode(copy(s,12,50));
    quInsert.Parameters.ParamByName('v_type_pt').value := copy(s,62,50);
    quInsert.Parameters.ParamByName('v_brand').value := copy(s,112,30);
    quInsert.Parameters.ParamByName('engine_no').value := copy(s,142,50);
    quInsert.Parameters.ParamByName('ct_tax_amount').value := copy(s,192,9);
    quInsert.Parameters.ParamByName('inspect_date').value := copy(s,201,50);
    quInsert.Parameters.ParamByName('record_date').value := copy(s,251,8);
    quInsert.ExecSQL;
    VRS_Main.StatusBar1.Panels[5].Text:=inttostr(strtoint(VRS_Main.StatusBar1.Panels[5].Text)+1);
  end;
end;

image

1 个答案:

答案 0 :(得分:0)

将UTF-8数据存储在UTF8String而不是标准String中,然后调用UTF8Decode()Utf8ToAnsi()并将该结果存储在数据库中。