Описание функции

RepeatCharN

Повторяет указанный символ заданное число раз.

RepeatCharN(a.c, n)

Параметры

a.c Код символа, который повторить
n Число раз

Возвращаемое значение

Возвращает строку

Примечания

Аналог Space(), но вместо пробела указанный символ.

Пример

EnableExplicit

Debug LSet("A",20,"A")

Procedure.s RepeatCharN(a.c, n)
    Protected *mem, Text$
    If a = 0 Or n = 0
        ProcedureReturn ""
    EndIf
    *mem = AllocateMemory((n + 1) * 2)
    If *mem
        FillMemory(*mem , n * 2, a, #PB_Unicode)
        Text$ = PeekS(*mem)
        FreeMemory(*mem)
    EndIf
    ProcedureReturn Text$
EndProcedure

Procedure.s RepeatCharN2(a.c, n)
    Protected *mem, i, Text$, *c.Character

    If a = 0 Or n = 0
        ProcedureReturn ""
    EndIf

    *mem = AllocateMemory((n + 1) * 2)
    If *mem
        *c.Character = *mem
        For i = 1 To n
            *c\c = a
            *c + SizeOf(Character)
        Next
        Text$ = PeekS(*mem)
        FreeMemory(*mem)
    EndIf

    ProcedureReturn Text$
EndProcedure

Debug RepeatCharN( 'ы', 5)
Debug RepeatCharN(65, 8)
Debug RepeatCharN(Asc("ъ"), 3)
Debug RepeatCharN( '0', 7) + "1"