把下面的定義為函式，需要兩個 值！不會表達！一個為字串，一個為顏色！
[Delphi] 純文本查看 復制代碼
var
FoundAt: LongInt;
StartPos, ToEnd: Integer;
Str: string;
begin
with RichEdit1 do
begin
Str := '52pojie'; /////11111111111111111111111111111111111111111111111111111111111111111
if SelLength <> 0 then
StartPos := SelStart + SelLength
else
StartPos := 0;
ToEnd := Length(Text) - StartPos;
while FoundAt <> -1 do
begin
FoundAt := FindText(Str, StartPos, ToEnd, [stMatchCase]);
if FoundAt <> -1 then
begin
SelStart := FoundAt;
ShowMessage(IntToStr(SelStart));
SelLength := Length(Str);
SelAttributes.color := clred; //////////////////222222222222222222222222222222222222222222
end;
StartPos := FoundAt + 1;
ToEnd := Length(Text) - StartPos;
end;
end;
end;
uj5u.com熱心網友回復：
procedure RichEditSetTextColor(ARichEdit: TRichEdit; const AText: string; AColor: TColor);var
FoundAt: LongInt;
StartPos, ToEnd: Integer;
begin
with ARichEdit do
begin
// Str := '52pojie'; // 刪掉這行
//... 其余照抄
FoundAt := FindText(AText, StartPos, ToEnd, [stMatchCase])
//...
SelAttributes.color := AColor;
//...;
end;
轉載請註明出處，本文鏈接：https://www.uj5u.com/houduan/29445.html
標籤：VCL組件開發及應用