[Taemin]

Доброго времени суток! Меня зовут Виталий, я только учусь программировать посредством Delphi. Сейчас пытаюсь научиться искать слова в компоненте TMemo и оперировать ими.

Моя рабочая программа:
http://filestore.com.ua/?d=94AC1EA24

В Memo находится текст, программа умеет находить строку с нужным мне словом, копировать её в переменную, выделять определенные циферки, которые я использую в своей формуле, ну и в конце – вывести результат посредством ShowMessage.

Программа состоит всего из одной процедуры:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27

procedure TForm1.btn2Click(Sender: TObject); var   i: Word;   s,firstznach,secondznach,celayastroka,poi: string;   zaq,zaw: Integer;   xsw: Real;     begin   for i:=0 to mmo1.Lines.Count-1   do     if pos('STOPPAGE',mmo1.Lines.Strings[i])>0     then     celayastroka:=mmo1.Lines.Strings[i];       firstznach:=Copy(celayastroka,1,3);     secondznach:=Copy(celayastroka,4,3);       zaq:=StrToInt(firstznach);     zaw:=StrToInt(secondznach);       xsw:=(zaq*255)+(zaw/2+1);       poi:=FloatToStr(xsw);       ShowMessage(poi);   end; end.

Не судите строго

Теперь немного о том, что мне необходимо. Хотелось бы чтобы в случае else моя процедура ждала несколько секунд, допустим посредством sleep(1000) и переходила в свое начало, тоесть грубо говоря – продолжала поиск слова даже если его нет… это необходимо, поскольку в последующем этапе планирую реализовать загрузку разного текста в TMemo. И очень хотелось бы, чтобы процедура начинала свою работу с момента запуска программы… существует ли такое событие в Delphi? Заранее спасибо за ответы! С уважением Виталий.