S
siking
Unregistered / Unconfirmed
GUEST, unregistred user!
procedure TForm1.Button1Click(Sender: TObject);
var
s:String;
i:Integer;
cchar
//先声明i再声明c就没问题
begin
i:=Integer(c);
SendMessage(Edit1.Handle,WM_GETTEXT,Length(edit1.Text)+1,i);
s:=StrPas(c);
ShowMessage(s);
end;
procedure TForm1.Button1Click(Sender: TObject);
var
s:String;
cchar;
i:Integer
//先声明c再声明i,运行时出错
begin
i:=Integer(c);
SendMessage(Edit1.Handle,WM_GETTEXT,Length(edit1.Text)+1,i);
s:=StrPas(c);
ShowMessage(s);
end;
var
s:String;
i:Integer;
cchar
//先声明i再声明c就没问题
begin
i:=Integer(c);
SendMessage(Edit1.Handle,WM_GETTEXT,Length(edit1.Text)+1,i);
s:=StrPas(c);
ShowMessage(s);
end;
procedure TForm1.Button1Click(Sender: TObject);
var
s:String;
cchar;
i:Integer
//先声明c再声明i,运行时出错
begin
i:=Integer(c);
SendMessage(Edit1.Handle,WM_GETTEXT,Length(edit1.Text)+1,i);
s:=StrPas(c);
ShowMessage(s);
end;