Capturar os caracteres à esquera ou a direita

Delphi

01/08/2009

Olá,

Como faço para capturar os 2 primeiros caracteres à esquerda ou à direita de uma string?

Luiz


L_carlos

L_carlos

Curtidas 0

Respostas

Carlosrm

Carlosrm

01/08/2009

L_CARLOS,

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
Marco Salles

Marco Salles

01/08/2009

Outra Maneira

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
Carlosrm

Carlosrm

01/08/2009

Marcos Salles,

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
L_carlos

L_carlos

01/08/2009

Vlw pessoal, os 2 modos funcionam.

Luiz


GOSTEI 0
POSTAR