Duvida Na Utilização Do Edit

[Guest Sheila Fragoso]

Oi,

Boa Tarde!!

Estou fazendo um programinha em Delphi para fazer uma votação, preciso ler uma variavel inteira que após deve ser copiada para um Edit, qd coloco IntToStr no Edit.Text digamos que tenha dado o valor 1, no edit esta aparecendo 1245... como se tivesse transformando esse valor, será que alguém teria uma solução para mim ?

Grata,

Sheila

[Thales Pontes Martins]

Copia e cola esse seu código aqui pra eu dar uma analizada.

[Sheila Fragoso]

Copia e cola esse seu código aqui pra eu dar uma analizada.

Fiz assim: Na realiadade qd o usuário clicar no botão estará incrementado os votos para uma urna

procedure TForm6.Button3Click(Sender: TObject);

var

ContAnabelle, X:Integer;

begin

ContAnabelle:=0;

Begin

Case MessageDlg ('Confirma Voto para Lider de Sala da Turma 6ªA para Anabelle Benevides ', mtConfirmation,mbYesNoCancel, 0 ) of

idYes:

Begin

ContAnabelle:=ContAnabelle+1;

While ContAnabelle <>0 Do

Begin

X:=X+ContAnabelle;

ContAnabelle:=0;

ReadVoto.Text:=IntToStr(X);

End;

MessageDlg ('Parabéns, Voto Confirmado', mtWarning, [mbOK], 0 ) ;

If X<>0 Then

Begin

ReadVotoAnabelle.SelText:=X;

ContAnabelle:=X ;

end

Else

end;

Else

Begin

MessageDlg ('Vote Outra Vez', mtWarning,[mbOK], 0 )

end;

end;

end;

end;

Obrigada

Sheila

[Micheus]

Falta inicializar X. Tipo:

procedure TForm6.Button3Click(Sender: TObject);
var
  ContAnabelle, X:Integer;
begin
  ContAnabelle:=0;
  X := 0;
...

Mesmo assim, acho que você não vai conseguir totalizar os votos da forma como você implementou. Observe que as variáveis são locais e inicializadas a cada vez que você clicar no botão. Imagino que você queira que essas variáveis sejam globais e que sejam inicializadas na criação do seu form. Deste modo você não perderá seus valores a cada vez que for clicado no botão e respondido Sim. Também não entendi como é que seu programa compilou com a atribuição abaixo:

 ReadVotoAnabelle.SelText:=X;

[Churc]

não seria isso tipo

unit Unit1;

interface

uses

Windows,

SysUtils,

Forms,

Classes,

Controls,

StdCtrls;

type

TForm1 = class(TForm)

Button3: TButton;

ReadVoto: TEdit;

procedure Button3Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

ContAnabelle: Integer = 0;

implementation

{$R *.dfm}

procedure TForm1.Button3Click(Sender: TObject);

begin

if (MessageBox(Handle, 'Confirma Voto para Lider de Sala da Turma 6ªA para Anabelle Benevides ',

'Pergunta', MB_YESNO or MB_ICONQUESTION) = idYes) then

Begin

ContAnabelle := ContAnabelle + 1;

ReadVoto.Text := IntToStr(ContAnabelle);

MessageBox(Handle, 'Parabéns, Voto Confirmado!', 'Informação', MB_OK or MB_ICONINFORMATION) ;

end

else

MessageBox(Handle, 'Vote outra vez!', 'Informação', MB_OK or MB_ICONINFORMATION);

end;

end.

que você quer?!? :rolleyes:

abraços

[Sheila Fragoso]

[Vou testar!!

Mas acredito que é isso mesmo..

Brigadão

Ah, Será que você poderia me ajudar só um pouquito como eu faço para brecar que ah pessoa feche o sistema na realidade quando ele tentasse fechar encaminharia para um form com um resultado final, entende ?

Grata desde já.

Sheila

[s3c]

como eu faço para brecar que ah pessoa feche o sistema

Coloque no evento onClose do Form principal: Action := caNone;