дельфий создания внутренего скрипта

[benjaminfran]

Вопрос по созданию скриптор во внутри програмы уменя мемо я уже составил свой язык скриптов и знаю что каждое слова скрипта будет выполнять вот пример butvi бутон висибле
тоесть я должен написать в мемо

butvi

Запускаю скрипт и кнопка остановки скрипта исчезла) как риализовать
масимум чегоя добился иследованием

begin 
memo1.text='butvis1:f' then button2.visible:=false;
{тут я уже незнаю что делать еси я напишу так}
memo1.text='butvis2:f' then button3.visible:=false;
{то при выполнении когда я начну выполнять програму я не напишу скрипт а получится что
  еси я наишу в одной строке то в другой это  и нажму бутон то тут сработает else}
else label1.caption:='Errr'
end;
end.

Мне непонятно это как сделать чтобы после клика по кнопке старта бутона чтобы прога читала каждую трочку текста написаного в мемо а не весь текст одним разом!(дайте пример плиз)))оч благодарен буду

так всё сделал вот такой вопрос

procedure TForm1.Button1Click(Sender: TObject);
begin
if memo1.Lines.Strings[0]='1' then label1.caption:='1'
end;

end.

как сделать чтобы в Strings было с 1 по 1000 пробывал

if memo1.Lines.Strings[0-1000]='1' then label1.caption:='1'

непашет
пробывал так

if memo1.Lines.Strings[0>1000]='1' then label1.caption:='1'

кричит что тут болеан а не интегер! что делать подскажите плиз

НАдо чтоб всё поисходило циклом и читало каждую строчку вот я во втором посте написал но как реализовать?

From Stilet: Вообще то есть кнопка редактирования сообщения, нечего плодить несколько сообщений подрят

[mihali4]

Цикл по индексу строки:

for i:=0 to 1000 do
begin
if memo1.Lines.Strings[i]='1' then label1.caption:='1' else
...
end;

Вы хоть какую-нибудь книжку для начинающих скачайте с сайта форума - все легче будет.
(Ссылка на каждой странице в самом низу "Клуб программистов Delphi")

[benjaminfran]

ошибка устранена но как сделать чтобы скрипт выполнялся по порядку! именно сначало строка1 потом строка 2 потом три

[mihali4]

А такой вариант не спасет отца русской демократии?

for i:=0 to 1000 do   
begin   
temp:=memo1.Lines.Strings[i];
k:=Pos('butvis',temp);
m:=Pos(':',temp);
if (k>0) and (m>0) then
begin
n:=Copy(temp,k+6,m-k-6);
mybut:=FindComponent('Button'+IntToStr(n));
if mybut<>nil then
begin
if temp[m+1]='f' then
(mybut as TButton).Visible:=False else
(mybut as TButton).Visible:=True;
end;
end else   
...   
end;

(Если вдруг посмеют возникнуть вопросы типа "а как это", "а почему", "а зачем", то ответы на них - в нижних строках поста N4)

[FaTaL]

mihali4
n:=Copy(temp,k+6,m-k-6); //Здесь n как string
mybut:=FindComponent('Button'+IntTo Str(n)); //А здесь тогда в чем подвох? n же не integer ????

[Stilet]

А здесь тогда в чем подвох?

Видно Михалыч имел ввиду не "n" а "m"

[mihali4]

Да нет, действительно N - строковая. Подправил.
Просто писал, уже засыпая на ходу...