I'm lazy, I'd do it via a TStringList :-) MyStringList := TStringList.Create; MyStringList.Text := MyStringField.AsString;
SetLength(MyArray, MyStringlist.Count); For i := 0 To MyStringList.Count-1 Do MyArray[i] := MyStringList[i]; MyStringList.Free; In fact, I'd use a TStringList at both ends of the code, and not use an Array Of String at all... I like it when other code does my work for me :-) Mike
-- _______________________________________________ Lazarus mailing list [email protected] http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus
