Вниз
Скачать: 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 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.028 c
9-1062909682
Micah'GF
2003-09-07 08:41
2004.03.28
TDIB => TImage


4-1074070986
alsov
2004-01-14 12:03
2004.03.28
Hook на файл


7-1073745231
Ancara
2004-01-10 17:33
2004.03.28
com-порт в WinXP


14-1077900040
Giemgo
2004-02-27 19:40
2004.03.28
Пароль на USB


6-1074066383
Kolian
2004-01-14 10:46
2004.03.28
соединение Lpt-Lpt




   Наверх