Listbox incrementar
24/09/2004
0
ola pessoal, gostaria de uma ajuda, pois estou tentado trabalhar com listbox e nao estou conseguindo fazer incrementar os items do listbox e se alguem ja fez alguma coisa parecida e puder ajudar.
vamos la....
tenho um listbox com seguintes informacoes
teste1
teste2
teste3 numero de items = 5
teste4
teste5
tenho campo edit onde coloco um numero para iniciar a sequencia
edit1.text = 01
gostaria que meu listbox pegasse o numero de sequencia e me mostrasse os items como:
teste101
teste202
teste303
teste404
teste505
preciso pegar o nome do item do listbox e ir acrescentando sequencialmente pelo valor do edit.
obrigado
vamos la....
tenho um listbox com seguintes informacoes
teste1
teste2
teste3 numero de items = 5
teste4
teste5
tenho campo edit onde coloco um numero para iniciar a sequencia
edit1.text = 01
gostaria que meu listbox pegasse o numero de sequencia e me mostrasse os items como:
teste101
teste202
teste303
teste404
teste505
preciso pegar o nome do item do listbox e ir acrescentando sequencialmente pelo valor do edit.
obrigado
Chmelo
Curtir tópico
+ 0
Responder
Posts
24/09/2004
Alexandre Krepe
function Zero(ZEROS:string;QUANT:integer):String;
var
I,Tamanho:integer;
aux: string;
begin
aux:=zeros;
Tamanho:=length(ZEROS);
ZEROS:=´´;
for I:=1 to quant-tamanho do
ZEROS:=ZEROS+´0´;
aux:=zeros+aux;
Zero:=aux;
end;
procedure TForm1.Button1Click(Sender: TObject);
var
i: integer;
begin
for i := 0 to ListBox1.Count-1 do
ListBox1.Items[i] := ListBox1.Items[i] + zero(trim(IntToStr(StrToInt(edit1.Text) + i)),2);
end;
Espero ter ajudado a função Zero reenche com quantidade determinada de zeros o lado esquerdo de uma string Ex. Zero(String,2).
var
I,Tamanho:integer;
aux: string;
begin
aux:=zeros;
Tamanho:=length(ZEROS);
ZEROS:=´´;
for I:=1 to quant-tamanho do
ZEROS:=ZEROS+´0´;
aux:=zeros+aux;
Zero:=aux;
end;
procedure TForm1.Button1Click(Sender: TObject);
var
i: integer;
begin
for i := 0 to ListBox1.Count-1 do
ListBox1.Items[i] := ListBox1.Items[i] + zero(trim(IntToStr(StrToInt(edit1.Text) + i)),2);
end;
Espero ter ajudado a função Zero reenche com quantidade determinada de zeros o lado esquerdo de uma string Ex. Zero(String,2).
Responder
Clique aqui para fazer login e interagir na Comunidade :)