Retorna o primeiro caractere da string passada ao parâmetro S.
function FirstChar(S:String):String;begin
Result:=copy(S,1,1);end;
Usando :
procedure TForm1.BitBtn25Click(Sender: TObject);begin
ShowMessage(FirstChar(Edit2.Text));end;
Nenhum comentário:
Postar um comentário