如何的测试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->单步调试
[解决办法]
[解决办法]
pchar只是一个指针,指向一个确定的内存内容
用string会保险一些