Вниз
Скачать: 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.023 c
1-1078988895
Thick
2004-03-11 10:08
2004.03.28
Динамическое создание визуальных компонентов


3-1077629735
Desdechado
2004-02-24 16:35
2004.03.28
Странное поведение в TClientDataset


3-1077905870
Zilog
2004-02-27 21:17
2004.03.28
расчеты на основе данных из базы данных. SQL.


8-1068309751
g-l-u-k
2003-11-08 19:42
2004.03.28
TActiveMovie


8-1069309640
DAndrew
2003-11-20 09:27
2004.03.28
Как осуществить "заворачивание" слов в TextOutW или ExtTextOut W?




   Наверх