Jak odnieść sie do tekstu znajdujacym sie pomiedzy 2 jakimis znakami np:
(xxxxx)
xxxxx ma zmienic kolor , zostac skasowane itp...
Jak to osiagnac ??
--Ozyrys Pozdrawiam {hello}
Jak odnieść sie do tekstu znajdujacym sie pomiedzy 2 jakimis znakami np:
(xxxxx)
xxxxx ma zmienic kolor , zostac skasowane itp...
Jak to osiagnac ??
--Ozyrys Pozdrawiam {hello}
Po pierwsze sprecyzuj pytanie, chodzi mi o to gdzie text się znajduje.
A po drugie spróbuj zajrzeć do gotowców, tam jest coś w tym stylu (wycinanie tagów html)
OK juz mowie tekst znajduje sie w RichEdit a à propos gotowcow nie chce usunac nawiasow tylko usunac, zminic kolor,czcionke lub cokolwiek w tekscie miedzy nimi.--Ozyrys Pozdrawiam {hello}
var
lewy, prawy : integer;
begin
Lewy:=Pos('(',RichEdit1.Text);
Prawy:=Pos(')',Richedit1.Text);
If (Lewy+Prawy>0) and (Prawy>Succ(Lewy)) then
with RichEdit1 do
begin
SelStart:=Lewy;
SelLength:=Prawy-Succ(Lewy);
SelAttributes.Color:=clRed;
SelAttributes.Name:='Times New Roman';
SelAttributes.Size:=18;
SelAttributes.Style:=[fsBold, fsItalic];
end;
end;
To znajduje tylko pierwszy nawias, ale dalej mysl juz sam...--Pawel
Delphi6
OK thx !--Ozyrys Pozdrawiam {hello}
DELPHI 6