Copiar parte de string (LeftStr ou RightStr)

Fala galera beleza ?

To passando hoje pra deixar mais uma dica de função do Delphi para copiar parte de uma string a partir do seu início ou do seu fim, sabendo apenas a quantidade de caracteres que devem ser copiados.

Vou deixar abaixo um exemplo e o vídeo de como trabalhar com a função. (Post e vídeo utilizando o mesmo exemplo)

No exemplo a função será implementada no evento OnClick do botão, mas fica a critério do desenvolvedor escolher onde melhor ela se encaixa no seu código.

Para trabalharmos com as funções LeftStr e RightStr, devemos declarar a Unit System.StrUtils, no nosso form.

procedure TForm.Button1Click(Sender : TObject);
var
AuxStr, AuxLeft, AuxRight: string;
begin
AuxStr := ‘Canal Desenvolvedor Delphi’;
AuxLeft := LeftStr(AuxStr, 5); //Copiará 5 caracteres da Esquerda pra direita da string, ou seja, a palavra Canal’
AuxRight := RightStr(AuxStr, 6); // Copiará 6 caracteres da Direita pra esquerda da string, ou seja, a palavra Delphi

Showmessage(‘Left: ‘ + AuxLeft + sLineBreak + ‘Right: ‘ + AuxRight);
end;