Вопрос № 177836: Доброго времени суток Ссылка на проект http://slil.ru/28949320 (400 Кбайт) Возник небольшой вопрос: Имеется программа, предназначенная для лексического разбора текста на JAVA скрипт , которая затем переводит его в выходной язык фортран. П...
Вопрос № 177836:
Доброго времени суток Ссылка на проект http://slil.ru/28949320 (400 Кбайт) Возник небольшой вопрос: Имеется программа, предназначенная для лексического разбора текста на JAVA скрипт , которая затем переводит его в выходной язык фортран. Программа состоит из трех вкладок : 1-я вкладка Лексический анализатор- производит лексический разбор кода из открытого файла с расширением js, 2-я вкладка ОПЗ - отображает перевод разобанного текста в обратную польскую запись 3-я вкладка ЛР3 Отображает
перевод в выходной язык фортран(код для этой вкладке находится в файле TranslateToC.inc ) --------------------------------------------------------------------------------------------------------------- Вопрос: необходимо чтобы при разборе любой программы в конец поля mC(MEMO) для 3-й вкладки ЛР3(код для этой вкладке находится в файле TranslateToC.inc ) в конце добавлялись две строки такие:
STOP END ------- пробовал п
росто дописывать перед последним end; в коде mC.Lines.Strings[i]:='STOP'; но при этом выводится не только в последней строке
Отвечает Евгений/Genia007/, Бакалавр :
Здравствуйте, Иванов Руслан Иванович. Для этого надо в в файле TranslateToC.inc добавить в процедуру нажатия кнопки "Произвести разбор в Си" две строки: mC.Lines.Add('STOP'); mC.Lines.Add('END');
Код:
//Процедура Нажатия кнопки "Произвести разбор
в Си" procedure Tf.btTranslateToCClick(Sender: TObject); var i, j : integer; str : string; lex : Str20; z : integer; begin z:=0; for i:=0 to (mInRPR.Lines.Count-1) do begin str:=''; str:=mInRPR.Lines.Strings[i]; j:=1; while j <= length(str) do begin lex:=SubStr(j, str); TranslateToC(lex,z); end; //for j... end; //for i...
* Стоимость одного СМС-сообщения от 7.15 руб. и зависит от оператора сотовой связи.
(полный список тарифов)
** При ошибочном вводе номера ответа или текста #thank услуга считается оказанной, денежные средства не возвращаются.
*** Сумма выплаты эксперту-автору ответа расчитывается из суммы перечислений на портал от биллинговой компании.