Fórum Espaçamento entre dados do listbox #516406

 procedure TFormVendas.Button1Click(Sender: TObject);
var
precoU, SubTotal:real;
ncarac, x, Quant:integer;
result:string;

begin
precoU:=strtocurr(Edit1.text);    //Transforma o nº inteiro para moeda (coloca o R$ na frente
Quant := strtoint (ComboBox2.Text); // Variável Quant vai receber o que será digitado no Edit2
Edit1.text := FloatToStrF(precoU,ffCurrency,7,2); // Text do Edit1 recebe Float para String Formatado (Sete casa, separando duas casas depois da vírgula (Da Variável "PrecoU")
Combobox2.Text := FloatToStr(Quant);  // Text do combobox2 recebe Float para String (Da variável "Quant")
ncarac:=length(ComboBox1.text); // ncarac recebe a contagem de caracter de ComboBox1
for x:=1 to 18 do   //   Enquanto variável x receber 1 até 18 faça
begin
if x <= ncarac then   // Se variável x for menor ou igual à variável "ncarac" (que recebe a contagem de caracter do combobox1) então
result := result + copy(ComboBox1.text, x, 1)  // Variável "result" recebe valor da variável "result" mais cópia de "text" do Combobox1, condição do x, uma casa sem casa decimal
else
result := result + ' ';  // Senão variável "result" recebe valor de result mais espaço em branco
end;