Para os alunos do 3º Ano Informática

Código de exemplo para efetuar uma venda.
Obs1: Não esqueça que este código deverá ser adaptado para suas necessidades.
Obs2: A variável TOTAL deve ser declarada na parte de declaração do FORM e não na PROCEDURE.

Exemplo da tela





var
Form1: TForm1;
total:real;
implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
var
vitem:real;
ncarac,x:integer;
result:string;

begin
vitem:=strtocurr(edit1.text);
edit1.text := FloatToStrF(vitem,ffCurrency,7,2);
ncarac:=length(combobox1.text);
for x:=1 to 10 do
begin
if x <= ncarac then
result := result + copy(combobox1.text, x, 1)
else
result := result + ' ';
end;

listbox1.Items.add(result+edit1.text);

total:= total + vitem;
label5.Caption := FloatToStrF(total,ffCurrency,7,2);

end;

procedure TForm1.ComboBox1Click(Sender: TObject);
begin
edit1.Clear;
end;

end.