简化代码


function GetLLB(nValue : integer) : string;
const LLBS : array[1..3] of string = ('【拉力棒J】', '【CE Marking】', '【撞击TP】');
var
  n : integer;
begin
  result := '';
  while nValue > 0 do
  begin
    n := nValue mod 10;
    nValue := nValue div 10;
    result := LLBS[n] + result;
  end;
end;
procedure TGuanZhiDan.adqGuanZhiDanMXpfChange(Sender: TField);
begin
  sql := 'select llb_ce_tp from tpJiChuZiLiao where pf =''' + Sender.AsString + '''';
  OpenADOQuery(DM.QryTmp, sql);
  adqGuanZhiDanMX.FieldValues['llb_ce_tp'] :=  GetLLB(DM.QryTmp.FieldByName('llb_ce_tp').AsInteger);
end;