delphi7怎样在text（delphi7怎样实现按下一个按钮程序自动按顺序每500ms执行一项修改Edit.Text值，有多个需修改项目）

本文目录

• delphi7怎样实现按下一个按钮程序自动按顺序每500ms执行一项修改Edit.Text值，有多个需修改项目
• [delphi7]怎么在edit.text上输出公式
• delphi7 打印 edit.text的内容到发票的对应位置
• delphi7 怎样获取字符串长度
• 用delphi7.0写一个生成txt文档的程序
• 在delphi7中，如何在一个字符串中查找某一地位处的字符是什么
• delphi7使用fastreport5版本怎么把画布大小赋值到edit.text里面去宽高各一个EIDT
• 我用Delphi7写了一段新建txt与写入txt的代码，但是出现了I/O 32错误
• Delphi7 如何把SQL语句得到的查询结果显示在Text上

delphi7怎样实现按下一个按钮程序自动按顺序每500ms执行一项修改Edit.Text值，有多个需修改项目

加入一个时间控件Ttimer1，其enabled属性设置为false。在你需要程序自动按顺序每500ms执行一次时，把interval属性设置为500，同时把enabled属性设置为true。你需要它结束时把enabled设置为false

[delphi7]怎么在edit.text上输出公式

肯定不行啊。

你是想求y的值？

var  a, b : integer;  x : integer;begin//   假设这里所有参加计算的数都是整形的        a := strtoint(editA.Text);    b := strtoint(editB.Text);    x := strtoint(editX.Text);    editY.Text := intToStr(b * x + a);     end;

建议题主先看看delphi基础，或视频。

delphi7 打印 edit.text的内容到发票的对应位置

可以参考这篇文章：***隐藏网址***把这篇文章的代码弄成.pascal，加到自己的工程里面去用。那代码主要是进行了点和毫米的转换，很好用。我之前就用来做了一个证件打印的软件。用尺子把发票的位置按x、y轴量好，用代码里面的PrintText(X, Y: Extended; Txt: string; ConfigFileName: string; FontSize: Integer=12);函数打印就行。

delphi7 怎样获取字符串长度

delphi7 怎样获取字符串长度 procedure TForm1.Button1Click(Sender: TObject); var s : integer; begin s:= length( Edit1.text ) ; showmessage(’字段长度’ +inttostr(s)) ; end; end. cocos2d 怎么获取字符串长度 int RoutesController::strLength(const std::string &str) { if (typeid(str) == typeid(std::string) && str.length() 》 0) { int len = str.length(); std::vector 《《span class="s4"》std::string》 dump; int i = 0; while(i 《 len) { if (~(str.at(i) 》》 8) == 0) { dump.push_back(str.substr(i, 3)); i = i + 3; } else { dump.push_back(str.substr(i, 1)); i = i + 1; } } return dump.size(); } else { printf("str is not string\n"); return 0; } } asp中如何用VBscript获取字符串长度? 定义和用法 Len 函数可返回字符串中字符的数目。 语法Len(string|varname) 参数 描述 string 字符串表达式。 varname 变量名称。 dim txttxt="This is a beautiful day!"document.write(Len(txt)) 输出：24 bat 获取文本内字符串长度 获取new.txt中中每行文本字符串长度，长度信息写入report.txt中 setlocal enabledelayedexpansionif exist report.txt del report.txtset line=0for /f "tokens=* delims=" %%a in (new.txt) do (set var=%%aset /a line+=1set num=0call :loopecho 第!line!行字符串长度为：!num!个字符 》》report.txt):loopif not "!var!"=="" (set /a num+=1 set var=!var:~1!goto loop) else (goto :eof) BCB6 已知字符串怎么获取字符像素长度 void __fastcall TForm20::FormCreate(TObject *Sender) { String s = "123456789"; Caption = this-》Canvas-》TextWidth(s); } 可以用TCanvas的TextWidth函数 也可以直接用API函数GetTextExtentPoint32 如何获取中英文混合字符串长度 function strLength($str,$charset=’utf-8’){ if($charset==’utf-8’) $str = iconv(’utf-8’,’gb2312’,$str); $num = strlen($str); $Num = 0; for($i=0;$i《$num;$i++){ if(ord(substr($str,$i+1,1))》127){ $Num++; $i++; } } $enNum = $num-($Num*2); $number = ($enNum/2)+$Num; return ceil($number); } 字符串定义： $str = "和我一起说：Hello world!"; 1、获取中英文混合长度 $con = $this-》strLength($str,’gb2312’); echo “$con”; 2、获取字符串中中文长度 $pa = ’//siu’; preg_match_all($pa, $str, $r); $count = count($r); echo $count; 3、获取字符串字节长度（一个汉字3个字节） $count = strlen($str)； velocity中药截取字串和判断字符串长度改怎么做！ 直接取》 和《 中间的字符就可以了； 用pos查找最左边的》的位置，再取最右边的《的位置，再用copy取出》和《之间的字符就可以了！ 长度貌似不行 你可以用jstl 的函数库 导入 《%@taglib prefix="fn" uri=":java.sun./jsp/jstl/functions" %》 ${fn:length(str)}可获取str字符串的长度 c#获取字符串宽度像素 通过Graphics对象的MeasureString方法可以获取字符串的大小，如下： Graphics graphics = CreateGraphics(); SizeF sizeF = graphics.MeasureString(字符串, new Font("宋体", 9)); MessageBox.Show(string.Format("字体宽度：{0}，高度：{1}", sizeF.Width, sizeF.Height)); graphics.Dispose(); 给定字符串 ”English中文” 1.取得字节长度；2.取得字符串长度；3.取第3位字符内容 #include《stdio.h》 #include《string.h》 void main() { char *p="English中文",c; int lengthofstr=strlen(p),lengthofchar=sizeof("English中文"); for(int i=0;i《lengthofstr;i++) if(i==2) { c=p; break; } printf("%d\n%d\n%c",lengthofstr,lengthofchar,c); } jquery 如何获取textbox里面的字符串长度？$("#XX").val().lenght获取不到. 很明显，你的length属性写错了。 改成这样试试：$("#XX").val().length;应该是可以的！

用delphi7.0写一个生成txt文档的程序

procedure Twrt_Form.N1Click(Sender: TObject);varmyfile: Textfile;s,str:string;begin richedit1.Text:=’’; if opendialog1.Execute then //此处选择你要打开的文件 begin caption:=opendialog1.FileName; str:=opendialog1.FileName; assignfile(myfile,str); reset(myfile); try while not eof(myfile) do begin readln(myfile,s); //读文件 richedit1.Lines.Add(s); end; finally closefile(myfile); end;end;end;

在delphi7中，如何在一个字符串中查找某一地位处的字符是什么

可通过函数POS及COPY配合使用实现该功能。

一、函数说明：

POS：获取特定字符所处字符串的位置，返回数据类型为整型。POS共有两个参数：POS(特定字符或字符串，源字符串)。

COPY：字符串截取，返回数据类型为字符型。COPY共有三个参数：COPY(源字符串，起始截取位（整型，可为变量），截取位数（整型，可为变量））。

二、实例演示（笔者以截取特定字符‘.’前5位为例），操作如下：

1、添加TEDIT及TBUTTON控件各一个；

2、在TBUTTON控件的单击事件中，写入代码：ShowMessage(Copy(Trim(ed2.Text),Pos(’.’,Trim(ed2.Text))-6,5));

3、在TEDIT中随便输入一串字符，点击TBUTTON控件，效果如下图：

delphi7使用fastreport5版本怎么把画布大小赋值到edit.text里面去宽高各一个EIDT

Procedure TForm1.frxReport1BeginDoc(Sender: TObject);Begin  With (frxReport1.FindObject(’page1’) As Tfrxreportpage) Do  Begin    PaperWidth := 13;    PaperHeight := 10;  End;  End;

我用Delphi7写了一段新建txt与写入txt的代码，但是出现了I/O 32错误

那是因为你创建文件后，没有关闭文件，所以造成这个现象。定义一个变量hFile: THANDLE，然后在创建文件的时候这样处理：.......hFile := FileCreate(Filename);CloseHandle(hfile);.......

Delphi7 如何把SQL语句得到的查询结果显示在Text上

如果是用adoquery组件的话。adoquery1.sql.clear;adoquery1.close;adoquery1.SQL.add( ’SELECT COUNT(sno) FROM student’);adoquery1.open;StatusBar1.panels.AsString;