Code:

Procedure AssignFixedString( Var FixedStr: Array of Char; Const S: String

);

Var

maxlen: Integer;

Begin

maxlen := Succ( High( FixedStr ) - Low( FixedStr ));

FillChar( FixedStr, maxlen, ' ' ); { blank fixed string }

If Length(S) > maxlen Then

   Move( S[1], FixedStr, maxlen )

Else

   Move( S[1], FixedStr, Length(S));

End;

Code:

function StrToArrays(str, r: string; out Temp: TStrings): Boolean;

var

j: integer;

begin

if temp <> nil then

begin

   temp.Clear;

   while str <> '' do

   begin

     j := Pos(r,str);

     if j=0 then

       j := Length(str) + 1;

     temp.Add(Copy(Str,1,j-1));

     Delete(Str,1,j+length(r)-1);

   end;

   Result:=True;

end

else

   Result:=False;

end;