C++中我們可以通過'A' + i依次得到ABCDEFG....,但是Delphi中要怎么實作呢? 'A'在Delphi中代表的字串啊....
uj5u.com熱心網友回復：
var
I: Integer;
begin
for I := Ord('A') to Ord('Z') do
begin
ShowMessage(Chr(I));
end;
end;
uj5u.com熱心網友回復：
var
i: Integer;
begin
i := 64;
repeat
Inc(i);
ShowMessage(chr(i));
until i = 90; // i=ord('Z');
end;
var
cc:set of AnsiChar;
s:ansiChar;
begin
cc:=['A','B','C','D','E','F','F'];
for s in cc do
ShowMessage(s);
end;
uj5u.com熱心網友回復：
var
I: Integer;
begin
I := 64;
while I < 90 do
begin
Inc(I);
ShowMessage(Chr(I));
end;
end;
uj5u.com熱心網友回復：
條條道路通羅馬uj5u.com熱心網友回復：
var ch:char;begin
for ch:='A' to 'Z' do write(ch);
end;
別忘了char也是順序型別。
uj5u.com熱心網友回復：
支持：樓上。uj5u.com熱心網友回復：
var
r : Char;
I : Integer;
r:='A';
for I := 0 to 25 do
Write(chr(succ(Ord(r)+I-1)));
uj5u.com熱心網友回復：
var
r : Char;
I : Integer;
begin
r:='A';
for I := 0 to 25 do
Write(chr(succ(Ord(r)+I-1)));
end
uj5u.com熱心網友回復：
r:='A';
for I := 0 to 25 do
Write(chr(Ord(r)+I));
uj5u.com熱心網友回復：
學習了，方法很多啊。。。
uj5u.com熱心網友回復：
procedure TForm3.BitBtn1Click(Sender: TObject);var
I: Integer;
begin
SendMessage(Memo1.Handle, EM_SCROLL, SB_BOTTOM, 0);
for I := 0 to 25 do
begin
ShowMessage(Char(65+I));
end;
end;
轉載請註明出處，本文鏈接：https://www.uj5u.com/houduan/122359.html
標籤：語言基礎/算法/系統設計