[Asinkrit]

Сообщение от NIch

Почитай лучше задание...

А если последовательность будет поболе то можно при помощи цикла организовать...типа

Код:

var
 i : integer;
 Bool : boolean;
 String : String;
begin
...
for i :=1 to Length(String) do begin//от единицы до конца строки
 if Ord(String[i-1])>Ord(String[i]) then begin//если предыдущий меньше текущего
  Bool := true;//Дополнительная переменная Да 
 end
 else begin//если предыдущий не меньше текущего
  Bool := false;// Нет
  Break;//выйти из цикла
 end;
 if Bool = true then//в конце цикла если да то
  ShowMessage('Последовательнось возрастающая');

Код не проверял...

Код:

Procedure EditonKeyPress(Sender:TObject);
var
  bool:Boolean;
begin
  bool:=true;
  with (Sender as TEdit) do
    if Length(Text)=7 then
      for i:=2 to Length(Text) do 
        if not Ord(Text[i-1])>Ord(Text[i]) then begin
          bool:=false;
          break;
          end;
  if bool then
    ShowMessage('Последовательнось возрастающая');
end;

for i:=2 to Length(Text) do - !! именно от второго символа, иначе будет ошибка)