Czemu takst HTML po "przepuszczeniu" przez RichEdit nie dzia

0

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:

<body> <script language="JavaScript"> if (document.all) { yourLogo = " "; :-( tu w nawiasach ma być Edit1 logoFont = "Arial"; logoColor = ""; :-( tu w nawiasach ma być Edit2 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('
'); for (i = 0; i < L; i++) { document.write('
'+yourLogo[i]+'
'); } document.write('
'); function Mouse() { :-( a Edit3 w linijce na +'width:... po słowie size: ypos = event.y; xpos = event.x - 5; } document.onmousemove=Mouse; function animateLogo() { outer.style.pixelTop = document.body.scrollTop; for (i = 0; i < L; i++) { ie[i].style.top = ypos + logoHeight * Math.sin(currStep + i * TrigSplit * Math.PI / 180); ie[i].style.left = xpos + logoWidth * Math.cos(currStep + i * TrigSplit * Math.PI / 180); Sz[i] = ie[i].style.pixelTop - ypos; if (Sz[i] < 5) Sz[i] = 5; ie[i].style.fontSize = Sz[i] / 1.7; } currStep -= step; setTimeout('animateLogo()', 20); } window.onload = animateLogo; } </script> </body>

Proszę o pomoc

0

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);

0

To też nie działa. Ale jak robiłem takie coś na innym tekscie HTML do działało.

0

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('
'); for (i = 0; i < L; i++) { document.write('
'+yourLogo[i]+'
'); } document.write('
'); function Mouse() { ypos = event.y; xpos = event.x - 5; } document.onmousemove=Mouse; function animateLogo() { outer.style.pixelTop = document.body.scrollTop; for (i = 0; i < L; i++) { ie[i].style.top = ypos + logoHeight * Math.sin(currStep + i * TrigSplit * Math.PI / 180); ie[i].style.left = xpos + logoWidth * Math.cos(currStep + i * TrigSplit * Math.PI / 180); Sz[i] = ie[i].style.pixelTop - ypos; if (Sz[i] < 5) Sz[i] = 5; ie[i].style.fontSize = Sz[i] / 1.7; } currStep -= step; setTimeout('animateLogo()', 20); } window.onload = animateLogo; } </script> </body>

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.

0

Człowieku, to nie problem z Delphi tylko z JavaScriptem! Coś źle wstawiasz i tyle. Niech jakiś moderator to przeniesie (albo usunie).

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