我想
你创建 线程时错误了!
var
aa:TJudgeC ;
begin
aa:= TJudgeC (edit1.text);
end;
不要用
showmessage(text1);
messagebox(0,pchar(text),'ee',mb_ok);
你创建 线程时错误了!
var
aa:TJudgeC ;
begin
aa:= TJudgeC (edit1.text);
end;
不要用
showmessage(text1);
messagebox(0,pchar(text),'ee',mb_ok);
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货