Табуляция в 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]

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