Ref.: Convertendo String em Array String
30/11/2009
0
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...
e como faço o inverso, de um Array de string para a String?
Grato...
Jair N.
Curtir tópico
+ 0
Responder
Posts
03/12/2009
Jair N.
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;
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;
Responder
Clique aqui para fazer login e interagir na Comunidade :)