24/09/2004

Listbox incrementar

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


Chmelo

Respostas

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).


Responder Citar