5,930
社区成员
发帖
与我相关
我的任务
分享请发表友善的回复…
发表回复
CsdnRob 2004-07-02
- 打赏
- 举报
轻易不要怀疑mfc.
看看自己操作CString 以前的代码，CString GetBuffer后是否ReleaseBuffer了
creativepeter 2004-06-21
- 打赏
- 举报
你是自定义的shortstring还是使用内置的？其实这也无所谓，你自己转一下就行了。
var
yourArray : array of char;
I: Integer;
begin
SetLength(yourArray, variable_shortstring[0]-1);
for I := low(variable_shortstring) + 1 to high(variable_shortstring) do
yourArray[I-1] := variable_shortstring[I];
end;
var
yourArray : array of char;
I: Integer;
begin
SetLength(yourArray, variable_shortstring[0]-1);
for I := low(variable_shortstring) + 1 to high(variable_shortstring) do
yourArray[I-1] := variable_shortstring[I];
end;
fj218 2004-06-21
- 打赏
- 举报
var
s:shortstring;
b:array [1..10] of char;
.....
s:='abcd';
move(s,b,length(s))
s:shortstring;
b:array [1..10] of char;
.....
s:='abcd';
move(s,b,length(s))
smartzhang 2004-06-21
- 打赏
- 举报
直接给数组不就得了
要不分割后再给
要不分割后再给
juliens 2004-06-21
- 打赏
- 举报
用String[1..255]不是可以定义数组类型的ShortString吗？？
