如题
解决方案 »
- 为什么我HOOK鼠标钩子以后第二次点击才起效?
- 【菜鸟问题100分】如何在DBchart中动态创建series
- $80000000 是什么意思呀?
- ◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆怎样使一个数据集的指针不指向任何一个记录??◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆
- 请问有类似VB中instr()函数的没有???
- 关于MDI窗口活动性
- 怎样导出数据?在线等候回答
- 如何将TTS引擎读出的语音保存成WAV?
- 如何在dephi 6中注册componentone的VSFlexGrid控件?
- 怎样在三层体系中使用ADO组件,TDatasetProvider,TClientDataset同时更新多个数据表?
- 请教调用函数的小问题
- 不能倒分真不爽,发个0分帖加点可用分
procedure TForm1.Button2Click(Sender: TObject);
var
s:string;
x,i: integer;
begin
s:=#1#1;
for i:=1 to length(s) do
if ord(s[i])<48 then
s[i]:=chr(48+ord(s[i]));
showmessage(s);
end;
begin
Result := StringReplace(s, '#', '', [rfReplaceAll]);
end;