Lazarus - Estrutura de repetição FOR ordem crescente e decrecente

Vamos esta criando uma estrutura de repetição com for na ordem crescente e decrescente onde iremos esta utilizando Lazarus esse código poderá está sendo usado no delphi também então vamos lá 1ª vamos criar um novo projeto, pode dar um nome de sua preferencia. 2ª vamos adicionar 2 componentes localizados no menu de componentes na paleta Standard, são eles 2 Button e 1 Label Vamos da o nome ao nossos buttons na propriedade Caption do button1 colocamos Crescente e no button2 Decrescente pronto nosso projeto irá ficar conforme imagem abaixo: A fonte da letra do label utilizada foi a

DS-DIGIT.TTF

em nosso button 1 "crescente" vamos utilizar o código: procedure TForm1.Button1Click(Sender: TObject); var I:Integer; // criamos uma variavel do tipo inteiro begin for I:=0 to 10 do begin // Vamos formatar nosso label para ficar com 2 digitos // utilizando FormatFloat label1.Caption:=FormatFloat('00',I); sleep(1000); // para nessa linha conta até 1 segundo para continuar Label1.Refresh; // atualiza o Label end; end; em nosso button 2 "Decrescente" vamos utilizar o código: procedure TForm1.Button2Click(Sender: TObject); var I:Integer; // criamos uma variavel do tipo inteiro begin for I:=10 downto 0 do begin // Vamos formatar nosso label para ficar com 2 digitos // utilizando FormatFloat label1.Caption:=FormatFloat('00',I); sleep(1000); // para nessa linha conta até 1 segundo para continuar Label1.Refresh; // atualiza o Label end; end; MINHA UNIT FICOU CONFORME CÓDIGO A BAIXO Unit1.pas unit Unit1; {$mode objfpc}{$H+} interface uses Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls, ExtCtrls; type { TForm1 } TForm1 = class(TForm) Button1: TButton; Button2: TButton; Label1: TLabel; procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); private public end; var Form1: TForm1; implementation {$R *.lfm} { TForm1 } procedure TForm1.Button1Click(Sender: TObject); var I:Integer; // criamos uma variavel do tipo inteiro begin for I:=0 to 10 do begin // Vamos formatar nosso label para ficar com 2 digitos // utilizando FormatFloat label1.Caption:=FormatFloat('00',I); sleep(1000); // para nessa linha conta até 1 segundo para continuar Label1.Refresh; // atualiza o Label end; end; procedure TForm1.Button2Click(Sender: TObject); var I:Integer; // criamos uma variavel do tipo inteiro begin for I:=10 downto 0 do begin // Vamos formatar nosso label para ficar com 2 digitos // utilizando FormatFloat label1.Caption:=FormatFloat('00',I); sleep(1000); // para nessa linha conta até 1 segundo para continuar Label1.Refresh; // atualiza o Label end; end; end. Deixe seu comentário tire suas duvidas.

17/04/2026 05:05 Lazarus 2739
Topo