Fórum Capturar os caracteres à esquera ou a direita #373019
01/08/2009
0
Como faço para capturar os 2 primeiros caracteres à esquerda ou à direita de uma string?
Luiz
L_carlos
Curtir tópico
+ 0Posts
01/08/2009
Carlosrm
uma das maneiras:
procedure TForm1.Button1Click(Sender: TObject);
var
s, esq, dir : string;
begin
s := ´caixa de correio´;
esq := copy(s,1,2); // ´ca´
dir := copy(s, length(s) -1, 2); // ´io´
showmessage(´esquerda : ´+esq+chr(13)+#13+
´direita : ´+dir);
end;
Dependendo do que vc quer fazer, pode ser mais rápido simplemesmente eliminar o conteúdo entre os extremos, usar uma função, etc.
Espero ter ajudado.
carlosrm
Gostei + 0
01/08/2009
Marco Salles
procedure TForm1.Button1Click(Sender: TObject);
var
s, esq, dir : string;
begin
s := ´caixa de correio´;
esq := s[1] + S[2]; // ´ca´
dir := s[length(s-1)]+ s[length(s)]+;; // ´io´
showmessage(´esquerda : ´+esq+chr(13)+13+
´direita : ´+dir);
end; Lembrando que no delphi2009 temos uma nova ´visão´ de String ;;;;
Gostei + 0
01/08/2009
Carlosrm
tudo bem?
Comecei a experimentar o BDS2006 recentemente. Valeu pela dica das strings do 2009. Vou pesquisar o assunto. Obrigado.
Abraço.
carlosrm
Gostei + 0
02/08/2009
L_carlos
Luiz
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)