Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Клуб программистов > Свободное общение
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 09.09.2007, 17:43   #1
vitalik007
Дельфист
Форумчанин
 
Аватар для vitalik007
 
Регистрация: 14.08.2007
Сообщений: 317
По умолчанию язык программировния

хочу написать самый простой язык программирования!!
чтоб в memo вводить команды и компилятор delphi их выполнял
надо чтоб команды выполнялись поочердно.
как мне это сделать???
ICQ-465033557
WINDOWS CE THE BEST
vitalik007 вне форума Ответить с цитированием
Старый 09.09.2007, 19:04   #2
ZMeJ
шарящий
 
Регистрация: 09.09.2007
Сообщений: 9
По умолчанию

написать интерпритатор - общий ответ.
а вообще - что за задача? неужели нельзя проще реализовать?
ZMeJ вне форума Ответить с цитированием
Старый 09.09.2007, 19:28   #3
vitalik007
Дельфист
Форумчанин
 
Аватар для vitalik007
 
Регистрация: 14.08.2007
Сообщений: 317
По умолчанию

мне надо например прога которая читала каждую строку memo
и например в первой строке написана команда message тогда вывести
showmessage
и так по порядку обрабатывать каждую строку
до конца
ICQ-465033557
WINDOWS CE THE BEST
vitalik007 вне форума Ответить с цитированием
Старый 09.09.2007, 19:40   #4
ZMeJ
шарящий
 
Регистрация: 09.09.2007
Сообщений: 9
По умолчанию листинг

var sPos:string;
begin
for i:=0 to memo1.lines.count-1 do
begin
if pos('message',memo1.lines[i])=1 then
begin
sPos:=memo1.lines[i];
delete(sPos,1,8); //+ пробел
ShowMessage(sPos);
end;
if ...
if...
end;
end;

Последний раз редактировалось ZMeJ; 09.09.2007 в 19:44. Причина: ошибочный ввод
ZMeJ вне форума Ответить с цитированием
Старый 09.09.2007, 19:42   #5
ZMeJ
шарящий
 
Регистрация: 09.09.2007
Сообщений: 9
По умолчанию

var sPos:string;
begin
for i:=0 to memo1.lines.count-1 do
begin
if pos('message',memo1.lines[i])=1 then
begin
sPos:=memo1.lines[i];
delete(sPos,1,8); //+ пробел
ShowMessage(sPos);
end;
if ...
if...
end;
end;
ZMeJ вне форума Ответить с цитированием
Старый 10.09.2007, 13:10   #6
Ring0Sn
Форумчанин
 
Аватар для Ring0Sn
 
Регистрация: 06.09.2007
Сообщений: 239
По умолчанию

лови пример
кодинг не мой, источники непомню )..., разбирайся сам !
Вложения
Тип файла: zip script_engine.zip (3.7 Кб, 25 просмотров)
Ring0Sn вне форума Ответить с цитированием
Старый 10.09.2007, 14:06   #7
JTG
я получил эту роль
Старожил
 
Аватар для JTG
 
Регистрация: 25.05.2007
Сообщений: 3,694
По умолчанию

Класс TParser нормальная заготовка для скриптового движка + "с рождения" умеет с математикой работать
пыщь
JTG вне форума Ответить с цитированием
Старый 10.09.2007, 14:10   #8
vitalik007
Дельфист
Форумчанин
 
Аватар для vitalik007
 
Регистрация: 14.08.2007
Сообщений: 317
По умолчанию

а где его найти
ICQ-465033557
WINDOWS CE THE BEST
vitalik007 вне форума Ответить с цитированием
Старый 10.09.2007, 14:16   #9
JTG
я получил эту роль
Старожил
 
Аватар для JTG
 
Регистрация: 25.05.2007
Сообщений: 3,694
По умолчанию

TParser? Да где угодно. В справке глянь.

http://main.soobcha.org/delphin/058.html
http://rsdn.ru/article/files/Classes/tparser.xml
http://articles.org.ru/cfaq/index.ph...mostrecent=yes
...
и вот )
http://www.mirgames.ru/articles/base/tparser.html
пыщь
JTG вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
казахский язык Алёна Общие вопросы Delphi 11 18.11.2010 14:35
Язык SunKnight Общие вопросы Delphi 9 29.02.2008 20:16
Русский язык [Smarik] Паскаль, Turbo Pascal, PascalABC.NET 7 01.02.2008 22:58
РУССКИЙ ЯЗЫК vicdon Паскаль, Turbo Pascal, PascalABC.NET 3 19.11.2007 14:34