function QuotedStr(const S: string): string;
var
I: Integer;
begin
Result := S;
for I := Length(Result) downto 1 do
if Result[I] = '''' then Insert('''', Result, I);
Result := '''' + Result + '''';
解释一下for 后面的语句实在在有点不明白。
var
I: Integer;
begin
Result := S;
for I := Length(Result) downto 1 do
if Result[I] = '''' then Insert('''', Result, I);
Result := '''' + Result + '''';
解释一下for 后面的语句实在在有点不明白。
解决方案 »
- 有关 FastReport 的统计打印问题。
- 同志们这个问题一直没有解决呀!!!!跪请---赐教!!!救命哪!!!!!救命哪!!!!!救命哪!!!!!救命哪!!!!!救命哪!!!!!
- 挑战性的问题,请进
- TDX开头的控件是什么控件啊?常用吗?哪里有下啊?还有tcooltrayicon呢?
- 高分求助!!winexec函数的第一个参数可以设置为相对路径吗(例如主文件所在目录或其上一层)?谢谢!
- 再问一遍
- 加分
- 为什么调不出程序?
- 关于控件数组(这点上delphi没VB好是吗)
- 有关类的封装问题,当然对高手来说太简单了!!!!请进.........
- 数组赋值形式的比较全面的资料,哪位可以给提供一下。
- 控件Report这个使用.
Result[I],就是第i个字符基本知识,看看帮助,自己调试便知
在I的位置插入一个单引号