html파일에 editbox에 있는 text를 불러서 넣은뒤 그걸 다시 웹 브라우저에 뿌려주고 싶은데... 어떻게 하나요...?



AssignFile(infile,InstallPathEdit.Text + 'webpage.txt');

assignfile(outfile, InstallPathEdit.Text + 'webpage.html');

Rewrite(infile);

write(infile,memo1.text);

rewrite(outfile);

readln(infile,num_linesx);



for i := 1 to num_linesx do //텍스트파일을 html형식으로...

begin

readln(infile, Line);

writeln(outfile, Line);

end;

while not eof(F) do

begin

str := 'name="name" value'; //html형식으로 파일에서 str을 찾아

ReadLn(outfile,Str);



if not eof(outfile) then

begin

Str := 'name="name" value= '+ Nameedit.Text;

rewrite(outfile,Str); //앞에서 말했듯이 editbox에 있는 내용을 추가해

end; //다시 파일에 쓴다.. 맞는지 모르겠지만..



end;

closefile(infile); // 파일을 닫아준다...

closefile(outfile);