Fórum Como retirar os espaços em Branco de um ListBox.. #297377
28/09/2005
0
Estou com um problema q é o programa ler a linha de listbox e qdo encontrar espaço em branco ele apagar tudo o q tiver pela frente, tipo..
Exemplo:
DadosCadastrais #¬
Ele apagar o espaço em branco e a sequencia de caracteres depois dele ¬.
Alguem pode me ajudar..
O4pr3ndiz
Curtir tópico
+ 0Posts
28/09/2005
Crash
t+
Gostei + 0
29/09/2005
Bruno Belchior
var
Cont: Shortint;
Resultado, StringInicial: string;
begin
Cont := 1;
StringInicial := ´DadosCadastrais #¬´;
while Copy(StringInicial, Cont, 1) <> ´ ´ do
begin
Resultado := Resultado + StringInicial[Cont];
Inc(Cont);
end;
ShowMessage(Resultado);
end;Gostei + 0
29/09/2005
Michelli88
Exemplo:
str:=´ exemplo de string "; str:=Trim(str);
Gostei + 0
18/10/2005
O4pr3ndiz
exemplo:
origem
cadastro1 837635
cadastro2 #
resultado
cadastro1
cadastro2
mais explicado q isto eh impossivel... :)
Gostei + 0
20/10/2005
O4pr3ndiz
Coloquei o seguinte codigo no envento onclick
procedure TForm1.Button2Click(Sender: TObject);
var
Cont, i: integer;
Resultado, StringInicial: string;
begin
//corre a lista e apaga aos vazios e comentario da frente
for I := 0 to Lista.Lines.Count-1 do
begin
Cont := 1;
Resultado := ´´;
StringInicial := Lista.Lines[i];
while Copy(StringInicial, Cont, 1) <> ´ ´ do
begin
// Resultado := Resultado + Lista.Lines[i];
Resultado := Resultado + StringInicial[Cont];
Inc(Cont);
end;
Lista.Lines[I] := Resultado;
end;
obrigado
Gostei + 0
20/10/2005
Marcio.theis
var
x, linha, pos: integer;
begin
for x:=0 to Lista.Items.Count - 1 do
begin
pos:=0;
for linha:=1 to Length(Lista.Items.Strings[x]) do
begin
if Lista.Items.Strings[x][linha] = ´ ´ then
begin
Lista.Items.Strings[x]:=copy(Lista.Items.Strings[x],1,pos);
Break;
end
else
Inc(pos);
end;
end;
end;Gostei + 0
21/10/2005
O4pr3ndiz
Valew.. /]/]@t
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)