Uses Unit SysUtils
A função AnsiStrLastChar retorna o último caractere de string do tipo Pchar passada como parâmetro.
Sintaxe da sua utilização:
AnsiStrLastChar(Pchar(Texto));
Ex:
procedure TForm1.BitBtn12Click(Sender: TObject);begin
ShowMessage(AnsiStrLastChar(PChar('Márcio\'))); //Retorna \
end;
ShowMessage(AnsiStrLastChar(PChar('Márcio\'))); //Retorna \
end;
Nenhum comentário:
Postar um comentário