ferj Postado Maio 8, 2004 Denunciar Share Postado Maio 8, 2004 Sou iniciante, e gostaria de saber, como fazer um countdown em Delphi. Por exemplo, que comece no nº 15 e va descendo... 14,13,12 até chegar ao 0. Usei o seguinte código:------------------------------------------------------------------------------------------------unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, StdCtrls;type TForm1 = class(TForm) Label1: TLabel; Timer1: TTimer; procedure FormActivate(Sender: TObject); procedure Timer1Timer(Sender: TObject); private { Private declarations } public { Public declarations } end;var Form1: TForm1; numero:integer;implementation{$R *.dfm}procedure TForm1.FormActivate(Sender: TObject);begin{ Primeiramente, ao ativar o form, o numero inicial é 15 }numero := 15;end;procedure TForm1.Timer1Timer(Sender: TObject);{ O timer está configurado para 1000 ou seja, 1 segundo }{ A cada segundo, o caption do label1 deveria mostrar o número anterior, - 1}beginlabel1.Caption := numero - 1;end;end.------------------------------------------------------------------------------------------------O Delphi acusa um erro na linha "label1.caption := numero - 1" porque são incompatíveis string e inteiro.Alguém tem alguma idéia? Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 s3c Postado Maio 8, 2004 Denunciar Share Postado Maio 8, 2004 você tem que converter.Label1.Caption é um tipo String.você não pode jogar um número numa string;Faça assim:Label1.Caption := IntToStr(numero - 1); Citar Link para o comentário Compartilhar em outros sites More sharing options...
Pergunta
ferj
Sou iniciante, e gostaria de saber, como fazer um countdown em Delphi. Por exemplo, que comece no nº 15 e va descendo... 14,13,12 até chegar ao 0. Usei o seguinte código:
------------------------------------------------------------------------------------------------
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, StdCtrls;
type
TForm1 = class(TForm)
Label1: TLabel;
Timer1: TTimer;
procedure FormActivate(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
numero:integer;
implementation
{$R *.dfm}
procedure TForm1.FormActivate(Sender: TObject);
begin
{ Primeiramente, ao ativar o form, o numero inicial é 15 }
numero := 15;
end;
procedure TForm1.Timer1Timer(Sender: TObject);
{ O timer está configurado para 1000 ou seja, 1 segundo }
{ A cada segundo, o caption do label1 deveria mostrar o número anterior, - 1}
begin
label1.Caption := numero - 1;
end;
end.
------------------------------------------------------------------------------------------------
O Delphi acusa um erro na linha "label1.caption := numero - 1" porque são incompatíveis string e inteiro.
Alguém tem alguma idéia?
Link para o comentário
Compartilhar em outros sites
1 resposta a esta questão
Posts Recomendados
Participe da discussão
Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.