帮忙写个小程序,DELPHI的 delphi编写一个程序实现用Showmessage输出12345678910这个字符串,用for或者While循环 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 Showmessage('12345678910');?MessageBox(handle,'12345678910','提示',MB_ICONERROR + MB_OK);?for i:=1 to 10 do begin Showmessage(inttostr(i));? end; 没事吧,为什么还循环vari:integer;s:string;begins := '12345678910';for i := 1 to Length(s) dobegin ShowMessage(s[i];end;end; var s:string;//放在过程的begin 之前 for i:=1 to 10 do begin s := s + inttostr(i); end; Showmessage(s) 呵呵,是初次接触吧,记得初学时,为了出个ShowMessage也是头疼的紧 for i:=1 to 100 do //弹出100次 showmessage('12345678910'); 做习题吧,看一楼二楼答案均可,如果想了解delphi,随便找本书看看 如果想了解delphi,随便找本书看看 for i:=1 to 10 do begin Showmessage(inttostr(i));? end; 我是来拿分的,你就showmessage(str)就行了 var I:Integer;begin I:=1; While I<10 do begin //循环弹出10次 I:=I+1; Showmessage('12345678910'); end;end; memo如何一条一条显示信息 简单的问题请教 关于用消息向其它应用程序发送文本的问题? 懒,不想看书,只有向大家撒分 存储过程的问题? 菜鸟三个角角了,,,散分,,,散点分给大家 记录文件删除问题? 如果服务器上用的是Paradox库,终端写库是不是只要把BDE指向服务器放有Paradox库的完全共享文件夹就可以了? Delphi是面向对象的程序语言吗? 88分抢答!如何将DBGRID的内容按报表的格式打印出来,且能保存成EXCELL文件? dbgrideh出现list index out of bounds(7) External:SIGSEGV错误
MessageBox(handle,'12345678910','提示',MB_ICONERROR + MB_OK);?for i:=1 to 10 do
begin
Showmessage(inttostr(i));?
end;
var
i:integer;
s:string;
begin
s := '12345678910';
for i := 1 to Length(s) do
begin
ShowMessage(s[i];
end;
end;
for i:=1 to 10 do
begin
s := s + inttostr(i);
end;
Showmessage(s)
showmessage('12345678910');
begin
Showmessage(inttostr(i));?
end;
I:Integer;
begin
I:=1;
While I<10 do begin //循环弹出10次
I:=I+1;
Showmessage('12345678910');
end;
end;