ListView

Delphi

22/08/2008

Bom Dia!

Eu carrego normalmente uma ListView pelo seguinte codigo...

With DataModule1.QRparcelasVenda do
Begin
while not DataModule1.QRparcelasVenda.Eof do
begin
ListItem := ListView1.Items.Add;
ListItem.SubItems.Add(fieldbyname(´numero_venda´).AsString);
ListItem.SubItems.Add(Fieldbyname(´numero_parcela´).AsString);
ListItem.SubItems.Add(fieldbyname(´data_emissao´).AsString);
ListItem.SubItems.Add(FieldByName(´valor´).AsString);
Next;
end;
end;


Esse campo ´Valor´ aparece como se fosse integer.... Eu gostaria que esse campo aparecesse como formato Currency (R$ 200,00 por EX) eu não consigo formatar essa linha do ListView...

Alguem pode me ajudar?

Grato.


Barrys

Barrys

Curtidas 0

Respostas

Alex Maia

Alex Maia

22/08/2008

Coloque assim:

With DataModule1.QRparcelasVenda do
Begin
while not DataModule1.QRparcelasVenda.Eof do
begin
ListItem := ListView1.Items.Add;
ListItem.SubItems.Add(fieldbyname(´numero_venda´).AsString);
ListItem.SubItems.Add(Fieldbyname(´numero_parcela´).AsString);
ListItem.SubItems.Add(fieldbyname(´data_emissao´).AsString);
ListItem.SubItems.Add(FormatFloat(´,0.00´, FieldByName(´valor´).AsFloat));
Next;
end;
end;


GOSTEI 0
Barrys

Barrys

22/08/2008

Perfeito!!!!

Muito Obrigado.


GOSTEI 0
Pestana_

Pestana_

22/08/2008

Bom Dia! Eu carrego normalmente uma ListView pelo seguinte codigo... With DataModule1.QRparcelasVenda do Begin while not DataModule1.QRparcelasVenda.Eof do begin ListItem := ListView1.Items.Add; ListItem.SubItems.Add(fieldbyname(´numero_venda´).AsString); ListItem.SubItems.Add(Fieldbyname(´numero_parcela´).AsString); ListItem.SubItems.Add(fieldbyname(´data_emissao´).AsString); ListItem.SubItems.Add(FieldByName(´valor´).AsString); Next; end; end; Esse campo ´Valor´ aparece como se fosse integer.... Eu gostaria que esse campo aparecesse como formato Currency (R$ 200,00 por EX) eu não consigo formatar essa linha do ListView... Alguem pode me ajudar? Grato.


dependendo de como você exibe os dados da field, tambem pode ser feito assim:

utilizando o [i:6583ee5653]DisplayText[/i:6583ee5653]:
With DataModule1.QRparcelasVenda do 
Begin 
   ListItem.Items.BeginUpdate;
   while not DataModule1.QRparcelasVenda.Eof do 
    begin 
       ListItem := ListView1.Items.Add; 
       ListItem.SubItems.Add(fieldbyname(´numero_venda´).AsString); 
       ListItem.SubItems.Add(Fieldbyname(´numero_parcela´).AsString); 
       ListItem.SubItems.Add(fieldbyname(´data_emissao´).AsString); 
       ListItem.SubItems.Add(FieldByName(´valor´).DisplayText); 
       Next; 
    end; 
   ListItem.Items.EndUpdate;
end;



GOSTEI 0
Barrys

Barrys

22/08/2008

minha duvida agora é o seguinte...

esse campo ficou assim... ´ R$ 1.555,22 ´ e eu preciso desse valor agora para somar numa variavel ´Real´ que criei... como faço a formatação disso


var
soma:real;

begin
ListItem:= ListView1.Selected;
soma:=strtofloat(ListItem.SubItems.Strings[3]);
end;

mas não dá certo pelo formato....

como eu formato isso?


GOSTEI 0
Pestana_

Pestana_

22/08/2008

acho que não tem como fazer esta conversão neste formato, mas da pra fazer uma POG utilizando o StringReplace:

var
   soma : real;
begin
   ListItem := ListView1.Selected;
   soma := StrToFloat(StringReplace(´R$ 1555,22´, ´R$ ´, ´´, []));
end;



GOSTEI 0
Barrys

Barrys

22/08/2008

Não deu certo....

porque o campo está assim... 1.522,00
vc me passou assim.............. R$ 1522,00

eu compreendi que o ´R$ ´ dá para tirar... mas no meu caso tem esse ´.´ que dá erro quando executo a operação...

O problema persiste...


GOSTEI 0
POSTAR