Excluir 3 zeros a esquerda

Delphi

04/07/2006

Bom Dia Galera

É o seguinte estou precisando de uma rotina que apague os 3 primeiros caracteres de uma string, somente quando esse 3 caracteres for ´000´, se alguém tiver um exemplo de como efetuar essa rotina agradeço muito.


Misael

Misael

Curtidas 0

Respostas

Cristiano Alves

Cristiano Alves

04/07/2006

if Copy(SuaString,1,3) = ´000´ then
Delete(SuaString,1,3);

:wink:


GOSTEI 0
Vispo

Vispo

04/07/2006

Colega:

procedure TForm1.Button1Click(Sender: TObject);
var
  SuaString : String;
begin
  SuaString := ´1235465000´;
  if Copy(SuaString, Length(SuaString)-2, 3) = ´000´ then
    Delete(SuaString, Length(SuaString)-2, 3);
  ShowMessage(SuaString);
end;


:D


GOSTEI 0
POSTAR