Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.03.28;
Скачать: CL | DM;

Вниз

Команды   Найти похожие ветки 

 
Серёга   (2004-03-10 18:12) [0]

Здравствуйте! Хотел узнать вот такую вещь: есть у меня например Memo1 и Edit1. Если пользователь вводит в Edit "Memo1.lines.clear"-memo очищается, "memo1.lines.loadfromfile("1.txt")" - происходит загрузка в Memo файла ? Происходит как бы выполнение команд.


 
M@D ©   (2004-03-10 18:17) [1]

Введи константы
Memo1.lines.clear
memo1.lines.loadfromfile("1.txt")
и при нажатии на кнопку, обработай соостетствующим образом.
Типа
for i := 0 to High(const) do
 if const[0] then
   Memo1.lines.clear


и тд


 
M@D ©   (2004-03-10 18:20) [2]

соостетствующим
Сам удивился...


 
Серёга   (2004-03-10 18:54) [3]


> Введи константы
> Memo1.lines.clear
> memo1.lines.loadfromfile("1.txt")
> и при нажатии на кнопку, обработай соостетствующим образом.
> Типа
> for i := 0 to High(const) do
>  if const[0] then
>    Memo1.lines.clear
>
> и тд

Всё дело в том, что я заранее не знаю какие команды будет вводить пользователь (их много). И ввод констант будет добавлять лишний размер программе.


 
Гаврила   (2004-03-10 19:01) [4]

>>Серёга   (10.03.04 18:54) [3]
Встроенной в сам pascal такой возможности нет

Команды - только для операций с TMemo ?
В таком случае констант будет ограниченное количество, и увеличение размера программы за их счет будет намного меньше, чем увеличение размера программы за счет прикомпиляции паскалевского интерпретатора, которые, кстати, еще и в основном платные.
Для сравнения введенного текста с константой хорошо подойдет функция MatchesMask, для извлечения параметра (типа FileName при loadfromfile) придется немного пропарсить



Страницы: 1 вся ветка

Текущий архив: 2004.03.28;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.045 c
3-1077683639
Scorpion
2004-02-25 07:33
2004.03.28
Midas сервер с использованием ADO и COM


14-1077780780
d10
2004-02-26 10:33
2004.03.28
Математика v0.5, полезная прога для студентов


14-1078160755
Yorick
2004-03-01 20:05
2004.03.28
Soft для Siemens A60


11-1056821442
mox
2003-06-28 21:30
2004.03.28
Incompatible types: TEditOptions and TEditOption


3-1077175446
Rumba
2004-02-19 10:24
2004.03.28
Как задать внешний файл?