高校问答马特和乔:delphi的问题，很简单，紧急！
来源：百度文库 编辑：高校问答 时间：2024/04/24 02:21:17
刚学编程，遇到了问题，大家别笑！下面只是假设
<html>
<script language="AAAAA">Edit1<html>
</html>
我的程序有一个edit组件（这里是输入AAAAA的内容的），有一个按钮，我希望点击会生成一个文本文件，并且把：
<html>
<script language="AAAAA">Edit1<html>
</html>
输出到文本文件里
注意：edit里的内容是可以改变的~！比如我edit内容写上：delphi
然后生成的文本文件的内容就为
<html>
<script language="delphi">Edit1<html>
</html>
也就是说AAAAA随意我们改变的，改成什么就输出什么！
我主要是不知道怎么定义那些变量，怎么附值！希望能帮帮我度过这关，明早要交作业的！
<html>
<script language="AAAAA">Edit1<html>
</html>
我的程序有一个edit组件（这里是输入AAAAA的内容的），有一个按钮，我希望点击会生成一个文本文件，并且把：
<html>
<script language="AAAAA">Edit1<html>
</html>
输出到文本文件里
注意：edit里的内容是可以改变的~！比如我edit内容写上：delphi
然后生成的文本文件的内容就为
<html>
<script language="delphi">Edit1<html>
</html>
也就是说AAAAA随意我们改变的，改成什么就输出什么！
我主要是不知道怎么定义那些变量，怎么附值！希望能帮帮我度过这关，明早要交作业的！
var
fs: TFileStream;
s: string;
begin
s := "<html> <script language="%S">Edit1<html></html>";
fs := TFileStream.Create("a.txt", fmOpenWrite+fmCreate);
try
fs.write(Format(s, edit1.text));
finally
fs.free;
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
var
Str:string;
TF:TextFile;
begin
Str:='<html>'#13#10+
'<script language="'+edit1.Text+'">Edit1<html>'#13#10+
'</html>';
assignfile(TF,'output.txt');
rewrite(TF);
Write(TF,Str);
closefile(TF);
end;