ExtTextOut(C.Handle, X + Round(add1 * SinA), Y + Round(add1 * CosA),
FOptions, @FScaledRect, PChar(string(s)) + j, i - j, @FTempArray[j +
1]);---有问题
修改为
StrLenth=Length(String(S));
ExtTextOut(C.Handle, X + Round(add1 * SinA), Y + Round(add1 * CosA),
//FOptions, @FScaledRect, PChar(string(s)) + j, StrLength, @FTempArray[j +1]);
FOptions, @FScaledRect, PChar(string(s))+j, StrLength, @FTempArray[j +1]);
不明白在联系我!