Как в Delphi используя TСhromium заполнить?

Question

[Некит Медведев]

В данный момент используется этот код:

procedure TForm8.Button2Click(Sender: TObject);
var
NamePole:string;
CodeStr,s:string;
begin
s:=Memo1.text;
CodeStr := 'document.getElementById("'+DopText+'").value="'+s+'";' ;
Chromium1.Browser.MainFrame.ExecuteJavaScript(CodeStr, 'about:blank', 0);
end;

Если вместо s прописать текст на прямую то заполнение идёт.
Что делать?

Answer 1

[Константин Цветков]

s:=Memo1.text;

s := StringReplace( Memo1.text, #13#10, ' ');

Comments

[Некит Медведев]

жаль, но я был уже в армии)