Последовательнось букв

[Dj_DeVaIs]

Народ вот такая проблема у меня появилась.
Объясню всю программу и что она должна делать: Вводиться 3 буквы например «аде», после ввода последнего символа программа выводит сообщение о том этот набор букв последовательный или нет.

Народ помогите застрял на долго..
Спасибо заранее за помощь.

[Grag]

На каком языке пишется программа? С чего и куда вводится последовательность символов? Что значит "последовательный набор" букв?
Т.е. введены в алфавитном порядке?

[Dj_DeVaIs]

язык Delphi.

последовательность значит в алфавитном порядке.

вводиться в maskedit.

[Grag]

Мдя уж... Очень сложная и трудно решаемая проблема...

[Dj_DeVaIs]

вот я про то же....

[Stilet]

Ну пожалуйста:

for i:=1 to length(s)-1 do
 if s[i]>s[i+1] then // Уже не в алфавитном порядке

Это с потолка, и учитывая что последовательность возрастает.

[Grag]

Объясняю, что нужно делать... Берешь первый символ введенной строки s[1], потом, если Chr(ord(s[1])+1)<>s[2], то последовательность уже не в алфавитном порядке. Иначе продолжаешь, если Chr(ord(s[2])+1)<>s[3], то последовательность символов не в алфавитном порядке, иначе алфавитный порядок соблюден. Вот и все. Очень сложная задача...
Немного опоздал, но тем не менее....

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

Ну пожалуйста:

for i:=1 to length(s)-1 do
 if s[i]>s[i+1] then // Уже не в алфавитном порядке

Это с потолка, и учитывая что последовательность возрастает.

С потолка не пролезет, так как порядковы № s[i] может быть и много меньше чем порядковый № s[i+1], нужно именно на равенство проверять...

[Dj_DeVaIs]

спасибо огромное...
а еще как мне сделать что бы после ввода последнего символа выводило сообщение?

[Stilet]

может быть и много меньше

Ну и что?
Не вижу где у автора сказано что каждый следующий символ обязан отличаться на единицу от соседей

а еще как мне сделать что бы после ввода последнего символа выводило сообщение?

Что знач последнего?
Вообще проще всего запускать процедуру проверки в OnKeYPress если key=#13 т.е. нажат Энтер
Откуда программе известно что введен последний символ?

[MaxNik2009]

а еще как мне сделать что бы после ввода последнего символа выводило сообщение?

procedure TForm1.MaskEdit1KeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if Length(MaskEdit1.Text) = 3  then
    ShowMessage('Твоё сообщение');

end;