![](https://img-blog.csdnimg.cn/20201014180756919.png?x-oss-process=image/resize,m_fixed,h_64,w_64)
小方法
soasoa
毕业于桂林电子科技大学,计算机软件专业;目前工作于桂林国旅,主要使用工具:delphi,c#(asp.net2.0);对数据库比较了解,使用过sqlserver,db2,kingbase等数据库
展开
-
delphi split函数(积累)
function SplitString(const Source,ch:String):TStringList;varTemp:String;I:Integer;chLength:Integer;beginResult:=TStringList.Create;//如果是空自符串则返回空列表if Source= then Exit;Temp:=Source;I:=Pos(ch,Source);原创 2008-09-22 09:10:00 · 934 阅读 · 0 评论 -
delphi字符串替换
{ 功能:字符串替换 参数: s: 源字符串 source: 需要被替换的字符串 target: 需要替换成的字符串 返回值: 替换后的字符串 例: nowstr := replacing(, nowstr= }function TfrmWebReport.replacing(S, source, target: string): str原创 2008-10-06 10:32:00 · 2663 阅读 · 1 评论 -
delphi获取子字符串
1.{作用:截取字符串中的某一些字符 strSource:源字符串 strBegin: 开始位置字符串 strEnd: 结束位置字符串例:GetStr(abcd1234,bc,34)返回值:d12}function GetStr(StrSource, StrBegin, StrEnd: string): string;var in_star,in_end:integer;beg原创 2008-10-10 09:27:00 · 6053 阅读 · 2 评论 -
Delphi webBrowser焦点
var oldcur:tcursor;begin oldcur := Screen.Cursor; screen.cursor :=crHourGlass; OpenEnglishItinerary(); Self.FocusControl(WebBrowser1); screen.Cursor:=oldcur;原创 2009-05-14 14:58:00 · 1394 阅读 · 1 评论