比较两Edit框内的两字符的ASCII之大小?

Question

在Edit1框中输入一个字符:如A
在Edit2框中输入一个字符:如F
怎样比较哪个编辑框中的ASCII值大??
急!在线等待!!

Answer 1

function AnsiCompareStr(const S1, S2: string): Integer;AnsiCompareStr compares S1 to S2, with case sensitivity. The compare operation is controlled by the current locale. The return value is:Condition Return Value
S1 > S2 > 0
S1 < S2 < 0
S1 = S2 = 0

Answer 2

or usevar s1, s2: string;
 i1, i2: integer;
begin
 s1 := edit1.text;
 s2 := edit2.text;
 i1 := ord(s1[1]);
 i2 := ord(s2[1]);

Answer 3

AnsiCompareStr(edit1.text,edit2.text)
或者
Comparetext(edit1.text,edit2.text)

Answer 4

AnsiCompareStr(edit1.text,edit2.text)
或者
Comparetext(edit1.text,edit2.text)

Answer 5

同意
AnsiCompareStr(edit1.text,edit2.text)
或者
Comparetext(edit1.text,edit2.text)