comando if

[fulgoreone]

começei um curso de programação e estou to com um problema aqui se voces podem me ajudar

é assim

procedure TForm1.Button1Click(Sender: TObject);

begin

if edit1.Text<='11' then

begin

form1.color:=clblue;

end;

if edit1.Text>'12' then

begin

form1.color:=clred;

end;

end;

end.

dai quando eu digito 2 pra cima fica vermelho

e o unico azul é 1; eu queria faze 11 pra baixo azul e 12 pra cima vermelho

[Churc]

Opa

Como voce se refere a "número" ou seja, fazendo comparações numéricas de maior ou menor,

primeiro voce precisa transformar o texto em um inteiro, ou seja, integer.

Ai depois voce faz a comparação...

exemplo

procedure TForm1.Button1Click(Sender: TObject);
var
  i: Integer;
begin
  try
    i := StrtoInt(Edit1.Text);
  except
    ShowMessage('Por favor, digite um valor numérico!');
    Exit;
  end;
  if i >= 12 then
  Color := clBlue else
  Color := clRed;
end;

o try / except é para tratar erros, resumindo seria assim

try //Tente

algo

except //Se não der então

faça algo

end;

Porque transformamos o que está no Edit1 para um inteiro, ou seja, Integer (StrtoInt = Texto para Número)

mass e se o usuário digitar uma letra?

Iria acontecer um erro, e é ai que entra o Except

abraço