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小写的时候也能运行。。。

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

答案：char1:=uppercase(char1);

上一个：如何学会Delphi开发语言？
下一个：delphi自定义过程和自定义函数有什么区别