delphi case of
uses
Character;
procedure TForm1.Button1Click(Sender: TObject);
var
number: Integer;
aText: string;
begin
number := Trunc(NumberBox1.Value);
case number of
1: aText := 'One';
2: aText := 'Two';
3: aText := 'Three';
end;
if aText <> '' then
Show(aText);
end;
procedure TForm1.Button3Click(Sender: TObject);
var
aChar: Char;
aText: string;
begin
/// multiple nested if statements
if Edit1.Text.Length > 0 then
begin
aChar := Edit1.Text.Chars[0];
case aChar of
'+' : aText := 'Plus sign';
'-' : aText := 'Minus sign';
'*', '/': aText := 'Multiplication or division';
'0'..'9': aText := 'Number';
'a'..'z': aText := 'Lowercase character';
'A'..'Z': aText := 'Uppercase character';
#12032..#12255: aText := 'Kangxi Radical';
else
aText := 'Other character: ' + aChar;
end;
Show(aText);
end;
end;
procedure TForm1.Show(const msg: string);
begin
Memo1.Lines.Add(msg);
end;
推荐分享
图文皆来源于网络，内容仅做公益性分享，版权归原作者所有，如有侵权请告知删除！
Copyright © 2014 DelphiW.com 开发 源码 文档 技巧 All Rights Reserved
晋ICP备14006235号-8 晋公网安备 14108102000087号
执行时间: 0.039724826812744 seconds