[davin4u]

Привет, возможно кто то интерисовался подобным:
есть RichEdit в него вводится текст, если введено ключевое слово то оно окрашивается в заданный цвет, вот код:

Код:

1 2 3 4 5

Form1.RichEdit1.SelStart:= pos(CurrentWord,Form1.RichEdit1.Lines[0])-1; Form1.RichEdit1.SelLength:=Length(CurrentWord);//в CurrentWord хранится последнее введенное слово, т.е. текст от пробела до пробела Form1.RichEdit1.SelAttributes.Color:= HColor; Form1.RichEdit1.Lines.Add(CurrentWord); Form1.RichEdit1.SelAttributes.Color:=clBlack;

Как я понял тут SelStart-это положение с которого начинается выделение
SelLength-это длина выделения, ну SelAttributes.Color это понятно цвет. А вот со следующей строкой проблема, Form1.RichEdit1.Lines.Add(CurrentWord) осуществляет переход на следующую строку и добавляет текст из переменной CurrentWord, при этом получается примерно следующее:

Код:

1 2	текст текст текс <font color="Blue">CurrentWord</font> <font color="Blue">CurrentWord</font>

А мне нужно чтобы просто мой текст CurrentWord окрасился без перехода на следующую строку. Кто знает подскажите плиз, буду очень благодарен

[davin4u]

Ладно с этим сам разобрался уже, появилась другая проблема...

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26

type     TPositionArray=array[1..100] of integer;   var     PositionArray:TPositionArray;     Function Position(line,key:string):TPositionArray;   Function Position(line,key:string):TPositionArray; var i:integer; begin   i:=1;   while pos(key,line)<>0 do     begin       Result[i]:=pos(key,line);       delete(line,pos(key,line),length(key));       inc(i);     end; end;   procedure TForm1.Button1Click(Sender: TObject); var str1,str2:string; begin   str1:='text some some some text some';   str2:='str';   PositionArray:=Position(str1, str2); end;

При компиляции подсвечивает строку PositionArray:=Position(str1, str2); две ошибки на строке, одна missing operator or semicolon, другая Incompatible types: 'TPositionArray' and 'TPosition'. Не пойму в чем дело, похожую задачу решал, использовал точно такой же метод, все делал так же и работало... Не подскажите что может быть?

[AlexSku]

Во-первых, под var вторую строку надо убрать, т.к. она дублируется
(Function Position(line,key:string):TPositionArray), во-вторых, Position - это свойство формы, лучше изменить название (напр., MyPosition)

[davin4u]

Код:

1 2	var        Function Position(line,key:string):TPositionArray;

Это надо т.к. моя функция в отдельном юните и без объявления ее не видно из других юнитов программы.