function panduan(s:string):boolean;
var
i:integer;
begin
result:=true;
s:=trim(s);
for i:=1 to length(s) do
begin
if not (s[i] in ['0'..'9']) then
begin
result:=false;
exit;
end
end
end;
Delphi []这里面的内容代表什么,??谢谢 了
也就是说s[]访问I个字符
谢谢了
本回答被提问者采纳程式语言s[i]!=0是什么意思?
程式语言s[i]!=0是什么意思? s是一个数组,比如int s[10]={0,1,2,3,4,5,6,7,8,9}; 这就是s的原型, s[i]!=0;首先i有一个值如i=3 是判断s[3]!=0; s[3]也就是s[i]的值等于3,那么就!=0 程式语言 for(i=1,j=k=0;k<n-1;i=i%n+1)是什么意思? for...
Delphi中as和is是用来干什么的?
begin if Controls[i] is TEdit then \/\/判断对象Controls[i]是否为TEdit类型 if (Controls[i] as TEdit).Text <> '' then \/\/将对象Controls[i]转换成TEdit类型 begin (Controls[i] as TEdit).Text := 'haha';\/\/将对象Controls[i]转换成TEdit类型 end;end;end;end.窗体控件 Tedi...
delphi里if语句是什么意思
就是英语里面如果的意思。if后面跟条件,如果条件成立则执行语句,否则跳过。如果有else则执行else指定的语句。条件一般为比较判断表达式。完整语法:if 条件1 then begin 语句块1;\/\/多条语句 end;有else:if 条件1 then begin 语句块1;\/\/多条语句 end else begin 语句块2;\/\/多条语句 end;...
delphi 中combobox1.items[i]和combobox1.text有什么区别
combobox1.items[i]是第二部分的列表框里的某项
delphi 怎么判断字符串里有几个英文单词
} s,ss:string; w:array[0..100] of string[30]; c:array[0..1000] of char; i,j,k,m,n:integer;begin s:='abc def ghi 8678, jklmn * '; { 文本s中包括英文大小写字母、英文标点、数字和空格,并以星号"*"结束 } n:=length(s); for i...
delphi中stringgrid中如何根据每列名称的长度自动设定该列的宽度?
autosize属性,可以根据内容调整列宽。自动按标题列调整,自己在其RESIZE事件里对COLWIDTHS[I]赋值就行了。procedure AutoSizeColumns(const DoFixedCols: Boolean; const Padding: Integer);例:AdvStringGrid1.AutoSizeColumns(False,16);AdvStringGrid1.AutoSizeColumns(False,16);第一参数:是否为固定...
Delphi中对象数组的使用,该怎么解决
Delphi中对象数组的使用 Delphi对接Java 写的Webservice,调用的函数参数之一是一个一维的对象数组,已经封装好,但是我在调用的时候一直报地址错误,错误代码为:access violation at address 00000000.read of address 00000000 ; 不知道为什么。代码如下:setlength(ArrOfwsVouchers,rs.RecordCount);i:=0;...
delphi copy函数的疑惑
你的想法错了,他并不是在执行ss:= ss+Copy(s,i,1);就拷贝了一个单词而是根据循环一个字符一个字符的复制的。每个单词中间有空格,当循环取到空格时说明一个单词复制完成就执行else后面的语句了,最后还清空ss(这句ss:='';)。还有你的else后面应该还少个begin最后也少一个end ...
delphi 的数组是不是这样用的?求指教
你的代码出错误的原因是少了个分号;for i:=1 to 10 do begin if shuzu [i] < min then min := shuzu[i];end; \/\/这里要加个分号,表示for循环体的结束
请问delphi中用{}代表什么含义.
代表注释,人看,机器不看 但是{$i-}等编译指令除外