[code]boa noite a todos, estou precisando de uma ajuda com listbox. J� procurei muito na internet, o que encontro � mostrar um campo de uma tabela no listbox, selecionar um item no listbox. etc. etc.e...

visualizar dados de uma tabela no listbox + delphi7

26/12/2011

Joel Rodrigues

Boa noite,
voc� precisa mostrar esses cinco campos lado a lado? Tipo fazer um grid no listbox?
Primeiro, deixe-me perguntar: isso � realmente necess�rio ou � a unica forma que voc� encontrou? Se preferir, compartilhe o problema, talvez possamos te ajudar.
Se voc� realmente precisa fazer assim, a unica forma que vejo � formatando o texto cada campo com uma largura espec�fica, e isso geralmente s� fica legal com certas fontes (tipo courrier e lucida console).
Pra isso, voc� l� todos os registros e monta um string com os cinco campos que precisa, onde cada campo tem uma largura fixa (voc� completa com espa�os em branco) e adiciona ao listbox.
Se precisar de ajudar para fazer isso, � s� avisar.

Abra�o.

Responder

Gostei + 0

26/12/2011

Geraldo Leal

Boa noite,
voc� precisa mostrar esses cinco campos lado a lado? Tipo fazer um grid no listbox?
Primeiro, deixe-me perguntar: isso � realmente necess�rio ou � a unica forma que voc� encontrou? Se preferir, compartilhe o problema, talvez possamos te ajudar.
Se voc� realmente precisa fazer assim, a unica forma que vejo � formatando o texto cada campo com uma largura espec�fica, e isso geralmente s� fica legal com certas fontes (tipo courrier e lucida console).
Pra isso, voc� l� todos os registros e monta um string com os cinco campos que precisa, onde cada campo tem uma largura fixa (voc� completa com espa�os em branco) e adiciona ao listbox.
Se precisar de ajudar para fazer isso, � s� avisar.

Abra�o.

 ol� joel, obrigado pelo retorno, sim eu preciso que seja feito no listbox, e preciso que seja mostrado lado a lado, s�o numeros. veja o exemplo abaixo.
01 02 03 04 05 06 07
01 02 03 04 05 08 10 
01 02 03 04 07 08 09
01 02 03 05 06 07 08 
01 02 03 05 06 09 10 
01 02 03 05 08 09 12 
01 02 03 05 09 10 11 
01 02 03 06 07 08 09 

sim joel, preciso de ajuda para resolver isto, n�o consegui fazer n�o. meu banco tem vamos dizer como no exemplo.
10 campos. e preciso pegar estes 7 . cada linha � um registro. tipo linha 1 linha2 linha3 mais n�o precisa mostrar o numero da linha, somente os dados da linha.
mais uma vez obrigado pela aten��o
sucesso
geraldo leal

Responder

Gostei + 0

27/12/2011

Joel Rodrigues

S�o s� n�meros? Nesse caso voc� pode usar a fun��o FormatFloat para formatar os campos e deixar todos com o mesmo comprimento.
Veja o exemplo abaixo.
Declarei a vari�vel item do tipo string e montei ela da seguinte forma: 001 002 003 004 005 (fiz apenas com dois campos, mas � s� seguir o racioc�nio.
A quantidade de # e zeros na fun��o FormatFloat indica o formato do n�mero, no caso, ###000 indica que o n�mero ser� formatado com tr�s algarismos e sem casas decimais. Os n�meros s�o separados por espa�os.

var
item:String
begin
with MinhaTabela do
 begin
 First();
  while not Eof do 
  begin
  item := ;//string vazio	
  item := item + FormatFloat(###000, FieldByName(campo1).AsFloat)+ +FormatFloat(###000, FieldByName(campo2).AsFloat);
  meuListBox.Items.Add(item);
  Next();
  end;
 end;
end;

Qualquer d�vida, � s� falar. Se preferir, pode me mandar um email: joelrlneto@gmail.com

Grande abra�o.

Responder

Gostei + 0

28/12/2011

Geraldo Leal

procedure Tfrmnumeros.SpeedButton10Click(
  Sender: TObject);

var
item:String ;

begin
with IBQuery1 do
begin
first();
while not Eof do
begin

item := ;//string vazio

item := item + FormatFloat(##00, FieldByName(bola1).AsFloat)+ + FormatFloat(##00, FieldByName(bola2).AsFloat)
+ + FormatFloat(##00, FieldByName(bola3).AsFloat)+ + FormatFloat(##00, FieldByName(bola4).AsFloat) +     ;
listapostas.Items.Add(item);
Next();
end;
end;
 end;

ai joel, obrigado pela ajuda, consegui resolver tudo, fica ai para quem quiser e estiver precisando.abra�os e
sucesso, bom final de ano.pode fechar o post

Responder

Gostei + 0

28/12/2011

Geraldo Leal

procedure Tfrmnumeros.SpeedButton10Click(
  Sender: TObject);

var
item:String ;

begin
with IBQuery1 do
begin
first();
while not Eof do
begin

item := ;//string vazio

item := item + FormatFloat(##00, FieldByName(bola1).AsFloat)+ + FormatFloat(##00, FieldByName(bola2).AsFloat)
+ + FormatFloat(##00, FieldByName(bola3).AsFloat)+ + FormatFloat(##00, FieldByName(bola4).AsFloat) +     ;
listapostas.Items.Add(item);
Next();
end;
end;
 end;

ai joel, obrigado pela ajuda, consegui resolver tudo, fica ai para quem quiser e estiver precisando.abra�os e
sucesso, bom final de ano.pode fechar o post

Estou fazendo uma cita��o pois coloquei que consegui resolver tudo, est� errado, o joel conseguiu resolver
tudo, mais uma vez obrigado

Responder

Gostei + 0

F�rum visualizar dados de uma tabela no listbox + delphi7 #410961