Como pegar o 1� caractere de uma string?!

Question

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

Macsousa · Answer

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

Eniorm · Answer

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+