Fórum Edit1 interpretar string como variavel??? #183861
24/09/2003
0
e ae galera fmz??!!
e o seguinte:
eu tenho um form com um edit, e quero q nesse edit a pessoa digite a cor q deseja mudar, se ela digitar azul, o form muda pra azul, se verde, muda p verde, e etc...
criei uma var tipo string mas ta dando erro, o codigo e tipo esse aqui:
#
procedure TForm1.Button1Click(Sender: TObject);
var
x:string;
y:string;
begin
x:=´black´;
y:=´white´;
if
edit1.text:=x
then begin
form1.Color:=clblack;
end;
end.
oq eu estou fazendo de errado??!!!acho q to viajando!!! :oops:
valew galera
aquele abraco
viper0!!! :evil:
e o seguinte:
eu tenho um form com um edit, e quero q nesse edit a pessoa digite a cor q deseja mudar, se ela digitar azul, o form muda pra azul, se verde, muda p verde, e etc...
criei uma var tipo string mas ta dando erro, o codigo e tipo esse aqui:
#
procedure TForm1.Button1Click(Sender: TObject);
var
x:string;
y:string;
begin
x:=´black´;
y:=´white´;
if
edit1.text:=x
then begin
form1.Color:=clblack;
end;
end.
oq eu estou fazendo de errado??!!!acho q to viajando!!! :oops:
valew galera
aquele abraco
viper0!!! :evil:
Viper0
Curtir tópico
+ 0
Responder
Posts
24/09/2003
Rodrigo_rcp
procedure TForm1.Button1Click(Sender: TObject); var x:string; y:string; begin x:=´black´; y:=´white´; if edit1.text=x // use somente = then begin form1.Color:=clblack; end; end.
Responder
Gostei + 0
24/09/2003
Viper0
e ai velinho fmz??!!
valew pela resposta cara..
mas logo depois q eu escrevi aqui, fiquei olhando pra ele e percebi esse detalhe...acho q e o stress....rsrs..
valew pela forca de qualquer forma!!!
aquele abraco
viper0!!! :evil:
valew pela resposta cara..
mas logo depois q eu escrevi aqui, fiquei olhando pra ele e percebi esse detalhe...acho q e o stress....rsrs..
valew pela forca de qualquer forma!!!
aquele abraco
viper0!!! :evil:
Responder
Gostei + 0
24/09/2003
Bacalhau
Só uma pequena coisa: cuidado que ´black´ é diferente de ´Black´.
Para não falhar poderás usar
if
uppercase(edit1.text)=uppercase(x) // é aqui a diferença
then begin
form1.Color:=clblack;
8)
Para não falhar poderás usar
if
uppercase(edit1.text)=uppercase(x) // é aqui a diferença
then begin
form1.Color:=clblack;
8)
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)