Скажите пожалуйста как этот код выделить в отдельную процедуру или функцию?

Код

h:=length(RichEdit1.Lines[RichEdit1.Lines.count-1]);         richEdit1.SelStart:=richEdit1.SelStart-h-2;         richEdit1.SelLength:=h;         richEdit1.SelAttributes.Color:=clred;         richEdit1.SelStart:=richEdit1.SelStart+h;

например на нажатие кнопки:

Код

procedure TForm1.BitBtn1Click(Sender: TObject); var   h:integer; begin   h:=length(RichEdit1.Lines[RichEdit1.Lines.count-1]);   richEdit1.SelStart:=richEdit1.SelStart-h-2;   richEdit1.SelLength:=h;   richEdit1.SelAttributes.Color:=clred;   richEdit1.SelStart:=richEdit1.SelStart+h; end;

А как к ней обращаться из программы? Так?

Код

TForm1.Button2Click();

Что писать в скобках?

если тебе чтобы этот код выполнялся по нажатию кнопки, то просто добавь кнопку на форму, найди в событиях кнопки событие OnClick, и щелкни по нему 2 раза левой кнопкой мышки. Дельфи автоматически добавит такую процедуру

Код

procedure TForm1.BitBtn1Click(Sender: TObject);     begin     end;

потом просто вписываешь между begin и end, нужный тебе код. Этот код будет выполнятся при нажатии на эту кнопку.
Чтобы вызвать этц процедуру программно, тебе нужно будет написать в коде

Код

BitBtn1Click(self);

если тебе не нужно привязывать этот код к нажатию на кнопку, то в теле формы в нужном тебе разделе(private/public) добавь строчку procedure MyProc; , потом поставь курсор на слово MyProc; и нажми Ctrl+Shift+C, и запиши свой код в тело процедуры(его создаст Дельфи после нажатия Ctrl+Shift+C)

Спасибо, мне подходит третий вариант. Процедура появилась, я записал туда код. Но когда вызываю процедуру появляется ошибка. Как ее правильно вызвать?

Пробовал разные варианты

Код

TForm1.MyProc; TForm1.MyProc(); TForm1.MyProc(self);

Цитата(Drizhenko @ 31.10.2005, 11:02)

Что писать в скобках?

Или напиши Sender например... Но это для кнопки, хотя делфи это делает автоматически...
и процедуру може не обязательно принадлежащую классу, можешь свою сделать.
Я просто не знаю что ты конкретно хочешь, поэтому однозначно не могу сказать...
Добавлено @ 10:50
Вот в качестве варианта те ещё один пример:

Код

procedure MyProc(); var   h:integer; begin   With Form1 do     begin       h:=length(RichEdit1.Lines[RichEdit1.Lines.count-1]);       richEdit1.SelStart:=richEdit1.SelStart-h-2;       richEdit1.SelLength:=h;       richEdit1.SelAttributes.Color:=clred;       richEdit1.SelStart:=richEdit1.SelStart+h;     end; end; procedure TForm1.BitBtn1Click(Sender: TObject); begin   MyProc(); end;

ПОНЯЛ вот правильный вариант

Код

MyProc();

СПАСИБО!!!!

У меня возник еще вопрос. Скажите как сделать, чтобы входными данными для процедуры MyProc() были цвет шрифта, например clred или clblack.
То есть чтобы менялся параметр Color

Код

richEdit1.SelAttributes.Color:=Цвет;

Если исходить из моего примера, то добавь в заголовок имя цвета:

Код

procedure MyProc(cvet: integer); ......

А вызывай потом так:

Код

MyProc(<цифра соответствующая цвету>);

Добавлено @ 11:33
Т.е. в процедуре MyProc, это будет так:

Код

richEdit1.SelAttributes.Color:= cvet;

Проблема здесь в том, что цвета пишутся в шестнадцатирияном коде, то есть красный цвет имеет значение ff0000. Как быть с этим?
В одной статье прочитал, что есть тип данных colors, но что-то у меня не получается с ним.

Цитата(Drizhenko @ 31.10.2005, 12:39)

В одной статье прочитал, что есть тип данных colors, но что-то у меня не получается с ним.

А что за тип то, цвет ─ это есть номер в стандартной палитре цветов.
Как то можно преобразовывать из 16-ричной системы, но ща не помню блин...
А зачем вообще его в 16-ричную запихивать, чем СС10 не нравится то???

Что за СС10? В любом случае это не integer.

Код

procedure MyProc(cvet: TColor);

Спасибо, я кстати нашел альтернативный вариант

Процедура

Код

procedure MyProc(cvet: integer); ... richEdit1.SelAttributes.Color:= cvet; ...

Вызов процедуры

Код

MyProc(StrToInt('$'+'ff0000')

Цитата(Drizhenko @ 31.10.2005, 12:56)

MyProc(StrToInt('$'+'ff0000')

Так проще:

Код

MyProc($ff0000); // или MyProc(clBlue);