Можно ли оптимизировать этот кусок кода? Точнее, неплохо бы уменьшить его в размерах. Просится цикл сюда, но чего то не хватает ума его сюда вставить.
Код:
Procedure encod(a1.s, a2.s, a3.s, a4.s, a5.s, a6.s, a7.s)
If OpenFile(1, "BIR.ini")
enc.s=Space(1024)
Base64Encoder(@a1, StringByteLength(a1), @enc, 1024)
WriteStringN(1, enc)
enc=Space(1024)
Base64Encoder(@a2, StringByteLength(a2), @enc, 1024)
WriteStringN(1, enc)
enc=Space(1024)
Base64Encoder(@a3, StringByteLength(a3), @enc, 1024)
WriteStringN(1, enc)
enc=Space(1024)
Base64Encoder(@a4, StringByteLength(a4), @enc, 1024)
WriteStringN(1, enc)
enc=Space(1024)
Base64Encoder(@a5, StringByteLength(a5), @enc, 1024)
WriteStringN(1, enc)
enc=Space(1024)
Base64Encoder(@a6, StringByteLength(a6), @enc, 1024)
WriteStringN(1, enc)
enc=Space(1024)
Base64Encoder(@a7, StringByteLength(a7), @enc, 1024)
WriteStringN(1, enc)
CloseFile(1)
EndIf
EndProcedure
Это на меня наверно такие вещи действуют: @a @enc.
