帮个忙！看看这段赋值为什么会出错！

Question

因为有40个string变量
lup1........lup20
nup1........nup20有个地方需要nup的值对应的赋到lup中
lup1:=nup1;lup2:=nup2;...............lup20:=nup20;  但用
for i:=1 to 20 do
begin
  ('lup'+IntToStr(i)):=('nup'+IntToStr(i));
end;
就不行，说Left Side Cannot be assinged to
请问有解决的办法吗？

Answer 1

字符串不能赋给字符串。
var
  lup:array[1..20] of string;
  nup:array[1..20] of string;
  i:integer;
-----------------------------------for i:=1 to 20 do
begin
  ...
  lup[i]:=nup[i];
  ...
end;