Ir ao conteúdo
  • Cadastre-se

Delphi Listar parcelas em Delphi


PataDGatinho
Ir à solução Resolvido por PataDGatinho,

Posts recomendados

unit Unit1;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls;

type
  TForm1 = class(TForm)
    Memo1: TMemo;
    Edit1: TEdit;
    Edit2: TEdit;
    Valor: TLabel;
    Parcelas: TLabel;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var val, resuldiv, resulmult: currency;
    parc: integer;
begin
  val:= strtofloat(Edit1.Text);
  parc:= strtoint(Edit2.Text);
  resuldiv:= val / parc;
  resulmult:= resuldiv * parc;
  Memo1.Text:= floattostr(resuldiv);
  ShowMessage(FormatFloat('0.00', resulmult));
end;

end.

Bom dia, fiz um código que divide um valor pelo o total de parcelas e depois mostra o valor "remontado", como faço pra listar todas das parcelas para dentro o TMemo?

imagem_2021-10-13_094145.png

 

Captura de Tela (201).png

  • Curtir 1
Link para o comentário
Compartilhar em outros sites

Crie uma conta ou entre para comentar

Você precisa ser um usuário para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar agora

Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas comunidades sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

×
×
  • Criar novo...

Redes-Wi-Fi-capa-3d-newsletter.png

EBOOK GRÁTIS!

CLIQUE AQUI E BAIXE AGORA MESMO!