function TfrmDRE.Teste(pString: String): String;
var
i : Integer;
Achei : Boolean;
begin
Result := '';
Achei := False;
for i := 1 to Length(pString) do
begin
if (pString[i] = 0) and (not Achei) then
Achei := False;
else
begin
Result := Result + pString[i];
Achei := True;
end;
end;
end;
Ta na mao
Eduardo
----- Original Message -----
From: jmourajr2000
To: delphi-br@yahoogrupos.com.br
Sent: Wednesday, September 28, 2005 2:25 PM
Subject: [delphi-br] Remover Zeros a esquerda de uma String.
Amigos, Boa tarde!
Por favor, alguem poderia me ajudar com alguma função, para que eu
possa remover zeros a esquerda em uma String ou em um TEdit.
Quem puder me ajudar, agradeço muito.
Abraços a todos.
José
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Yahoo! Grupos, um serviço oferecido por:
------------------------------------------------------------------------------
Links do Yahoo! Grupos
a.. Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
b.. Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço
do Yahoo!.
[As partes desta mensagem que não continham texto foram removidas]
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
