Como eliminar zero a esquerda de uma string

Delphi

13/10/2005

Preciso eliminar todos os zeros a esquerda de uma string ?

se alguma alma bondosa puder me ajudar eu agradeço !!!!!


Fabiano Góes

Fabiano Góes

Curtidas 0

Respostas

Vinicius2k

Vinicius2k

13/10/2005

Colega,

Uma solução:
...
var
  S: String;
  I: Integer;
begin
  S := ´0000012345´;
  for I := 1 to Length(S) do
  begin
    if not (S[I] = ´0´) then
    begin
      Delete(S, 1, (I-1));
      Break;
    end;
  end;
end;


Outra...
...
var
  S: String;
  I: Integer;
begin
  S := ´0000012345´;
  for I := 1 to Length(S) do
  begin
    if not (S[I] = ´0´) then
    begin
      S := Copy(S, I, Length(S));
      Break;
    end;
  end;
end;


T+


GOSTEI 0
Fabiano Góes

Fabiano Góes

13/10/2005

Valeu Vinicius2K,,,,,,,

Um abraço !!!!!


GOSTEI 0
Nildo

Nildo

13/10/2005

Ou então algo mais facil:

begin
   while SuaString[ 1 ] = ´0´ do
      Delete( SuaString, 1, 1 );
end;



GOSTEI 0
Vinicius2k

Vinicius2k

13/10/2005

:shock:
Afe... bem mais fácil nildo!

Outra (talvez ´gambiarra´):
S := IntToStr(StrToInt(S));


Só não sei qual teria o menor custo de processamento...

T+


GOSTEI 0
Nildo

Nildo

13/10/2005

:shock: Afe... bem mais fácil nildo! Outra (talvez ´gambiarra´): 
S := IntToStr(StrToInt(S));
Só não sei qual teria o menor custo de processamento... T+


Hehehe inteligente esse método! mas é meio que gambiarra... teria um custo de processamento alto pois ele faria a conversão byte a byte da string. No caso do While, se encontrar algo <> de ´0´, ele vai parar, evitando processamento desnecessário! :D


GOSTEI 0
Vinicius2k

Vinicius2k

13/10/2005

...inteligente esse método! mas é meio que gambiarra...

hehe... eu não disse que era!
Obrigado pelo esclarecimento quanto à conversão. Eu, antes de postar isso, *tentei* analisar as duas funções ´delete´ e ´IntToStr/StrToInt´, mas ambas são em ASM, então não pude concluir.

T+


GOSTEI 0
POSTAR