Buscar por:

Função para obter os termos de uma string

Código

Função para obter os termos de uma string

function ObterTermo(APosicao: Integer; ASeparador,ALinha: String): String;

var

  sAux: TStringList;

begin

  Result:='';

  sAux:=TStringList.Create;

  sAux.Text:=StringReplace(ALinha,ASeparador,#13#10,[rfReplaceAll, rfIgnoreCase]);

  if APosicao <= sAux.Count then

    Result:=sAux.Strings[APosicao-1];

  sAux.Free;

end;

Utilização:

 ObterTermo(2, ':', 'Abc:Def:Ghi'); retornará 'Def'

Obs: Não compatível com Delphi 3 - (Função somente testada em Delphi 6)