读书人

怎么的测试delpi中自带的东东

发布时间: 2012-03-29 12:53:12 作者: rapoo

如何的测试delpi中自带的东东?
uses SysUtils;
const

S: PChar = 'A fUnNy StRiNg'
begin
Canvas.TextOut(5, 10, string(StrLower(S)) + ' ' + string(StrUpper(S)));

end;

[解决办法]

Delphi(Pascal) code
uses  StrUtils;//...const  str = 'A fUnNy StRiNg';var  S: PChar;begin  GetMem(S, Length(str)+1);  StrPCopy(S, str);  Canvas.TextOut(5, 10, string(StrLower(S)) + ' ' + string(StrUpper(S)));end;
[解决办法]
project options->compiler->debugging->use debug dcu->单步调试
[解决办法]
探讨
project options->compiler->debugging->use debug dcu->单步调试

[解决办法]
pchar只是一个指针,指向一个确定的内存内容

用string会保险一些

读书人网 >.NET

热点推荐