string - delphi 2009转换为字符串长度2

Question

寻找如何抑制编译器发出的可能数据丢失的警告，

st:= copy(str,0,2);

其中 st 是 string[2]，并且 str 具有超过 2 个字符。

并且 copy 被定义为从 str 返回一个新字符串，该字符串是 0 , 2 个位置的子集。

Answer 1

这将抑制警告，但请注意根本问题仍然存在:从 Unicode 转换为 AnsiString 可能会导致数据丢失。

st := ShortString(Copy(str,1,2));

不要忘记 Delphi 字符串是从 1 开始的，字符串中的第一个字符是 1，而不是 0。