Como tirar o primeiro caracter de uma string de 13 caractere
Como eu faço isto?
O4pr3ndiz
Curtidas 0
Melhor post
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
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
06/11/2004
tente:
Delete(variavel,1)
ou
variavel := copy(variavel, 2, 1000)
Delete(variavel,1)
ou
variavel := copy(variavel, 2, 1000)
GOSTEI 0
Aroldo Zanela
06/11/2004
Colega,
Delete(SuaString,Posicao,Quantidade);
GOSTEI 0
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...
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
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:
[]´s,
Para ver o primeiro caracter de uma String:
Caracter1 := string[1];
[]´s,
GOSTEI 0