A>>int _имя_функции_()
A>> {
A>>  return 0;
A>> }
 
A>>int main(int argc, char* argv[])
A>>{
A>>  int _имя_переменной_ = _имя_функции_();;
A>>  _имя_переменной_++;
A>>  return 0;
A>>}
A>>

Процедура ЗапуститьВнешнююКомпоненту() Экспорт
    // проверяем наличие файла в каталоге программы
    Если Не обПроверитьФайлКомпоненты() Тогда
        ЗавершитьРаботуСистемы(Ложь);
    КонецЕсли;
    Попытка
        ЗагрузитьВнешнююКомпоненту("lib.dll");
        Компонента = Новый("AddIn.Lib");
    Исключение
        Сообщить("Ошибка загрузки Файла ""lib.dll""|"+ОписаниеОшибки(),СтатусСообщения.Важное);
        Возврат;
    КонецПопытки;        
КонецПроцедуры //ЗапуститьВнешнююКомпоненту()

C>>О боже, бред какой

VAS>Этот бред в 1C релизован , только там некое подобие байсика переведено, из-за этого ей не стал заниматся .

VAS>Господи, хорошо что билдер такого не позволяет , и надеюсь ни когда не позволит.

Function XOR(Val ParA, Val ParB)
    Res = 0;
    Koef = 1;
    For BitNumber = 1 To 8 Do
        BitA = ParA % 2;
        BitB = ParB % 2;
        ParA = Int(ParA / 2);
        ParB = Int(ParB / 2);
        BitC = (BitA + BitB) % 2;
        Res = Res + BitC * Koef;
        Koef = Koef * 2;
    EndDo;  
    Return Res;
EndFunction

AL>Гм, почитал я тему, решил проверить. Как оказалось, Студия-2008 уже компилит и без "_" перед идентификаторами

procedure TForm1.Button1Click(Sender: TObject);
var
  переменная: Integer;

begin
  переменная:= 1;
  ShowMessage(IntToStr(переменная));
end;