Delphi if in 和ord函数问题 [问题点数:20分]

Bbs1
本版专家分:0
结帖率 0%
Bbs1
本版专家分:0
Bbs7
本版专家分:21280
Blank
红花 2019年2月 其他开发语言大版内专家分月排行榜第一
2019年1月 Delphi大版内专家分月排行榜第一
2018年8月 Delphi大版内专家分月排行榜第一
2018年7月 Delphi大版内专家分月排行榜第一
2018年4月 Delphi大版内专家分月排行榜第一
2018年3月 Delphi大版内专家分月排行榜第一
Blank
黄花 2016年11月 Delphi大版内专家分月排行榜第二
Blank
蓝花 2011年10月 其他开发语言大版内专家分月排行榜第三
2010年8月 其他开发语言大版内专家分月排行榜第三
2007年5月 其他开发语言大版内专家分月排行榜第三
Bbs7
本版专家分:21280
Blank
红花 2019年2月 其他开发语言大版内专家分月排行榜第一
2019年1月 Delphi大版内专家分月排行榜第一
2018年8月 Delphi大版内专家分月排行榜第一
2018年7月 Delphi大版内专家分月排行榜第一
2018年4月 Delphi大版内专家分月排行榜第一
2018年3月 Delphi大版内专家分月排行榜第一
Blank
黄花 2016年11月 Delphi大版内专家分月排行榜第二
Blank
蓝花 2011年10月 其他开发语言大版内专家分月排行榜第三
2010年8月 其他开发语言大版内专家分月排行榜第三
2007年5月 其他开发语言大版内专家分月排行榜第三
Bbs1
本版专家分:0
Bbs5
本版专家分:3376
Bbs4
本版专家分:1223
Bbs7
本版专家分:21280
Blank
红花 2019年2月 其他开发语言大版内专家分月排行榜第一
2019年1月 Delphi大版内专家分月排行榜第一
2018年8月 Delphi大版内专家分月排行榜第一
2018年7月 Delphi大版内专家分月排行榜第一
2018年4月 Delphi大版内专家分月排行榜第一
2018年3月 Delphi大版内专家分月排行榜第一
Blank
黄花 2016年11月 Delphi大版内专家分月排行榜第二
Blank
蓝花 2011年10月 其他开发语言大版内专家分月排行榜第三
2010年8月 其他开发语言大版内专家分月排行榜第三
2007年5月 其他开发语言大版内专家分月排行榜第三
ord函数是?
??
HIGH和ORD函数运用
请问下面代码rn if(high(s)=length(s)) then rn dec(s[0]);rn s[<em>ord</em>(length(s))+1]:=#0;rn是什么意思
ord函数是什么用的?
DirToChangeTo:string;rn<em>ord</em>(DirToChangeTo[0])
ord()与INT()函数
我们知道PHP中将字符'A'转化为数字有两种常用的方法:<em>ord</em>()和int()<em>函数</em>。但是这一切又是怎样进行的呢?它们之间又有什么区别?
delphi 中的ord函数在cb中用那个函数可以实现??
thx.
ord问题
var lpbuffer:pchar;内存缓冲区rnnsize:dw<em>ord</em>;rnlpbuffer:=allocmem(nsize);rn s:=s+inttohex(<em>ord</em>(lpbuffer[i]),2)+'';rn这里的<em>ord</em> 应该怎么理解呢?rn
ord()的问题
手册上面说是转换成ASCII,可是ASCII只有127个字符。为什么<em>ord</em>("我")依然可以输出结果呢。
关于中文乱码算法的ord函数问题
关于如何做这个题的算法我是清楚的,但是就有关于<em>ord</em><em>函数</em>的一些原理<em>问题</em>不能理解,请大神帮忙解释一下,通俗易懂最好,本人新手。rn[code=php]0xa0)rn rn $w<em>ord</em>.=substr($str,$i,2);rn $i++; rn rn else rn $w<em>ord</em>.=substr($str,$i,i);rn rn return $w<em>ord</em>;rn rn?>[/code]rnrn我们可以看到,这段代码再第一个判断语句[code=php]if (<em>ord</em>(substr($str, $i,1))>0xa0)[/code]rn中,substr($str,$i,1) substr<em>函数</em>截取的长度只有一个字节。小弟在网上了解了一下,汉字在GB2312的标准里面是2个字节长度,所以第一个<em>问题</em>: 因为<em>ord</em>()<em>函数</em>只是判断一个字符串第一个字符的ASCII码,意思是只判断这个汉字的第一个字节的ASCII吗?rnrn然后第二个<em>问题</em>:【先看一下代码】rn[code=php] if (<em>ord</em>(substr($str, $i,1))>0xa0)rn rn $w<em>ord</em>.=substr($str,$i,2);rn $i++; rn [/code]rn这边符合判断条件之后,这边的substr()<em>函数</em>截取的长度变为2 但是$i只有加1,这是我和不能理解的。因为汉字有两个字节长度,所以这边的$i不应该是加2吗?rnrn求大神帮忙解释一下 小弟感激不尽,新手新学,可能对一些概念还都不是很理解。求通俗易懂解释~
ord函数是用于什么的?
<em>ord</em><em>函数</em>是用于什么的?急!
PHP之string之ord()函数使用
<em>ord</em> (PHP 4, PHP 5, PHP 7) <em>ord</em> — Return ASCII value of character <em>ord</em> — 返回字符的 ASCII 码值 Description int <em>ord</em> ( string $string ) //Returns the ASCII value of the first chara...
ORD函数是怎么用的
需要翻译一段Delphi程序,不知ORD<em>函数</em>的用法和功能,特此请教!rn在此多谢了!
jeapedu 22 字符串ord函数
链接: https://pan.baidu.com/s/1nwFe2ff 密码: dkhx print(<em>ord</em>(&quot;a&quot;)) print(<em>ord</em>(&quot;A&quot;)) # &quot;hello world&quot; to ascii s = &quot;hello world&quot; i = 0 while i &amp;lt; len(s): print(s[i], <em>ord</em>(s[i])) i += 1
字符串ord函数详解及应用
熟悉项目开发流程;独立分析出项目框架;胜任目标企业的职位要求;rn本课程针对在职人员及在读学生开设,充分利用空闲时间充电。
请教如何使用ord函数
假如在程序中加入如下命令:rnabc:=edit1.text; (只有一个字符)rnx:=<em>ord</em>(abc); (希望能返回abc所代表字符的ASCII值)rn上述代码,Delphi报错,但如果使用x:=<em>ord</em>('C')却可以返回值99,也就是说,<em>ord</em><em>函数</em>不支持变量,只可以使用固定的字符,是这样吗?那么如果的确需要返回某一变量所代表的字符的ASCII值该如何表示。 rn
ord()是什么函数?干麻的?
s:String;rnrn<em>ord</em>(s[i])有什么用?rnrn由于我不会<em>delphi</em>,而老板又要我看<em>delphi</em>的代码,手上又没有资料.有劳各位了.
bcb中有没有delphi中的函数chr() 和ord()
我想在BCB中改写DLEHI的代码成C的但是 对这两个<em>函数</em>不知道怎么转换rnchr()是把数字转换成字符rn<em>ord</em>()是把字符转换成数字rn在DELPHI中rnSource :string ;rnind : dw<em>ord</em>;rna2 : bytern<em>ord</em>(Source[Count+1]) - $41rnchr(ind or a2);rn我rn转换成CrnAnsiSting Source;rnDWORD ind;rnBYTE a2;rn XX(Source[Count+1]-0x41rn xxx(ind | a1)rn帮我把这个两个地方搞定 谢谢了
Delphi中的ord函数在BCB里可以用什么替代?
Delphi 代码:rnBC:array [1...61]of charrnrn if(<em>ord</em>(BC[19])>127)thenrn result := inttostr(<em>ord</em>(BC[19])-256)rn elsern result := inttostr(<em>ord</em>(BC[19]));rnrn请问<em>ord</em><em>函数</em>在BCB里可以用什么<em>函数</em>代替?
Python中的chr()函数ord()函数
chr()<em>函数</em>和<em>ord</em><em>函数</em>通常配合使用。 chr()<em>函数</em> 用来返回字ASCII码对应的字符 eg.  &amp;gt;&amp;gt;&amp;gt; chr(97) 'a' &amp;gt;&amp;gt;&amp;gt; chr(99) 'c' &amp;gt;&amp;gt;&amp;gt; chr(60) '&amp;lt;' <em>ord</em>()<em>函数</em> 用来返回字符对应的ASCII码 eg. &amp;gt;&amp;gt;&amp;gt; <em>ord</em>('a') 97 &amp;gt;&amp;g
ORD涵数的问题
请问Delphi中求一个字符的阿死可码值是这个ORD<em>函数</em>吗?不是那是什么?请指教。
请问ord(g)在delphi中是什么意思?
g :char;rng = char(15);rntrans[<em>ord</em>(g)] := x;rnrn<em>ord</em>(g)是什么意思?rn
请问Delphi中a:=(ord(Source[1+i*3]) shl 4)的Ord函数在BCB中可用什么函数代替?
如果有兄弟姐妹知道,烦请相告一下。rn在下感激不胜。
求助!delphi xe2的ord方法解析
高手们,请问<em>delphi</em> xe2的<em>ord</em>方法和<em>delphi</em>2007的<em>ord</em>方法有什么不同啊,能不能详细解释一下啊,多谢多谢!
ord用法
请问<em>ord</em><em>函数</em>怎么用的啊,听别人讲Ord 返回参数值在其数据类型值集合中的序号 但还是不懂什么是数据类型值集合中的序号啊.rn
python中chr()和ord()函数的用法
在文章Python中raw_input()与input()的区别(http://blog.csdn.net/hk_john/article/details/77976899)中已经介绍Python中raw_input()与input()的区别。那么我们如何才能从raw_input()<em>函数</em>读取的字符串转换成ascii形式的整型数呢?和也就是今天的两个<em>函数</em>的作用所在。 Python中经常会获得一
python中chr与ord函数的使用
<em>ord</em>()是将已知字母转换成其顺序值; chr()是将已知字母的顺序至转换成其对应的字母 1 2 3 4 5 6 7 8 >>> <em>ord</em>("a") 97 >>> <em>ord</em>("A") 65 >>> chr(97) 'a' >>> chr(65) 'A'
perl中ASCII转换的函数——chr、ord
程序: #!/usr/bin/perl -w use strict; my $num=<em>ord</em> 'E'; print &quot;The ASCII is : $num\n&quot;; my $w<em>ord</em>=chr(69); print &quot;The w<em>ord</em> is : $w<em>ord</em>\n&quot;;   结果: The ASCII is : 69The w<em>ord</em> is : E ...
ord() 函数的返回值怎样转成 String ?
如题!rn怎么帮助里没提到?用 Str() 也不行!
急!!.net里有没有ord函数
如题,在DELPHI、PHP中有一个<em>ord</em>()<em>函数</em>,可以取得字符的ASCII 序数值。请问在C#里有没有这个<em>函数</em>或功能相同的<em>函数</em>~!?
ord函数需要包括什么头文件
<em>ord</em><em>函数</em>是做什么用的?rn需要包括什么头文件
ord()函数什么意思,有没有相过程的函数,在线等
<em>ord</em>()<em>函数</em>什么意思,有没有相过程的<em>函数</em>,在线等
python 如何编码问题中的len函数ord函数
Python2.x len<em>函数</em> 对unicode字符串而言,求的是字符个数 对于str字符串而已,求的是字节(8bit一个)个数 <em>ord</em><em>函数</em> 对于unicode字符串而已,如hex(<em>ord</em>(u'试试‘)[0]),求出的是unicode的·16进制表示 对于str而言,是存储的第一个字节 ...
哪位老大能介绍介绍ASCII的范围问题(Ord函数)???
哪位老大能介绍介绍ASCII的范围<em>问题</em>(Ord<em>函数</em>)???rn请问什么到什么范围是数字1234...的ASCII, rn请问什么到什么范围是字母abcd...,ABCD...的ASCII, rn请问什么到什么范围是汉字的ASCII, rn请问什么到什么范围是其他字符的ASCII .rnrnrn????rn
chr()函数ord()函数进行字符串与ASCII码之间的转换
1.chr()<em>函数</em> 该<em>函数</em>用于将ASCII码值转化为字符串。其<em>函数</em>声明如下: string chr (int ascii); 2.<em>ord</em>()<em>函数</em> 该<em>函数</em>用于将字符串转化为ASCII码值。其<em>函数</em>声明如下: int <em>ord</em>(string str); 例子: 使用chr()<em>函数</em>和<em>ord</em>()<em>函数</em>进行字符串与ASCII码之间的转换,程序代码如下: $str1=chr(88); echo $str1; //返
delphi函数的一个问题
我想的取一个字符串的ascii码.于是我写了如下<em>函数</em>进行转换.rn[code]rnfunction getasc(s:string):string;rnvarrnlen,i:integer;rnasc1,mm:string;rnbeginrnlen:=length(s);rnfor i:=1 to len dornbeginrnasc1:=inttostr(byte(s[i]));rnmm:=mm+asc1rnend;rnresult:=mm;rnend;rn[/code]rn但是我在单步的时候发现循环的时候取得的值为第一个字符的ascii码的反转值+一些别的值rn可能我描述的不是很清楚,假如我传入的字符串为51吧那么我取得的值为5320当然这里20是我假设出来的但是53是我单步看到的rn请问各位大虾为什么我的这个<em>函数</em>会这样?是不是我哪个地方写错了?rn当然这里可以使用<em>ord</em>但是结果是一样的.rn请各位不吝赐教.
Delphi,Trunc函数问题
procedure TForm1.Button1Click(Sender: TObject);rnvarrn Val: Extended;rnbeginrn Val := 8.2;rn ShowMessage(Format('%d', [Trunc(Val*100)])); //820rn Val := 8.4;rn ShowMessage(Format('%d', [Trunc(Val*100)])); //839rnend;rnrnprocedure TForm1.Button2Click(Sender: TObject);rnvarrn Val: Double;rnbeginrn Val := 8.2;rn ShowMessage(Format('%d', [Trunc(Val*100)])); //819rn Val := 8.4;rn ShowMessage(Format('%d', [Trunc(Val*100)])); //840rnend;rnrn8.30,8.50又没有<em>问题</em>rnrn请高手给解释一下,这是什么原因rnrn我是想将一个元的DOUBLE变量,转换成分的INT变量,用什么<em>函数</em>好一些?
delphi函数与数组问题
1、哪个<em>函数</em>在数组中搜索与一个表达式具有相同数据的元素?并返回元素编号rn2、哪个<em>函数</em>可以根据元素编号返回元素的行、列下标值?rn
关于delphi函数问题
rn<em>delphi</em>n中有直接取年份或月份的<em>函数</em>么?如果没有rn我想从 2002-5-3(日期为用date取出的值)中取出2002,用<em>函数</em>怎么实现???
关于delphi函数问题
我是一个初学者,想请问一下在<em>delphi</em>怎样创建<em>函数</em>? 怎样使用创建的<em>函数</em>?请介绍的详细些,最好有详细的例程和使用方法,谢谢!
delphi加密函数问题
定义一个加密解密<em>函数</em> rnfunction Encode(s:string):string ;rnvarrnn,i :integer ;rnstr:string ;rnbeginrnn:=length(s) ;rnstr:= '' ;rnfor i:=1 to n dornbeginrnstr :=str+ char(<em>ord</em>(s[i])-1) ;rnend;rnencode:=str ;rnend;rnrnrnfunction Decode(s:string):string ;rnvarrnn,i:integer ;rnstr:string ;rnbeginrnn:=length(s);rnstr:= ' ' ;rnfor i:=1 to n dornbeginrnstr:=str+char(Ord(s[i])+1) ;rnend;rnDecode:=str ;rnend;rn======rnrnrn打开文本 rn=========rnprocedure TForm1.OpenClick(Sender: TObject);rnvarrnTextvar : Textfile ;rnTextLine :string ;rnbeginrnif opendialog1.Execute thenrnbeginrnMemoB.Clear ;rncaption:= '文本加密器' +Opendialog1.FileName ;rn AssignFile(TextVar,Opendialog1.FileName) ;rn Reset(TextVar) ;rn while not eof(TextVar) dorn beginrn ReadLn(TextVar,TextLine);rn MemoB.Items.Add(textLine);rn end;rn closefile(TextVar) ;rn end;rnend;rnrn=====rn加密是出错 rnprocedure TForm1.EncodeClick(Sender: TObject);rnbeginrnMemob.Items:=Encode(Memob.Items ) ;rnend;rn========rnrnMissing operator or semicolonrn错误信息 rnrn如何解决?
delphi的API函数问题
刚开始学用<em>delphi</em>,想问下<em>delphi</em>有没有象PB理run的指令rn比如PB里可以调用这样 run("copy e:/test.txt d:/")rn在<em>delphi</em>要怎么实现啊????
delphi的正切函数问题
varrn v1, v2: Extended;rnbeginrn v1 := tan(45);rnrn请问为什么结果会是; 1.6......., 应该是1才对吧?????
Delphi函数问题
function TForm1.DoCopyTStrings(A: TStrings): TStrings;rnvarrn I,nCount: Integer;rn oCopy: TStrings;rnbeginrn oCopy := TStringList.Create;rn nCount := A.Count;rn for I := 0 to nCount - 1 dorn beginrn oCopy.Add(A[I]);rn end;rn Result := oCopy;rn oCopy.Free; rnend;rn我写了这么一个<em>函数</em>用于复制一个TStringsrn在另外一个<em>函数</em>中调用这个<em>函数</em> oTime := DoCopyTStrings(ArrTime);rnArrTime是一个TStrings,长度是3rnoTime的长度就是0rn是不是因为执行了oCopy.Free; 如果去掉这句 oTime的长度就是3了 但是会内存溢出啊 求解
ord/pspice9.2教程
<em>ord</em>/pspice9.2教程
关于ord函数用法
如下:a:=<em>ord</em>('s')(*var a:integer*), 程序编译通过;rn str1:='s';a:=<em>ord</em>(str1)((*var a:integer;str1:string*)),程序编译不过;rn我查了帮助,<em>ord</em><em>函数</em>中的参数没有定义类型.我很奇怪,<em>ord</em>中参数直接传一个string型值跟传一个string型变量有何区别,而后面的一段程序我昨天写还没<em>问题</em>,今天反而报错.
Python标准库 内置函数ord c
Python标准库 内置<em>函数</em><em>ord</em> c
Delphi中的函数问题
Delphi中类似vb中的<em>函数</em>mid的<em>函数</em>是什么?请告诉小弟,小弟谢了
delphi函数问题?
在<em>delphi</em>中能不能删除目录下的所有文件包括目录?
delphi stringreplace函数问题
stemp :='86-021-"52847254-107"';rn想让他变成021-52847254-107 这种形式的。我用一下方法截取怎么不行啊 rnstemp := StringReplace(stemp, '"', '', [rfReplaceAll]);rnstemp := StringReplace(stemp, '86-', '',[]);rnrn经两步运算以后结果没有改变 ,还是原样呢 怎么。rn我的<em>问题</em>在哪里呢 ?另有其他方法也可以哦 rn谢谢 rn
ord怎么用?
我想从一个string中取出每一个字符,得出ASCII码,用的是copy(s,i,1),然后用ORD,但D5说类型不匹配,怎么解决?
map和ord使用示例
熟悉项目开发流程;独立分析出项目框架;胜任目标企业的职位要求;rn本课程针对在职人员及在读学生开设,充分利用空闲时间充电。
急。chr 与ord的运用!
procedure TForm1.FormCreate(Sender: TObject);rnrnbeginrn Edit1.Text:="58D2F155"rnend;rnrnprocedure TForm1.Button1Click(Sender: TObject);rnvar Xl:integer;rn i:integer;rn y:integer;rn s:string;rn aa:string ;rnbeginrn s:=edit1.Text;rn Xl:=Length(s);rn for i :=1 to xl dorn beginrn aa:= copy(s,i,1);rn y:=y+<em>ord</em>(aa[1]);rn end;rn edit2.Text:=inttostr(y);rn label5.Caption:=inttostr(xl);//得到其ASCII值!rnend;rnrnprocedure TForm1.Button2Click(Sender: TObject);rnvar ss:string;rn m:integer;rn aar:char;rn yy:String;rn j:integer;rnbeginrn ss:=edit2.Text;rn m:=Length(ss);rn for j:=1 to m dorn beginrn aar:=chr(byte(edit2.text[j]));rn yy:=yy+aar;rn end;rn edit3.Text:=yy;rn label5.Caption:=edit2.Text[j];//返回得到edit1.text中的值,但得不到。我错在那儿了?!rnend;
ord()不能多次出现?
procedure TForm1.Comm1ReceiveData(Sender: TObject; Buffer: Pointer;rn BufferLength: W<em>ord</em>);rnvarrn i:integer;rn rbuf:pchar;rn lights: IntegerArray;rn lightArrayTemp: array[0..3] of byte;rn byteTemp: byte;rn crct: Integer;rn intTemp,intTemp1:Integer;rnbeginrn viewstring:='' ;rn move(buffer^,rbuf^,bufferlength);rnrn for i:=1 to bufferlength dorn viewstring:=viewstring+inttohex(<em>ord</em>(rbuf[i]),2)+'';rn viewstring:='接收'+viewstring;rn memo1.lines.add(viewstring);rn memo1.lines.add('');rnrn if (bufferlength<>7) or (inttohex(<em>ord</em>(rbuf[0]),2)<>'FF') thenrn beginrn endrn elsern beginrn/////////////////////////////////////////////////rn intTemp:=<em>ord</em>(rbuf[1]) + <em>ord</em>(rbuf[2]);rn intTemp1:=<em>ord</em>(rbuf[3]) + <em>ord</em>(rbuf[4]);rn////上两句单独写都没<em>问题</em>,一起写就出错,怎么回事?rn/////////////////////////////////////////////////rn end;rnend;
请问ord()是什么意思
请各位不要见笑
这个ord是啥意思?
What is the output of the following code?rnrnprint(chr(<em>ord</em>(‘A’)))rnrnrn四个选项rn56rnrnArnrnarnrnName errorrnrn答案是Arnrnrn
chr和ord 处理中文!!!
rn麻烦jinjazz老师解答!!!rnrnrn
Delphi语句dcb.ByteSize = Ord( FByteSize ) + 5;在CB中如何写?
Delphi语句dcb.ByteSize = Ord( FByteSize ) + 5;在CB中如何写?
Delphi中的 ord()函数在C#和ASP里分别相当于什么呢?
Delphi中的 <em>ord</em>()<em>函数</em>在C#和ASP里分别相当于什么呢?
delphi函数和winapi函数
有谁能说说<em>delphi</em><em>函数</em>和winapi<em>函数</em>,这两个方面的怎么用!谢谢
C函数转化为delphi函数问题
Int xs(char *Id,char *SendData,char *Result);这个<em>函数</em>转化成<em>delphi</em> 是 function xs(Id: PChar;SendData: PChar;Result: PChar): Integer; stdcall; external DllName 各位求教
chr()//ord() //进制转换函数//eval()//文件函数//split()
1.chr() <em>函数</em> chr() 用一个范围在 range(256)内的(就是0~255)整数作参数,返回一个对应的字符。 用法:chr(i) i可以是10进制也可以是16进制的形式的数字。 2.<em>ord</em>() <em>函数</em> <em>ord</em>() <em>函数</em>是 chr() <em>函数</em>(对于8位的ASCII字符串)或 unichr() <em>函数</em>(对于Unicode对象)的配对<em>函数</em>,它以一个字符...
Delphi中的ord涵数在C++中是否有对应函数?
RT.
新手求救,delphi有多少自带函数如 Ord('a') 哪里参考(50分)
各位大虾好,我刚开始学习<em>delphi</em>,发现<em>delphi</em>有很多自带的<em>函数</em>,如取整,类型转换,字符串处理等,当知道他们的名字时查一下帮助是容易,但是到底有多少,在哪里可以参考得到呢?,谢谢了!
delphi函数
<em>delphi</em>下的许多实用源码,并在本人开发的程序中被大量使用
DELPHI 函数
全面完整的DELPHI <em>函数</em>,内记录DELPHI全关<em>函数</em>的组成。
Delphi函数
Delphi<em>函数</em>说明
Delphi 函数
Delphi <em>函数</em> 喜欢就看看,很全的
delphi 函数
一个小项目,原来代码都写在一个<em>问题</em>中rnrn  我现在想把一些<em>函数</em>放到一个专用的文件。rnrn  我是不是应该新建一个 unit 然后把原来.pas的<em>函数</em>复制到unit.pas文件里就可以了。
●!!DELPHI函数的UNICODE参数问题
使用DELPHI写了一个DLL,其中有一个非常简单的测试<em>函数</em>rnrnfunction test(Str :PWideChar):integer;stdcall;export;rn var ws:wideString;rn beginrn ws:=Str;rn if (Str='中') then ShowMessage('ok');rn ShowMessage(ws);rn result :=1;rn end;rnrn然后使用VB调用rndim ls_str as stringrnls_str = "中"rnMsgBox test(ls_str)rnrn但是这样 if (Str='中') then ShowMessage('ok'); 判断并不相等rnrn且每次ShowMessage(ws);的值都不一样,VB的string是双字节的,unicode参数应该如何定义和处理呢?谢谢rnrn已经发了一个同样<em>问题</em>的帖子,一起结分:rnrnhttp://topic.csdn.net/u/20100730/22/a4588d71-c506-4a81-a6c5-33100b91ab49.htmlrn
c++函数delphi问题
C++原型:rntypedef HRESULT (*PFormatMessage)(const VARIANT& vMessageID, VARIANT& vType, VARIANT &vBuffer );rn我要写成<em>delphi</em>怎么写?谢谢
delphi MessageBeep函数发声问题
我有3台电脑 在其他2台里都可以用这个<em>函数</em>发声。rn但是配置最好的,主要用来工作的这台用这个<em>函数</em>一点声音也没有。rn唯独这台电脑和其他不一样的就是系统是WIN7 DELPHI都是2010.rnrnrn希望求个解决办法,我就是做个提示音,不希望太麻烦。最好能用自带的<em>函数</em>解决就好了。rn谢谢了。rn不一定要用这个<em>函数</em>,只要能发出简单的声音就好了。
delphi中copy函数问题
edit2.Text:=edit2.Text+l.Strings[i]+',';rnedit2.Text:=copy(edit2.Text,1,length(edit2.Text)-1);rn为什么输出的结果里没有了逗号,比如说输入11,10,12,13,18输出是1011121318rn如果去掉-1的话逗号还有10,11,12,13,18,
delphi函数问题。请指教
unit Unit1;rnrninterfacernrnusesrn Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,rn Dialogs, DB, DBTables, Grids, DBGrids, StdCtrls;rnrntypern TForm1 = class(TForm)rn Table1: TTable;rn DataSource1: TDataSource;rn DBGrid1: TDBGrid;rn Button1: TButton;rn procedure Button1Click(Sender: TObject);rn privatern Private declarations rn publicrn Public declarations rn end;rnrnvarrn Form1: TForm1;rn aa:array [1..15] of integer;rn bb:array [1..1000]of set of 'A'..'O';rnimplementationrn$R *.dfmrnrnrnprocedure TForm1.Button1Click(Sender: TObject);rnvarrn i,j:integer;rn s1,s2,k:string;rnbeginrn for j:=1 to 1000 do beginrn bb[j]:=[];rn end;rn i:=1;rn table1.First;rn while not table1.Eof do beginrn s1:=table1.FieldByName('s').Text;rn for j:=1 to length(s1) do beginrn k:=copy(s1,j,1); // wrong herern include(bb[i],k);rn end;rn i:=i+1;rn table1.Next;rn end;rnrn for i:=1 to 15 do beginrn aa[j]:=0;rn end;rn for i:=1 to 1000 do beginrn for j:=1 to 15 do beginrn if chr(j+64) in bb[i] then aa[j]:=aa[j]+1;rn end;rn end;rnend;rnrnend.rn当执行到include(bb[i],k);时出现类型不匹配错误,请问应该怎么修改
Delphi 下使用EnableWindow函数问题
我发现直接使用EnableWindow好像没用rn比如rnvarrn h: THandle;rn p: TPoint;rnbeginrn GetCursorPos(p);rn h := WindowFromPoint(p);rn EnableWindow(p, True);//这里我想让灰化的按钮恢复, 但是不起作用rnend;rn但是如果进行子窗口遍历然后再对找到的子窗口进行EnableWindow就可以rn请教各位大大rn这是什么原因啊rn如何不用遍历的方法rn鼠标指向的时候才解除灰化禁制
求救啊,delphi函数问题。。。。。
一个<em>delphi</em>中关于<em>函数</em>的<em>问题</em>。我自己定义了两个<em>函数</em>,在FormShow中定义了一些动态生成的image,这两个<em>函数</em>与之相对应。 但OnMouseDown在onshow的时候就触发了,但它应该是在鼠标右键点击的时候触发的。。。。。rn 我是研究了好几天还是搞不定,哪位朋友帮帮我! 真是不甚感激。。rnrnrnrnunit u_main;rnrninterfacernrnusesrn Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,rn Dialogs, StdCtrls, ExtCtrls, DB, ADODB, Menus;rnrntypern Tmain = class(TForm)rn GroupBox2: TGroupBox;rn Imagea: TImage;rn Imageb: TImage;rn Imagec: TImage;rn main1: TLabel;rn Label2: TLabel;rn Label3: TLabel;rn qry: TADOQuery;rn PopupMenu1: TPopupMenu;rn N1: TMenuItem;rn N2: TMenuItem;rn procedure main1Click(Sender: TObject);rn procedure FormShow(Sender: TObject);rn procedure Label4Click(Sender: TObject);rn procedure N2Click(Sender: TObject);rn procedure N1Click(Sender: TObject);rn procedure FormClose(Sender: TObject; var Action: TCloseAction);rn privatern Procedure MyClick(Sender:TObject);rn Procedure getimageid(Sender: TObject; Button: TMouseButton;rn Shift: TShiftState; X, Y: Integer);rn publicrn Public declarations rn end;rnrnvarrn main: Tmain;rnimplementationrnrnProcedure MyClick(Sender:TObject);rnbeginrn..........rnend;rnrnProcedure getimageid(Sender: TObject; Button: TMouseButton;rn Shift: TShiftState; X, Y: Integer);rnbeginrn.........rnend;rn$R *.dfmrnrnprocedure Tmain.FormShow(Sender: TObject);rnvarrn k,j:integer;rnbeginrnwith qry dorn beginrn close;rn sql.Clear ;rn sql.Add('select * from JBQK <em>ord</em>er by ZJID') ;rn open; rn k:=Rec<em>ord</em>Count; rn imagecount:=rec<em>ord</em>count;rn setlength(a,k);rn setlength(b,k);rnrn for j:=0 to k-1 dorn beginrnrn a[j]:=Timage.Create(Self);rn a[j].Parent:=main;rn a[j].Picture.LoadFromFile('c:/apply/pic.bmp') ;rn a[j].Name:='image'+inttostr(j+1) ;rn a[j].PopupMenu:=PopupMenu1;rn a[j].Height:=33;rn a[j].Width:=33 ; rnrn b[j]:=Tlabel.Create(self);rn b[j].Parent:=main;rn b[j].Caption:=qry.Fields[2].Value+inttostr(qry.Fields[0].Value)+' ';rnrn qry.Next ;rn a[j].OnMouseDown:=getimageid; // 出错了!!!!!!!!!rn a[j].OnDblClick:=MyClick; rnrn end;rn end; rnend;
Delphi FastReport Sum函数问题
我用FastReport做报表,需要在ReportTitle里写出总金额rn我用[SUM()]语句,可是preview时显示的是空的rn我试过[frxDBDataset."itemprice"],可以显示第一条记录的价格,证明数据库没<em>问题</em>,<em>问题</em>应该是出在sum<em>函数</em>上,这个sum到底要怎么用?rn第一次发问,请大家多多关照
delphi内联汇编,几个函数问题
function sar (i:integer):integer; //这样可以rnasmrn sar i,2rnend;rnrnfunction sar (i,j:integer):integer; //这样不可以rnasmrn sar i,jrnend;rnrn同样,ror 、idiv..等都有这情况,怎么解决,3KS!
delphi调用dll函数问题
先初始化 然后设备注册 再实时显示 三个<em>函数</em>的说明如下 怎样调用 第一次写实在是不太会 就这么多分都给了rnrnrnHI_SDK_Initrn初始化,使用下面SDK接口前使用,仅在初始化SDK使用rnHI_S32 HI_SDK_Init(rn);rnReturnValuesrnHI_SUCCESS表示成功,HI_FAILURE表示失败rnrnHI_SDK_Loginrn用户设备注册,返回句柄供用户对设备的操作rnHI_HANDLE HI_SDK_Login(rnconstHI_CHAR* psHost,rnconstHI_CHAR* psUsername,rnconstHI_CHAR* psPassw<em>ord</em>,rnHI_U16 u16Port,rnHI_S32* ps32Errrn);rnParametersrnpsHostrn[IN] 主机,可以是IP地址也可以是域名rnpsUsernamern[IN] 用户名rnpsPassw<em>ord</em>rn[IN] 密码rnu16Portrn第18页rn[IN] 端口号rnps32Errrn[OUT] 输出错误信息rnReturnValuesrn成功将返回HI_HANDLE句柄,失败返回0rnrnHI_SDK_RealPlayrn实时数据rnHI_S32 HI_SDK_RealPlay(rnHI_HANDLE lHandle,rnHI_VOID* pWnd,rnHI_S_STREAM_INFO* pstruStreamInforn);rnParametersrnlHandlern[IN] 操作句柄rnPWndrn[IN] 显示窗口句柄rnpstruStreamInforn[IN] 操作参数rnReturnValuesrn成功返回HI_SUCCESS,失败返回错误代码。rnrnrn
新手问题---delphi函数的递归调用
unit Unit1;rnrninterfacernrnusesrn Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,rn Dialogs, StdCtrls;rnrntypern TForm1 = class(TForm)rn Edit1: TEdit;rn Button1: TButton;rn procedure Button1Click(Sender: TObject);rn privatern Private declarations rn publicrn Public declarations rn end;rnrnvarrn Form1: TForm1;rnrnimplementationrnrn$R *.dfmrnrnvarrnalpha:integer;rnprocedure test2(var a:integer):forw<em>ord</em>; //在此报错rnrnprocedure test1(var a :integer);rnbeginrna:=a-1;rnif a>0 thenrntest2(a);rnwriteln(a);rnend;rnprocedure test2(var a:integer);rnbeginrna:=a div 2;rnif a>0 thenrntest1(a);rnend;rnprocedure TForm1.Button1Click(Sender: TObject);rnbeginrnalpha:=15;rntest1(alpha);rnend;rnrnend.rnrnrn报错信息:[错误] Unit1.pas(29): Undeclared identifier: 'forw<em>ord</em>'rnrn为什么会这样?我错在哪里,请大家指点?
chr和ord 如何处理中文!!!
chr和<em>ord</em> 如何处理中文!!!rnrn从一个序列返回一个中文字符或反之!!!rnrn谢谢!!!!!!!!
delphi与c函数的接口问题
<em>delphi</em>中如何调用C或C++的<em>函数</em>,能不能提供一个实例先
delphi函数参考的问题
如题,有没有什么书,软件,或者是其他的什么东西提供Delphi中的<em>函数</em>参考,就象MSDN中的参考,详细的提供参数说明,范例,谢谢。
delphi调用dll函数问题
调用dll<em>函数</em>就报错了:中间有一段....access violation at address 10080554 in module 'fadf.dll'.....rnfadf.dll文件已经放入工程目录中,这个是什么原因呢
西安电子科技大学操作系统教程课件与实验要求下载
西安电子科技大学通信工程学院操作系统课程,主讲刘彦明老师,附课件与实验要求。 相关下载链接:[url=//download.csdn.net/download/hdjtlm/2127756?utm_source=bbsseo]//download.csdn.net/download/hdjtlm/2127756?utm_source=bbsseo[/url]
jquery代码下载
形象生动的展示图片的美化效果,丰富了页面,提高了网页的点击率 相关下载链接:[url=//download.csdn.net/download/u011559383/5844117?utm_source=bbsseo]//download.csdn.net/download/u011559383/5844117?utm_source=bbsseo[/url]
嵌入式环境搭建之samba下载
本文主要介绍了samba存在的前因后果,已经对samba进行简要介绍;并介绍了samba在ubuntu下安装,samba服务器端配置以及如何在window7共享samba服务器。最后,总结了samba的使场景。 相关下载链接:[url=//download.csdn.net/download/tigerjb/5875297?utm_source=bbsseo]//download.csdn.net/download/tigerjb/5875297?utm_source=bbsseo[/url]
相关热词 c# 标准差 计算 c#siki第五季 c#入门推荐书 c# 解码海康数据流 c# xml的遍历循环 c# 取 查看源码没有的 c#解决高并发 委托 c#日期转化为字符串 c# 显示问号 c# 字典对象池
我们是很有底线的