Analitcs

Pesquisar no conteúdo do blog.atlabs.com.br

quarta-feira, 31 de outubro de 2012

DELPHI - Retornando Texto com valores separados por caractere delimitador (CommaText)

Reações: 
Function GetCommaText(S, Delimiter : String; ColumnIndex : Integer) : String;
var
  StrL : TStringList;
begin
  StrL := TStringList.Create;
  try
    StrL.Text := StringReplace(S, Delimiter, #13#10, [rfReplaceAll, rfIgnoreCase]);
      if StrL.Count <= ColumnIndex then
      Result    := ''
      else
      Result    := StrL.Strings[ColumnIndex];
  finally
    FreeAndNil(StrL);
  end;
end;

(* Usando a função

 Adicionar 3 Edits com os nomes de EdtV1, EdtV2, EdtV3 e um botão, com o evento de onclick conforme abaixo*)

procedure TForm1.Button1Click(Sender: TObject);
Const
  S = 'TextoColuna1;TextoColuna2   ;   TextoColuna3';
begin
  EdtV1.Text := GetCommaText(S, ';', 0);
  EdtV2.Text := GetCommaText(S, ';', 1);
  EdtV3.Text := GetCommaText(S, ';', 2);
end;

Nenhum comentário:

Postar um comentário

Observação: somente um membro deste blog pode postar um comentário.

Max Gehringer