- 01
- 02
- 03
- 04
- 05
- 06
- 07
- 08
- 09
- 10
- 11
- 12
- 13
Procedure mes(aVal) export
Message(aVal);
endProcedure
function eqStr(a,b) export
result=false;
return ВРЕГ(TrimAll(a))=ВРЕГ(TrimAll(b));
if ВРЕГ(TrimAll(a))=ВРЕГ(TrimAll(b)) then
result=true;
endif;
mes(result);
return result;
endfunction
А потом вам вдруг понадобится сделать приложение мультиязычным. А у вас все сообщения выводятся в точке их появления. Вот вам придётся заменять все выводы на вызовы процедуры, внутри которой уже будут гетаться строки на нужном языке из какой-нибудь базы и выводиться. А так - уже полдела сделано.
> 1C
Хотя, о чём это я...
Я сначала прочитал как ВРЁТ. Код как-бы намекает нам, что автор что-то от нас скрывает...
Для локализации всё уже придумано, есть функция НСтр (в английском варианте почему-то NStr). Использовать можно в духе
Паста из официальной справки. И таки ломает местный парсер.
Что более любопытно, "сообщить" (как метод) и "сообщение" (как свойство) переведено как "message".
@bormand
Для ВРег есть английский вариант - Upper. Видимо, поцыент этого не знал, а справку открывать было лень, благо такое двуязычие возможно.