Question

delphi中大小写的转换以及if then else的使用

var
char1:char;
i,j:Integer;
Lstr:string;

begin
readln(char1);
Lstr:='';
for i:=ord(char1) to 90 do
begin
for j:=ord(char1) to i do
begin
Lstr:='';
Lstr:=Lstr+chr(i)+' ';
Write(Lstr);
end;
Writeln;
end;
Readln;
end.
这段代码char1大写的时候能运行，怎样用if then else 使char1小写的时候也能运行。。。

Answer 1

char1:=uppercase(char1);

追问

如果用根据char1范围用if then else 语句写代码怎么写呀。。。

追答

大写字母的ASCII码范围为65～90,小写字母的ASCII码为97～122

if (ord(char1)>=65) or (ord(char1)=97) or (ord(char1)<=122) then
begin
//小写字母处理
end;