Como pegar o 1º caractere de uma string?!

Delphi

07/07/2004

Como pegar o primeiro caractere de um text digitado em um editbox por exemplo?!

Obrigado!


Teodorhfb

Teodorhfb

Curtidas 1

Respostas

Macsousa

Macsousa

07/07/2004

coloquei um botao e um edit em um formulario

procedure TForm1.Button1Click(Sender: TObject);
var
  PrimeiraLetra : string;
begin
  PrimeiraLetra := Copy(Edit1.Text,1,1);
  ShowMessage(PrimeiraLetra);
end;


espero q ajude


GOSTEI 0
Eniorm

Eniorm

07/07/2004

Uma forma mais simples, mas pega apenas uma letra por vez:

var
    nome : string;
begin
   nome := ´fulano de tal´;
   letra1 := nome[1];
   letra2 := nome[2];
   ...
   letraN := nome[n];
(...)


T+


GOSTEI 0
POSTAR