Fórum Como colocar valores de um Memo dentro de um array #428994

unit Unit2;

interface

uses
  Generics.Collections;

type
  TUsefulMethods = class
  public
    {
      Passa para parametro o texto e uma array como variável.
      Se retornar uma string, significa que ocorreu erro durante o processo
    }
    class function SetTextToArray(Text: WideString; var TheArray: array of string): string;
  end;

implementation

uses
  SysUtils;

{ TUsefulMethods }

class function TUsefulMethods.SetTextToArray(Text: WideString; var TheArray: Array of string): string;
var
  TextLength: Integer;
  I: Integer;
begin
  Result := '';

  // obtem o tamanho do texto
  TextLength := Length(Text);

  try
    // se a array ja tiver tamanho menor que o text, define o tamanho exato para a array dinamica.
    if (Length(TheArray) < TextLength) then
      SetLength(TheArray, TextLength);
  except
    on E: Exception do
      Result := 'Erro ao tentar definir novo tamanho à array.'+#13+'Erro: '+E.Message;
  end;

  // percorre cada char do texto
  try
    for I := 0 to TextLength - 1 do
      TheArray[I] := Text[I];
  except
    on E: Exception do
      Result := 'Erro ao tentar efetuar a conversão do tipo de dado!'+#13+'Erro: '+E.Message;
  end;
end;

end.

Var
  arr : Array of string;
  i : Integer;
  sTexto : String;
begin
  sTexto := Trim(Memo1.Lines.Text);
  if Length(sTexto) <= 0 then
    Exit;
  SetLength(arr,Length(sTexto));
  for i := 1 to Length(sTexto) do
    arr[i-1] := sTexto[i];
end;

  for i := 0 to Length(arr) -1 do
    ShowMessage(arr[i]);