text...

0

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}

0

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)

0

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}

0

var
lewy, prawy : integer;
begin
Lewy:=Pos('(',RichEdit1.Text);
Prawy:=Pos(')',Richedit1.Text);
If (Lewy+Prawy&gt0) and (Prawy&gtSucc(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

0

OK thx !--Ozyrys Pozdrawiam {hello}
DELPHI 6

1 użytkowników online, w tym zalogowanych: 0, gości: 1, botów: 0