Пусть дан текст. Найдите наибольшее количество цифр, идущих подряд.

[abakuz]

Помогите пожалуйста срочно.
Нужна программа на Delphi7:
Пусть дан текст. Найдите наибольшее количество цифр, идущих подряд.

[Leo08]

допустим у Вас на форме один компонент TEdit и одна кнопка:
На нажатие кнопки:

Var
K,max,maxnow:integer;
Begin
If length(edit1.text)=0 then
Showmessage('Поле ввода не должно быть пустым!')
Else
If length(edit1.text)=1 then
If edit1.text[1] in ['0'..'9'] then
Showmessage('Количество цифр = 1')
Else
Showmessage('Количество цифр = 0')
Else
Begin
Max:=0;
Maxnow:=0;
for k:=1 to length(edit1.text)-1 do
Begin
If edit1.text[k] in ['0'..'9'] then
Begin
If edit1.text[k+1] in ['0'..'9'] then
Max:=max+1;
If max>maxnow then
Maxnow:=max;
End
Else
Max:=1;
End;
If max>maxnow then
Maxnow:=max;
Showmessage('Обнаружено '+inttostr(maxnow)+' цифр идущих подряд!');
End;
End;

[abakuz]

а можно пожайлуста весь код, а то я Delphi только основы пока знаю(

[Stilet]

Весь код тебе не поможет, потому что по нему придется все равно ручками пересобирать форму.
Кинь на форму Єдит, кнопку и в OnClick кнопки пропиши данное в предидущем посте

[Leo08]

допустим у Вас на форме один компонент TEdit и одна кнопка:
Щелкните по кнопке 2 раза левой кнопкой мыши - у вас появится окно кода с уже созданной процедурой. Вот туда и вставляйте код.
У Вас получится:

Procedure TForm1.Button1Click(Sender:TObject);
Var
K,max,maxnow:integer;
Begin
If length(edit1.text)=0 then
Showmessage('Поле ввода не должно быть пустым!')
Else
If length(edit1.text)=1 then
If edit1.text[1] in ['0'..'9'] then
Showmessage('Количество цифр = 1')
Else
Showmessage('Количество цифр = 0')
Else
Begin
Max:=0;
Maxnow:=0;
for k:=1 to length(edit1.text)-1 do
Begin
If edit1.text[k] in ['0'..'9'] then
Begin
If edit1.text[k+1] in ['0'..'9'] then
Max:=max+1;
If max>maxnow then
Maxnow:=max;
End
Else
Max:=1;
End;
If max>maxnow then
Maxnow:=max;
Showmessage('Обнаружено '+inttostr(maxnow)+' цифр идущих подряд!');
End;
End;

[abakuz]

спасибо большое)