DELPHI 中的edit1.text 取的值是什么类型的? 10
如题,我在写一个短信的程序,想读SIM卡1至20位置的短信。beginforI:=1to20doindex:='1';beginifjindismscontrol1.Re...
如题,
我在写一个短信的程序,想读SIM卡1至20位置的短信。
begin
for I := 1 to 20 do
index := '1';
begin
if jindismscontrol1.ReadMsgForIndex(OA , Msg , Time , edit2.Text) = 0 then
begin
edit1.Text := Msg;
end;
end;
end;
可是edit2.text那块不知道怎么自动赋值进去。如果用现在这种方式在执行的时候往edit2中写入一个1的话之后再点这个按钮就好使。可是用FOR往里面赋值就不行!不怎么办!
那改成
for I := 1 to 20 do
index := inttostr(I);
begin
if jindismscontrol1.ReadMsgForIndex(OA , Msg , Time , index) = 0 then
begin
edit1.Text := Msg;
end;
end;
改成这样行不行?
在ReadMsgForindex(OA,Msg,Time,edit2.Text)中的Edit2.text中的类型现在是index的。行不行? 展开
我在写一个短信的程序,想读SIM卡1至20位置的短信。
begin
for I := 1 to 20 do
index := '1';
begin
if jindismscontrol1.ReadMsgForIndex(OA , Msg , Time , edit2.Text) = 0 then
begin
edit1.Text := Msg;
end;
end;
end;
可是edit2.text那块不知道怎么自动赋值进去。如果用现在这种方式在执行的时候往edit2中写入一个1的话之后再点这个按钮就好使。可是用FOR往里面赋值就不行!不怎么办!
那改成
for I := 1 to 20 do
index := inttostr(I);
begin
if jindismscontrol1.ReadMsgForIndex(OA , Msg , Time , index) = 0 then
begin
edit1.Text := Msg;
end;
end;
改成这样行不行?
在ReadMsgForindex(OA,Msg,Time,edit2.Text)中的Edit2.text中的类型现在是index的。行不行? 展开
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询