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

Вниз

Табуляция в Memo.   Найти похожие ветки 

← →
TRESDA   (2003-04-28 14:42) [0]

Табуляция в Memo. Здравствуйте дорогие -=МАСТЕРА=-, у меня текст программы на Паскале загружается в Memo, в котором надо найти все begin и end и соответственно перед каждым begin"ом и end"ом поставить отступ (один Tab). Мой поиск находит только первый begin и останавливается. Заранее благодарен!!!

---

← →
jel ©   (2003-04-28 14:44) [1]

а где код?

---

← →
ДЮША   (2003-04-28 15:26) [2]

Вот код кнопки, при нажатии на которую название переменной из Edit1 ищется в Memo1. Получается такой казус, что ищется только первая попавшаяся переменная введенная в Edit"е, дальше поиск не идет

procedure TForm1.BitBtn2Click(Sender: TObject);
var selpos:integer;
slovo:string;
begin
if (memo1.Text="") or (edit1.Text="") then
messagedlg("

---

← →
TRESDA   (2003-04-28 15:27) [3]

Вот код кнопки, при нажатии на которую название переменной из Edit1 ищется в Memo1. Получается такой казус, что ищется только первая попавшаяся переменная введенная в Edit"е, дальше поиск не идет

procedure TForm1.BitBtn2Click(Sender: TObject);
var selpos:integer;
slovo:string;
begin
if (memo1.Text="") or (edit1.Text="") then
messagedlg("

---

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

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

Наверх

Память: 0.47 MB
Время: 0.021 c