Eliminar ultimo caractere
Postei uma questão sobre eliminar caracteres e foi respondida de forma a resolver meu problema em 99¬.
Agora preciso eliminar o ultimo caractere de uma sequência, por exemplo:
Tenho a seguinte sequencia:
0015AA956652-AB
Neste caso precisaria eliminar somente o último caractere, o B e manter o restante.
Tem como?
Realmente preciso desta ajuda, se possível.
Agora preciso eliminar o ultimo caractere de uma sequência, por exemplo:
Tenho a seguinte sequencia:
0015AA956652-AB
Neste caso precisaria eliminar somente o último caractere, o B e manter o restante.
Tem como?
Realmente preciso desta ajuda, se possível.
Cjscjs
Curtidas 0
Respostas
Vinicius2k
06/09/2003
cjscjs,
existem outros métodos, mas vou usar o mesmo q exemplifiquei para vc ontém já que vc deve tê-lo usado...
sua_string:= 0015AA956652-AB
sua_string_nova:= copy(sua_string,1,(lenght(sua_string) -1));
espero ter ajudado com o outro 1¬...
T+
existem outros métodos, mas vou usar o mesmo q exemplifiquei para vc ontém já que vc deve tê-lo usado...
sua_string:= 0015AA956652-AB
sua_string_nova:= copy(sua_string,1,(lenght(sua_string) -1));
espero ter ajudado com o outro 1¬...
T+
GOSTEI 0
Sousa_thiago
06/09/2003
Não sei se existe uma função já pronta para fazer isso que vc quer, e com certeza existem 1000 formas de fazer isso. Um jeito rápido q eu achei de fazer isso foi copiando o valor de uma variável para outra.
Acho q isso deve resolver seu problema
procedure TForm1.Button1Click(Sender: TObject);
var
aux1 : String;
i: Integer;
begin
aux1:=´´;
for i:=1 to Length(Edit1.Text)-1 do begin
aux1:=aux1+Edit1.Text[i];
end;
edit1.Text:=aux1;
end;
[]´s
Acho q isso deve resolver seu problema
procedure TForm1.Button1Click(Sender: TObject);
var
aux1 : String;
i: Integer;
begin
aux1:=´´;
for i:=1 to Length(Edit1.Text)-1 do begin
aux1:=aux1+Edit1.Text[i];
end;
edit1.Text:=aux1;
end;
[]´s
GOSTEI 0
Sousa_thiago
06/09/2003
Com a função COPY como foi colocado acima fica mais fácil ainda .. :)
GOSTEI 0