您所在位置：主题：请哪位前辈帮我看看我的程序
zhh123
[专家分：0] 发布于 2006-11-28 12:50:00
请问前辈们我的程序怎么行不通?
procedure FormCreate(Sender: TObject);
function double(value:integer):integer;
double:=value*3;
var x,y:integer;
begin
x:=double(StoToInt(edit1.text));
y:=double(x);
showmessage(InToStr(y));
end.
procedure FormCreate(Sender: TObject);
function double(value:integer):integer;
double:=value*3;
var x,y:integer;
begin
x:=double(StoToInt(edit1.text));
y:=double(x);
showmessage(InToStr(y));
end.
