--- Em delphi-br@yahoogrupos.com.br, Marcio Fernandes
<[EMAIL PROTECTED]> escreveu
>
> to com um peq pro no meu estudo aki, ele da o seg ero:
>
> [Error] Unit1.pas(53): ';' not allowed before 'ELSE'
>
> o cod a minha unit é:
> unit Unit1;
> interface
> uses
> Windows, Messages, SysUtils, Variants, Classes, Graphics,
Controls, Forms,
> Dialogs, StdCtrls;
> type
> TForm1 = class(TForm)
> Label1: TLabel;
> Edit1: TEdit;
> Button1: TButton;
> GroupBox1: TGroupBox;
> Label2: TLabel;
> Edit3: TEdit;
> Edit2: TEdit;
> Label5: TLabel;
> Label4: TLabel;
> Label3: TLabel;
> RadioButton1: TRadioButton;
> RadioButton2: TRadioButton;
> Edit4: TEdit;
> procedure Button1Click(Sender: TObject);
> procedure Edit1KeyPress(Sender: TObject; var Key: Char);
> private
> { Private declarations }
> public
> { Public declarations }
> end;
> var
> Form1: TForm1;
> implementation
> {$R *.dfm}
> procedure TForm1.Button1Click(Sender: TObject);
> var
> valoremreal : real;
> valordaraiz : real;
> parteinteira : real;
> partefracionaria : real;
> begin
> valoremreal := strtofloat(edit1.Text);
> valordaraiz := sqrt(valoremreal);
> edit2.Text := floattostr(valordaraiz);
> parteinteira := int(valordaraiz);
> partefracionaria := valordaraiz - parteinteira;
> if strtoint(edit1.Text) mod 2 = 0 then
> label2.Caption := edit1.Text + ' o nº é par';
// COMO AQUI NAO TEM NENHUM END, OU SEJA É UM ELSE PURO, NA ULTIMA
LINHA DE COMANDO VC NAO PODE COLOCAR ; O PONTO E A VIRGULA, EXEMPLO
label2.Caption := edit1.Text + ' o nº é par'
ELSE
label2.Caption := edit1.Text + ' o nº é ímpar';
// DESSA MANEIRA AGORA IRA FUNCIONAR . . .
// QUALQUER DUVIDA ME ADD, [EMAIL PROTECTED], ou
[EMAIL PROTECTED] . . .
> else
> label2.Caption := edit1.Text + ' o nº é ímpar';
> if partefracionaria = 0 then
> begin
> radiobutton1.Checked := true;
> edit3.Text := floattostr(parteinteira);
> edit1.Text := '0';
> end
> else
> begin
> radiobutton2.Checked := true;
> edit3.Text := floattostr(parteinteira);
> edit4.Text := floattostr(partefracionaria);
> end;
> end;
> procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
> begin
> if not (key in ['0'..'9']) then key := '0';
> end;
> end.
>
>
>
> Novos endereços, o Yahoo! que você conhece. Crie um email
novo com a sua cara @ymail.com ou @rocketmail.com.
> http://br.new.mail.yahoo.com/addresses
>
> [As partes desta mensagem que não continham texto foram removidas]
>
