Como retirar ´.´ (ponto) do começo da linha de um listbox??

Delphi

20/10/2005

O problema eh o seguinte tenho q fazer um codigo q pegue

1 - antes
.nando.costa.pereira
.carro.amarelo.pintado~

2 - resultado desejado
nado.costa.pereira
carro.amarelo.pintado

verifique pontos, virgulas e caracteres especiais no começo e final da frase....

Alguem pode me ajudar?????


O4pr3ndiz

O4pr3ndiz

Curtidas 0

Respostas

Marcio.theis

Marcio.theis

20/10/2005

Uma das formas seria:

var
    x: integer;
begin
for x:=0 to ListBox1.Items.Count - 1 do
    begin
    if ListBox1.Items.Strings[x][1] in [´,´,´.´,´~´,´-´] then
        ListBox1.Items.Strings[x]:=copy(ListBox1.Items.Strings[x],2,Length(ListBox1.Items.Strings[x]));
    if ListBox1.Items.Strings[x][Length(ListBox1.Items.Strings[x])] in [´,´,´.´,´~´,´-´] then
        ListBox1.Items.Strings[x]:=copy(ListBox1.Items.Strings[x],1,Length(ListBox1.Items.Strings[x])- 1);
    end;
end;



GOSTEI 0
POSTAR