begin
// Сравнение двух очевидно различных строк
CompareStrings('HELLO', 'WORLD');
// Сравнение идентичных строк
CompareStrings('Hi 2 you', 'Hi 2 you');
// AnsiCompareText обрабатывает верхний и нижний регистр одинаково
CompareStrings('ABCdef', 'abcDEF');
// Все символы следуют за числами
CompareStrings('abc', '123');
end;
// Сравнение двух строк, и показ большей
procedure TForm1.CompareStrings(const string1, string2: string);
var
result : Integer;
begin
// Сравнение некоторых строк
result := AnsiCompareText(string1, string2);
if result <0 then showmessage(string1+' < '+string2);
if result = 0 then ShowMessage(string1+' = '+string2);
if result > 0 then ShowMessage(string1+' > '+string2);
end;
|