• 闪存
• 博客
• 发言 小组
• 投递 新闻
• 提问 博问
• 添加 收藏
• 文库

Delphi输出字母表

0

[已解决问题] 解决于 2019-01-22 10:16

C++中我们可以通过'A' + i依次得到ABCDEFG....,但是Delphi中要怎么实现呢? 'A'在Delphi中代表的字符串啊.... 

Delphi

__kylong | 菜鸟二级 | 园豆：221
提问于：2013-11-15 22:42

显示帮助

使用"Ctrl+Enter"可进行快捷提交，评论支持部分 Markdown 语法：[link](http://example.com) _italic_ **bold** `code`。

< >

分享

分享您的问题

var
  nC: AnsiChar;
  i: Integer;
  nStr: AnsiString;
begin
  nC := 'A';
  SetLength(nStr, 26);
  for i := 0 to 25 do
    nStr[i + 1] := AnsiChar(Byte(nC) + i); {Delphi里一样可以+数字, 只不过需要类型转换一下}
  ShowMessage(nStr);
end;

var
st:string;
c:char;
begin
st:=edit1.text;
c:=st[i];
//c就是一个个的字符
end;