Witam !
Mam problem. Chciałem żeby do tekstu HTML zawartego w RichEdit dodawał się takst z Editów, na pierwszy rzut oka wszystko wyglądało ok ale po wprowadzeniu tego tekstu na stronę WWW nie działa.
Oto ten tekst:
Proszę o pomoc
Witam !
Mam problem. Chciałem żeby do tekstu HTML zawartego w RichEdit dodawał się takst z Editów, na pierwszy rzut oka wszystko wyglądało ok ale po wprowadzeniu tego tekstu na stronę WWW nie działa.
Oto ten tekst:
Proszę o pomoc
Hmm moze np. tak:
Wyszukac odpowiedni text i dostawic po nim jakis inny.
procedure Wstaw(ZaCzym, Txt: String);
var
Idx: Integer;
begin
Idx := Pos(UpperCase(ZaCzym), UpperCase(RichEdit.lines.Text));
if Idx <> 0 then
begin
RichEdit.SelStart := Idx + Length(ZaCzym) -1;
RichEdit.SelLength := 0;
RichEdit.SelText := Txt;
end;
end;
Uzycie:
Wstaw('yourLogo = "', Edit1.Text);
To też nie działa. Ale jak robiłem takie coś na innym tekscie HTML do działało.
Tekst po przejściu przez program wygląda tak:
<body> <script language="JavaScript"> if (document.all) { yourLogo = " yellowok"; logoFont = "Arial"; logoColor = "red"; yourLogo = yourLogo.split(''); L = yourLogo.length; TrigSplit = 360 / L; Sz = new Array() logoWidth = 100; logoHeight = -30; ypos = 0; xpos = 0; step = 0.03; currStep = 0; document.write('Na stronie WWW wyskakuje mi błąd:
Wiersz:35
Znak:81
Błąd: Brak zakończenia stałej znakowej
Kod:0
Jeszcze raz proszę o wmiarę szybką pomoc
Potrzebuję kodu który pozwoli na wstawienie tekstu z Edit1 w danej lini i po danym znaku w RichEdit1. To powinno załatwić sprawę bo chyba wiem gdzie gubie kawałki takstu.
Człowieku, to nie problem z Delphi tylko z JavaScriptem! Coś źle wstawiasz i tyle. Niech jakiś moderator to przeniesie (albo usunie).