String > Array
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; |
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; |