Edit1 interpretar string como variavel???

Delphi

24/09/2003

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:


Viper0

Viper0

Curtidas 0

Respostas

Rodrigo_rcp

Rodrigo_rcp

24/09/2003

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.



GOSTEI 0
Viper0

Viper0

24/09/2003

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:


GOSTEI 0
Bacalhau

Bacalhau

24/09/2003

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)


GOSTEI 0
POSTAR