for ch ='A' to 'Z' do begin 我要重A 到Z的循环怎么做? 我要重A 到Z的循环怎么做? 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 var ch: char; begin for ch :='A' to 'Z' do begin .... end;end; for i:=1 to 26 do begin//自己的程序。end;为什么一定要你那们循环。 晕,你自己不是已经写出来了吗?var ch:Char;for ch := 'A' to 'Z' do var ch:char;begin for ch:='A' to 'Z' do begin end;end;或者:var i:integer; ch:char;begin for i:=0 to 25 do begin ch:=chr(ord('A')+i); end;end; 对,同意,反正都是循环26 次,为什么非要a..z呢 ?在说了,如果你需要用到a..z 你可以用到 ch:=chr(ord('A')+i); 或者其他方法啊 ehom(?!) ( ) 说的对呀. unidac控件在SQLITE里怎么写入和读取BLOB类型的数据呀? 请人做一个简单的图形方面东东 如何在delphi7中显示word文件内容? 请问vcl源代码有多大 斑竹请进! 我的信誉分杂又下了? 请教一个怎么做控件的问题。 如何在记录集中跟踪表名? delphi删除注册表键值 怎样使多条UPDATE语句在一个事务中 加硬盘,盘符能直接累增吗? Delphi菜鸟提问4: DLL传参数问题
begin
for ch :='A' to 'Z' do
begin
....
end;
end;
begin
//自己的程序。
end;
为什么一定要你那们循环。
ch:Char;for ch := 'A' to 'Z' do
begin
for ch:='A' to 'Z' do
begin
end;
end;
或者:
var i:integer;
ch:char;
begin
for i:=0 to 25 do
begin
ch:=chr(ord('A')+i);
end;
end;
在说了,如果你需要用到a..z 你可以用到 ch:=chr(ord('A')+i);
或者其他方法啊