Erros Em Ends

[traira007]

procedure TForm3.Edit3Change(Sender: TObject);

begin

if form2.RadioGroup1.ItemIndex=0 then

edit1.text:=1

else

edit5.Text:=0

end;

end.

TO NO FORM 3 E TO QUERENU PUXAR O FORM 2 A VERIFICACAO..

MAIS está DANDO ERRO NO ELSE..

HAHA é UMA PERGUNTA NOOB MAIS QL é O ERRO?

[Churc]

opa

procedure TForm3.Edit3Change(Sender: TObject);

begin

if form2.RadioGroup1.ItemIndex=0 then

edit1.text:='1'

else

edit5.Text:='0'

end;

pra texto(string) você precisa colocar entre '' senão o delphi interpreta como inteiro...

abraços

[Guest Visitante]

cara erro no end ainda velho:D

[traira007]

vlw aí mano..agora deu certin

[traira007]

aí velho..da uma ajuda agora..caso eu queira colocar mais if..

como fica?

procedure TForm3.RESULTADOSClick(Sender: TObject);

begin

if form2.RadioGroup1.ItemIndex=0 then

edit1.text:='1'

else

edit5.Text:='0'

end;

begin

if form2.RadioGroup2.ItemIndex=0 then

edit2.text:='1'

else

edit5.Text:='0'

end;

end;

end.

[Churc]

opa

pra você não ficar usando infinitos IF se usa o case vou dar um exemplo

case radiogroup1.ItemIndex of

0: Edit1.text := 'Primeiro item selecionado';

1: Edit1.text := 'Segundo item selecionado';

end;

agora vamos supor que você queira fazer 2 ações caso o primeiro item esteja selecionado...

case radiogroup1.ItemIndex of

0:

begin

Edit1.text := 'Primeiro item selecionado';

Edit2.Text := 'Aeee';

end;

1: Edit1.text := 'Segundo item selecionado';

end;

qlq coisa posta ai

abraços

[Guest Visitante]

bklz..velho..tipo..to querenu fazer uma parada caso a pergunta tiver errado um campo vai receber +1 e se tiver certo outro campo recebe +1..

como posso fazer?

são 6 perguntas..