delphi里边的这个语句是什么意思 a := strtoint(copy(FieldByName('菜单项').Asstring,1,1)); 什么意思谢

如题所述

FieldByName 是 数据库控件的属性, 意思是名称指定字段。‘菜单项’是表内的字段名;
.asstring 是以字符形式表示。
copy 是字符串函数,格式是copy('字符串',开始字符,几个字符)
例如 copy('abcd',2,1) 的返回值 是b 意思就是 字符串 abcd 第二个字母开始取,取一个字母。
strtoint 是将字符串转换为整型数
a := strtoint(copy(FieldByName('菜单项').Asstring,1,1));
这句话的意思就是
字段'菜单项'的当前值,从第一个字符开始取值,取一个字符,得到的结果从字符型转为整形并赋值给变量a

以上。
温馨提示:内容为网友见解,仅供参考
第1个回答  2011-03-08
从字段名称为“菜单项”的字段里,取出第一个字符,进行字符串转整数的操作,并将转换的值赋给a。
第2个回答  2011-03-08
将数据集当前行中的字段名“菜单项”转为字符串类型,并且从第1个位置开始截取长度1个字符的值并转换整型
第3个回答  2011-03-10
a := strtoint(copy(FieldByName('菜单项').Asstring,1,1));
取得该栏位下所选字符的第一位字符码
如:
菜单项 1232
取得值 a:=1

delphi Incompatible types的问题
AdoTable2.FieldByName('库存数').AsInteger + StrToInt(Edit4.text);

用delphi自动生成单据号,显示在form show里面
Close;SQL.Clear;SQL.Add('select max(单据号) as ss From 单据号 ');Open;end;If data1.ADOpublic.FieldByName('ss').Value = null then s := '001'else begin m:= Trim(data1.ADOpublic.FieldByName('ss').Value) ;i:= StrToInt(copy(m,2,3)) ;if i<9 then s:= '00'+ Int...

delphi Append是什么意思?怎么用?
2.数据库操作追加一条新纪录。另二楼的代码有问题,append最后需要post才能提交。

delphi 中的DBGRID列之间自动计算如何写程序
双击DBGrid的关联数据集控件比如ADOQuery ,然后右击点【New Field...】来增加新的计算字段。记得把FieldType 设置为Calculated 。然后在ADOQuery的OnCalcFields事件里写代码:ADOQuery.FieldByName('HJ').AsFloat:= ADOQuery.FieldByName('dj').AsFloat * ADOQuery.FieldByName('sj').AsInteger 。

delphi sql 在原有数据上加上一个数
fieldbyname('数量').AsFloat:=fieldbyname('数量').AsFloat+strtofloat(trim(edit1.Text));\/\/假如数量 是float变量的话,如果数量是整型int变量的话,此句应该改为:fieldbyname('数量').Asinteger:=fieldbyname('数量').Asinteger+strtoint(trim(edit1.Text));post;showmessage('修改指定ID的数量...

delphi7.0如何使用时间函数
ADateAndTime: TDateTime;begin ADateAndTime := StrToDateTime(Edit1.Text); Table1.FieldByName('TimeStamp').AsDateTime := ADateAndTime;end;---StrToTime 将字串转为TDateTime型态的时间.---Unit SysUtils函数原型 function StrToTime(const S: string): TDateTime;范例procedure TForm1.Button1Click(Sender...

相似回答