[eXplorer]

что то я сейчас не то сморожу мне кажется потихоньку засыпаю... может неправильно понял, так что заранее извеняюсь ...

Код:

var
  result:Integer;
begin
  // Сравнение некоторых строк
  result:= AnsiCompareStr(')', '#33');
  if result <0 then showmessage('разнае');
  if result = 0 then ShowMessage('одинаковые');
  if result > 0 then ShowMessage('разнае');
end;