●●●●●●●如何解决错误Incompatible types:'Array' and 'String'？？？

Question

请高手指教var
MemoItems:integer;
当编译时出现错误
  ntida.szTip:='数据库记录中'+#13+'已有'+IntToStr(MemoItems)+'条记录';      //当鼠标停留在系统状态栏该图标上时，出现该提示信息
Incompatible types:'Array' and 'String'问题出在“IntToStr(MemoItems)”上应该如何解决？？？

Answer 1

ntida.szTip:=['数据库记录中'+#13+'已有'+IntToStr(MemoItems)+'条记录'];
可以吗？

Answer 2

ntida.szTip是数组类型
'数据库记录中'+#13+'已有'+IntToStr(MemoItems)+'条记录'是字符串ntida.szTip具体类型是什么？

Answer 3

ntida.szTip具体类型是 
 var szTip:array[0..63] of char

Answer 4

g961681(PerryCom(隐身ing....)) 的方法不行
高手们在想想办法

Answer 5

var
  szTip:array[0..63] of char ;
  MemoItems : integer;
  i : integer;
  str : string;
begin
  MemoItems := 100;
  str := '数据库记录中'+#13+'已有'+IntToStr(MemoItems)+'条记录';
  for i := 1 to Length(str) do
    szTip[i - 1] := Str[i];

Answer 6

var
  StrOfChar: array[0..63] of Char;
  Str: string;
begin
  Str := '数据库记录中' + #13 + '已有' + IntToStr(10) + '条记录';
  StrPCopy(StrOfChar, Str);
  ShowMessage(StrOfChar);
end;

Answer 7

ntida.szTip:=PChar('数据库记录中'+#13+'已有'+IntToStr(MemoItems)+'条记录');
呢？

Answer 8

to: g961681(PerryCom(隐身ing....)) 
行不行，你编译一下不就知道了。>> ntida.szTip:=PChar('数据库记录中'+#13+'已有'+IntToStr(MemoItems)+'条记录');呢？
这个是不行的。以下标0为开始的字符数组，只有字符串常量才能直接赋值给他。