Форум: "Основная";
Текущий архив: 2003.05.12;
Скачать: [xml.tar.bz2];
ВнизТабуляция в 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;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.005 c