问题：关于提取edit值的问题
描述:delphi edit
delphi新手请教老师一个问题：
edit1是显示入库单的单据号，从formcreate中就已经给它赋值，我想从edit1中提取出该单据号，然后通过button实现显示上一个单据内容，然后将edit1中的值变更为新的单据号，下面是我的语句
procedure Tcomputer.ToolButton2Click(Sender: TObject);
var
i,j:integer;
begin
i:=strtoint(edit1.text);
if i>1 then
begin
adoquery1.Close;
adoquery1.SQL.Clear;
adoquery1.SQL.Add('select bck02 科室,cca02 数量,cca03 单位,cca05 品牌,ccb02 业务类别 from cca1 where cca07=j');
adoquery1.Parameters.ParamByName(j).Value :=stringtowidechar(inttostr(i-1));
adoquery1.open;
edit1.text:=inttostr(i-1);
end
else
showmessage('已经是第一页');
end;
运行时提示adoquery1.Parameters.ParamByName(j).Value :=stringtowidechar(inttostr(i-1));这句错误：
构建
[错误] computerform.pas(100): Incompatible types: 'WideString' and 'Integer'
[错误] computerform.pas(100): Not enough actual parameters
请问老师怎么改？
解决方案1:procedure TForm1.Button1Click(Sender: TObject);
var i,j:integer;
SQL:string;
begin
i:=strtoint(edit1.text);
if i>1 then
begin
SQL:='select bck02,cca02,cca03,cca05,ccb02 from cca1 where cca07='+#39+IntToStr(i)+#39;
adoquery1.Close;
adoquery1.SQL.Clear;
adoquery1.SQL.Add(S);
adoquery1.open;
edit1.text:=inttostr(i-1);
end
else showmessage('已经是第一页');
end;
试试如何？
- 明星图片
- 相关文章
-
联系邮箱：mxgf168#qq.com(#改为@)