Текущий архив: 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.01 c
