空格后面的作为标题 ___delphi_
begin g_iLine:=g_iLine+1; continue; end; Memo1_Body.Clear; //空格后面的作为标题 EdTitle.Text:=pStr; //也作为内容 Memo1_Body.Lines.Add(pStr); g_iLine:=g_iLine + 1 ; //指向下一行 while g_iLine begin //while 222222 pStr:=Memo1_Test.Lines[g_iL...
分类：delphi 点击：13 日期：2020-04-04
要处理的文件总行数 ___delphi__
要处理的文件总行数 iCount:=Memo1_Test.Lines.Count; // while g_iLine begin //while 11111 //还有数据要处理 pStr:=Memo1_Test.Lines[g_iLine]; pTmpStr:=TrimString(pStr); //trim(pStr); 这个有bug,不能完全去掉空格 //如果是空行，执行下一行 if ( leng...
分类：delphi 点击：12 日期：2020-04-04
function TrimString(str:string
function TrimString(str:string):string;var myStr:string; begin myStr:=str; myStr:=StringReplace(myStr, chr(13)+chr(10), '', [rfReplaceAll]);//删除回车 myStr:=StringReplace(myStr, ' ', '', [rfReplaceAll]);//删除空格 myStr:=StringReplace(mySt...
分类：delphi 点击：24 日期：2020-04-04
读入的内容写到Memo1_Test显示出
读入的内容写到Memo1_Test显示出来,测试用 EdTitle.Text:=pStr; Memo1_Body.Lines.Add(pStr); while not Eof(pMyFile) do begin Readln(pMyFile,pStr); trim(pStr); if pStr '' then Memo1_Body.Lines.Add(pStr) else begin Button2Click(Sender); Timer1.Ena...
分类：delphi 点击：13 日期：2020-04-04
textarea不能使用以下方式 ___d
textarea不能使用以下方式 ovElements := Docs.GetElementByID('body'); ovElements.Value := Memo1_Body.Text; // memo1_Test.Text:= ovElements.innerText; { doc:=webbrowser1.document as ihtmldocument2; tt:=(doc.all.item('textarea.body',0) as ihtm...
分类：delphi 点击：23 日期：2020-04-04
随机发布文章到栏目类别 ___delp
随机发布文章到栏目类别 iRand := Random(25)+1; if iRand=19 then iRand:=20; ovElements.Value := IntToStr(iRand); //随机数1到25之间...
分类：delphi 点击：12 日期：2020-04-04
用pos函数来判断，在下面这一行
用pos函数来判断，在下面这一行怎么会出错呢？if pos(fieldbyname('fzr').AsString,fieldbyname('xm_luru').AsString) then 系统提示：Type of expression must be BOOLEAN 程序代码如下： procedure TForm3.ziranClick(Sender: TObject); var heji:double; /...
分类：delphi 点击：27 日期：2020-04-04
delphi什么函数能判断一个字符串
delphi什么函数能判断一个字符串包含在另一字符串pos，返回0找不到，大于0找到 pos，返回0找不到，大于0找到 pos，返回0找不到，大于0找到 pos 或 posEx pos 或 posEx pos 或 posEx...
分类：delphi 点击：45 日期：2020-04-04
delphi怎样判断字符串包含指定字
delphi怎样判断字符串包含指定字符用POS函数可以吗 if POS('avx','ssdff')>0 then...
分类：delphi 点击：170 日期：2020-04-04
delphi xe 10 学习起步 ___delph
delphi xe 10 学习起步1. 从百度云盘下载delphi xe 10 lite repack 2. 安装前务必关闭360 3. 全部安装，主要是例子程序要安装 4. 在例子程序中随便打开几个看看 5.USB接口插上我的旧安卓手机酷派8190 6. 编译时选择目标设备为安卓8190 7. 遇到application doe...
分类：delphi 点击：24 日期：2020-04-04