Как найти число?)

[dyh9l]

Сообщение от J-Fobos

var
s:string;
//................
s:=ReadS(*);
Edit1.text:=copy(s,*,*);

хм ну первую звездочку я понимаю что s:=ReadS(6); а другие две?

Добавлено через 24 минуты
up)

[RangerX]

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

хм ну первую звездочку я понимаю что s:=ReadS(6); а другие две?

Вероятно

s := copy(s,11,5);

т.е. получить текст, начиная с 11 позиции в строке s (после There are) длиной 5 символов (а сколько максимум очков могут дать? если больше 99999, то надо поставить 6 или более).

s := Copy(s, 1, Pos(' ', s) - 1);

а тут получаем из строки типа 18 Grand только число 18 (т.е. подстроку до первого пробела)
Ну и в итоге:

Edit1.Text := s;

[dyh9l]

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

Вероятно

s := copy(s,11,5);

т.е. получить текст, начиная с 11 позиции в строке s (после There are) длиной 5 символов (а сколько максимум очков могут дать? если больше 99999, то надо поставить 6 или более).

s := Copy(s, 1, Pos(' ', s) - 1);

а тут получаем из строки типа 18 Grand только число 18 (т.е. подстроку до первого пробела)
Ну и в итоге:

Edit1.Text := s;

звучит убеждающий) надо раз 15-20 перечитать чтоб понять тока )