Como tirar o primeiro caracter de uma string de 13 caractere

Delphi

06/11/2004

Como eu faço isto?


O4pr3ndiz

O4pr3ndiz

Curtidas 0

Melhor post

Anderson Silva

Anderson Silva

10/11/2004

Como ja foi especificado acima, existem varias maneiras

a mais simples seria realmente o delete

Delete ( fstring, index, quant );
onde fstring é o texto a ser apagado
index é a posição que será excluido o 1º caracter
quant é a quantidade de caracteres a sere, excluidos.

exemplo :

fstring = ´Anderson M Silva´
Delete( fstring, 1, 2 );

Resultado final = ´derson M Silva´

outro exemplo é usar o copy

fResult = copy( fstring, 2, length( fstring ) - 2 );
neste exemplo, estou copiando a fstring a partir da posição 2 com o tamanho total dela - os 2 caracteres que eu nao quero.

Espero ter ajudado

Anderson M Silva
Programador WEB e DeskTop


GOSTEI 1

Mais Respostas

Gilvanj

Gilvanj

06/11/2004

tente:
Delete(variavel,1)
ou
variavel := copy(variavel, 2, 1000)


GOSTEI 0
Aroldo Zanela

Aroldo Zanela

06/11/2004

Colega,

Delete(SuaString,Posicao,Quantidade);



GOSTEI 0
Otorquati

Otorquati

06/11/2004

8)
Olá,
Não sei se entendi bem, mas o exemplo abaixo mostra como tirar o 1° caracter de uma string qualquer, alem de vc poder utilizá-lo tb.

procedure TForm1.Button1Click(Sender: TObject);
var
sPrimeiroChar, sRestoChar: String;
begin
sPrimeiroChar := LeftStr(edit1.Text,1);
sRestoChar := RightStr(edit1.Text,Length(edit1.Text)-1);
Label1.Caption:=´Primeiro caracter: ´+sPrimeiroChar;
Label2.Caption:=´Caracteres Restantes: ´+sRestoChar;
end;

Espero ter ajudado...


GOSTEI 0
Inutaishou

Inutaishou

06/11/2004

Para visualizar um caracter de uma String, eu sugiro que não se use uma função...

Para ver o primeiro caracter de uma String:
Caracter1 := string[1];


[]´s,


GOSTEI 0
POSTAR