这个简单的有关问题怎么实现

这个简单的问题如何实现

procedure TForm1.Button1Click(Sender: TObject);

const

   mystr1='I LOVE YOU';

   mystr2='my dear';

var

  tempStr:string;

begin

  with adoquery1 do

  begin

      Close;

      SQL.Clear;

      SQL.Add('select  col from TBNM where id= 9862');

      Open;

  end;

  

  ShowMessage(ADOQuery1.Fieldbyname('col').AsString);  //  这个是mystr1


  tempStr:=// 如何把常量mystr1的值'I LOVE YOU' ，赋给变量tempStr


end;

------解决思路----------------------
晕, 我大致懂你的意思了, 弟弟, 你也不表达清楚一点
你应该这样做, 建立一个TStringList

如
  dic := TStringList.Create
然后
  dic.values['mystr1'] := mystr1;
  dic.values['mystr2'] := mystr2;
最后这么写
  tempstr := dic.values[ADOQuery1.Fieldbyname('col').AsString]
------解决思路----------------------

这是键值问题,根据键找出对应的值; 4#方法不错


用TStringList也是要一项项添加值,取值时实际上也是经过循环所有项对比后取出的; 

所以也可以用记录类型处理


type

  TArr=record

   key,

   value:string;

end;



var

  i:integer;

  arr:array [0..1] of TArr;

begin

  arr[0].key:='mystr1';

  arr[0].value:='I LOVE YOU';


  arr[1].key:='mystr2';

  arr[1].value:='my dear';


  for i:=low(arr) to high(arr) do

  if arr[i].key=ADOQuery1.Fieldbyname('col').AsString then

  begin

    tempStr:=arr[i].value;

    break;

  end;

end;