Блин Хоть убейте но разжуйте ?!!
Вот алгоритм по идеи должен подойти но:
procedure TForm1.Button4Click(Sender: TObject);
var
n,i:integer;
sun:string;
begin
n:=pos('0'..'9','вован 345 молока'); - вот тут ошибка не проходит почемуто '0'..'9'
if n>0 then
for i:=n to length('вован 345 молока') do
if 'вован 345 молока'[i]<>' ' then sun:=sun+'вован 345 молока'[i] else break;
n:=StrToInt{Для делфи или val для паскаля}(sun);
end;
меняю на '3' все идет но режет строку (если оно есть в строке) с этого символа. Например 345 - нормально получиться 435 - обрежет до 35 если этого числа нет то ошибка!!!
Помогите начинающему разжевать! Спасибо
|