Array
(
)

Ref.: Convertendo String em Array String

Jair A.n.
   - 30 nov 2009

Poderia por favor me informar como faço para converter uma "String" com dados separados por "," em um Array de String Exemplo: strMetais = "Ferro, Cobre, Alumínio, Ouro"; em strMetal[0] = "Ferro", strMetal[1] = "Cobre" etc.
e como faço o inverso, de um Array de string para a String?
Grato...

Jair A.n.
   - 03 dez 2009

Bem acabei por criar uma função, mas acredito que exista uma função já no Delphi para isso, caso alguém mais precise

type StringArray = array of string;
 
Function funcStringToArray(strConverte: String; Const chrDelimita: Char) : StringArray;
Var
  lstString: TStringList;
  IntCnt: Integer;
Begin

  lstString := TStringList.Create;
  Assert(Assigned(lstString));

  lstString.Clear;
  lstString.Delimiter := chrDelimita;
  lstString.DelimitedText := Trim(strConverte);
  SetLength(Result, lstString.Count);

  For IntCnt := 0 To lstString.Count -1 Do
   Result[IntCnt] := lstString.Strings[IntCnt];

End;