Fórum Excluir 3 zeros a esquerda #324704
04/07/2006
0
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.
É 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
Curtir tópico
+ 0
Responder
Posts
04/07/2006
Cristiano Alves
if Copy(SuaString,1,3) = ´000´ then
Delete(SuaString,1,3);
:wink:
Delete(SuaString,1,3);
:wink:
Responder
Gostei + 0
04/07/2006
Vispo
Colega:
:D
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
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)