if length(str)>high(buf)-1 then exit;for i:=1 to length(str) do
buf[i-1]:=str[i];//试试。呵呵
buf[i-1]:=str[i];//试试。呵呵
解决方案 »
- 两个编辑框对应数据库字段是日期类型如何实现当写入第一个编辑框日期后第二个编辑框自动赋值并且在第一个编辑框的日期上加一年
- delphi2009中的 WordApplication1 WordDocument1那里去了
- delphi 2009 怎么样调用DLL 问题
- Socket接收数据的时候提示"从来不应失败的系统调用失败了"
- 如何通过鼠标获取自定义控件的控制
- 各位fastreport高手请进来看看!
- 如何固定窗体的大小?
- 重载构造函数出错!请指点。
- 我是Delphi初学者,请教各位这条语法为什老报错!!!
- 高手请进!如何用独立的线程控制特定的窗体???
- 在sql server里, 怎样查询在某一范围的日期值。h
- 关于COM、MTS\COM+的客户端访问服务器端总是被拒绝的问题?
s:string;StrPCopy(p,s);就行了。