Fórum Como tirar o primeiro caracter de uma string de 13 caractere #257438
06/11/2004
0
O4pr3ndiz
Curtir tópico
+ 0Post mais votado
10/11/2004
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
Anderson Silva
Gostei + 1
Mais Posts
06/11/2004
Gilvanj
Delete(variavel,1)
ou
variavel := copy(variavel, 2, 1000)
Gostei + 0
06/11/2004
Aroldo Zanela
Delete(SuaString,Posicao,Quantidade);
Gostei + 0
06/11/2004
Otorquati
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
08/11/2004
Inutaishou
Para ver o primeiro caracter de uma String:
Caracter1 := string[1];
[]´s,
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)