我感觉用SQL语句很难版,如果写程序很简单
—————————————————————————————————
MaximStr := '宠辱不惊,看庭前花开花落,去留无意;
毁誉由人,望天上云卷云舒,聚散任风。';
if Not Assigned(I) then
I := TI.Create(Nil);
I.Maxim := MaximStr;
I.Explain := '假如上述代码中出现“OA”、“3D”等字样,改为“=”等';
I.Desire := '加不加分随你';
—————————————————————————————————
—————————————————————————————————
MaximStr := '宠辱不惊,看庭前花开花落,去留无意;
毁誉由人,望天上云卷云舒,聚散任风。';
if Not Assigned(I) then
I := TI.Create(Nil);
I.Maxim := MaximStr;
I.Explain := '假如上述代码中出现“OA”、“3D”等字样,改为“=”等';
I.Desire := '加不加分随你';
—————————————————————————————————
解决方案 »
- [新手愧问]在Delphi中使用FastReport做数据库报表时,如何在运行期改变报表标题?
- 哪几种情况不要用到线程同步?
- 请教这个触发器怎么写?MSSQL数据库
- 如何重载ClientDataSet的BeforePost事件????
- 请教:打印机每走一页,自动弹出换纸窗口?
- 小白问题incompatible types
- application(Tform1,form1) Tform1.create(application)有什么区别?
- 关于com1接口的问题 ---------答对有分分
- 一个关于三层结构的问题
- 在Tstringgrid中,如何才能实现单元格的合并
- 怎么给WIN2000发送消息呢???急!!!!!!!!!!!!!!
- 如何在我的程序中打开IE浏览器并连接到指定站点?
var
T: Integer;
begin
T:=pos(#$20,S);
While T<>0 do
begin
Delete(S,T,1);
T:=pos(#$20,S)
end;
end;
在字符串S中查找空格!