Что делать?

[glebast]

вот кусок программы:

procedure TForm1.FormCreate(Sender: TObject);
begin
randomize;
a:=random(9);
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
b:=b+1;
if inttostr(a)=edit1.text then label1.Caption:='Верно';
if inttostr(a)>edit1.text then label1.Caption:='Больше';
if inttostr(a)<edit1.text then label1.Caption:='Меньше';
if inttostr(9)<edit1.text then label1.Caption:='Меньше';
label2.Caption:='Попыток: ' ;
label3.Caption:=inttostr(b);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
a:=random(9);
label1.Caption:='Введите число от 0 до 10';
b:=0;
label2.Caption:='Попыток: ';
label3.Caption:=inttostr(b);
end;

почему когда я ввожу число 10 то он выдает "больше"?
Помогите пожалуйста, а то я уже вообще не знаю что делать.

[Аватар]

Естественно, символьная строка '9' всегда была и будет больше при сравнении с символьной строкой '10'. Сравнивайте числа, а не символьные строки

[Serge_Bliznykov]

Что делать?

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

Модератор