Из строки в массив (String --> Array)

Delphi , Синтаксис , Массивы

Из строки в массив (String --> Array)

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;

Статья Из строки в массив (String --> Array) раздела Синтаксис Массивы может быть полезна для разработчиков на Delphi и FreePascal.

Комментарии и вопросы

Материалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта.

:: Главная :: Массивы ::

Время компиляции файла: 2024-04-24 22:55:34
2024-04-26 00:30:42/0.0028228759765625/0