Como obter uma substring de uma string

*Fonte Arquivo de Códigos

Em algumas situações precisamos obter uma substring de uma string. Em Delphi isso pode ser feito por meio da função AnsiMidStr(). Esta função requer a string a partir da qual a substring será obtida, a posição inicial da substring (começando em 1) e a quantidade de caracteres que comporâo a substring. O retorno será uma nova string contendo a substring obtida. Veja o exemplo:

procedure TForm1.Button1Click(Sender: TObject);

var

  frase, substring: string;

begin

  frase := 'Programar em Delphi é muito bom';

  // vamos obter a substring "Delphi"

  substring := AnsiMidStr(frase, 14, 6);

  // vamos exibir o resultado

  ShowMessage('Resultado: ' + substring);

end;

Não se esqueça de adicionar a unit StrUtils no uses do seu formulário.

Para questões de compatibilidade, esta dica foi escrita usando Delphi 2009.