cześć, czy wie ktoś jak w źródle dokumentu html (zawartym w Richedit1) zmienić wszystkie znaki: '<' i '>' na znaki: < i > ?
While pos(<
, RichEdit1.Text)>0 do begin
x:=pos(<
, RichEdit1.Text);
Delete(RichEdit1.Text, x, 2);
RichEdit1.Text[x]:='<';
end;
I analogicznie dla >...
dużo prościej jest zastosować StringReplace
nie dziala mi , podświetla mi 2 ostatnie liniijki:
komunikat o błędach:
1.) Constant object cannot by passed as var parameter
2.) Left side cannot be assigned to
Nie wiem o co chodzi :(
</b>
While pos(
<
, RichEdit1.Text)>0 do begin
x:=pos(<
, RichEdit1.Text);
Delete(RichEdit1.Text, x, 2);
RichEdit1.Text[x]:='<';
end;
O to, że w Delete nie może wystąpić RichEdit1.Text więc Delete(RichEdit1.Text, x, 2); jest błędne i chyba RichEdit1.Text[x]:='<'; również :)
Odsyłam po opis StringReplace..
Dzieki ... działa mi StrREplace :)))) hura ... jeszcze raz dzięki za pomoc
a jeszcze jedno, bo : zamieniając mi wszystkie znaki '<' i '>' na inne tworzy sie długi cąg znaków bez uwzględnienia w orginalnej wersji (zawartości richedit) : enterów, czy przejść do nowej linii ... --<<<< kiedy zapisuje to jako dokument html i wyświetlam w przeglądarce ...
Czy da sie to jakoś rozwiązać ?
Jak masz w htmlu to przeciez zeby bylo przejscie do nowej linii musisz wpisac <BR>
:| O to chodzi?
Jesli tak, to znajdz wszystkie znaki entera i pozamieniaj na <br>
...