Ir ao conteúdo

Pascal/Delphi Listar parcelas em Delphi


Ir à solução Resolvido por PataDGatinho,

Posts recomendados

Postado
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

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

Mostrar 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

Mostrar mais  
×
×
  • Criar novo...