Fórum ListView #362876
22/08/2008
0
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
Curtir tópico
+ 0Posts
22/08/2008
Alex Maia
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
22/08/2008
Barrys
Muito Obrigado.
Gostei + 0
22/08/2008
Pestana_
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
22/08/2008
Barrys
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
23/08/2008
Pestana_
var soma : real; begin ListItem := ListView1.Selected; soma := StrToFloat(StringReplace(´R$ 1555,22´, ´R$ ´, ´´, [])); end;
Gostei + 0
25/08/2008
Barrys
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
Clique aqui para fazer login e interagir na Comunidade :)