procedure TForm1.BitBtn1Click(Sender: TObject);
var
S: string;
begin
with TResourceStream.Create(HInstance, 'ftp_Text', 'File') do try
if Size <= 0 then Exit;
SetLength(S, Size);
Read(S[1], Size);
with TStringList.Create do try
Text := StringReplace(S, 'xxxxxxxxxxxxxxxxxxx', Edit4.Text,
[rfReplaceAll, rfIgnoreCase]);
Text := StringReplace(S, 'yyyyyyyyyyyyyyyyy', Edit5.Text,
[rfReplaceAll, rfIgnoreCase]);
Text := StringReplace(S, 'mmmmmmmmmmmmmmmmm', Edit6.Text,
[rfReplaceAll, rfIgnoreCase]);
Text := StringReplace(S, 'aaaaaaaaaaaaaaaaaaaa', Edit8.Text,
[rfReplaceAll, rfIgnoreCase]); // 替换字符
SaveToFile('c:\ftp.txt'); // 保存为文件
finally
Free;
end;
finally
Free;
begin
MessageBox(0, 'Http传马配置成功', '提示信息', mb_iconinformation);
end;
end;
end;这个是代码,但是只能替换最后一个 aaaaaaaaaaaaa只能替换这个!别的都不能替换!不知道杂回事!高手帮忙下
var
S: string;
begin
with TResourceStream.Create(HInstance, 'ftp_Text', 'File') do try
if Size <= 0 then Exit;
SetLength(S, Size);
Read(S[1], Size);
with TStringList.Create do try
Text := StringReplace(S, 'xxxxxxxxxxxxxxxxxxx', Edit4.Text,
[rfReplaceAll, rfIgnoreCase]);
Text := StringReplace(S, 'yyyyyyyyyyyyyyyyy', Edit5.Text,
[rfReplaceAll, rfIgnoreCase]);
Text := StringReplace(S, 'mmmmmmmmmmmmmmmmm', Edit6.Text,
[rfReplaceAll, rfIgnoreCase]);
Text := StringReplace(S, 'aaaaaaaaaaaaaaaaaaaa', Edit8.Text,
[rfReplaceAll, rfIgnoreCase]); // 替换字符
SaveToFile('c:\ftp.txt'); // 保存为文件
finally
Free;
end;
finally
Free;
begin
MessageBox(0, 'Http传马配置成功', '提示信息', mb_iconinformation);
end;
end;
end;这个是代码,但是只能替换最后一个 aaaaaaaaaaaaa只能替换这个!别的都不能替换!不知道杂回事!高手帮忙下
解决方案 »
- 如何清空窗体上的控件(比如Label)???
- 关于用idftp下载
- 正方形的image1中加入一个长方型的JPG,image1.Proportional:=true..
- 运行时窗体设组件,功能和DELPHI的窗体设计器相同的组件,可让你的程序在运行时设计窗体
- 怎么才能使得 ctrl键,delete键,ctrl+alt+delete等组合键失效
- 各位大哥我有一个问题请帮忙
- 为什么VB能做到的Delphi做不到?
- 我想问一个sql的问题
- 有关于Delphi开发局域网数据库系统的书籍或者资料吗?
- 菜鸟继续提问...敬请关注!!!
- 问cxgrid能否实现单元格的合并和拆分
- Delphi 7 调用 Java 创建的复杂Web Services 中 XSD文件怎么处理?
Text:=S;
with TStringList.Create do try
Text := StringReplace(Text, 'xxxxxxxxxxxxxxxxxxx', Edit4.Text,
[rfReplaceAll, rfIgnoreCase]);
Text := StringReplace(Text, 'yyyyyyyyyyyyyyyyy', Edit5.Text,
[rfReplaceAll, rfIgnoreCase]);
Text := StringReplace(Text, 'mmmmmmmmmmmmmmmmm', Edit6.Text,
[rfReplaceAll, rfIgnoreCase]);
Text := StringReplace(Text, 'aaaaaaaaaaaaaaaaaaaa', Edit8.Text,
[rfReplaceAll, rfIgnoreCase]); // 替换字符
SaveToFile('c:\ftp.txt'); // 保存为文件
finally
Free;
end;
...
或者第二次,和以后替换时,使用上次替换的结合字符串procedure TForm1.BitBtn1Click(Sender: TObject);
var
S: string;
begin
with TResourceStream.Create(HInstance, 'ftp_Text', 'File') do try
if Size <= 0 then Exit;
SetLength(S, Size);
Read(S[1], Size);
with TStringList.Create do try
Text := StringReplace(S, 'xxxxxxxxxxxxxxxxxxx', Edit4.Text,
[rfReplaceAll, rfIgnoreCase]);
Text := StringReplace(Text, 'yyyyyyyyyyyyyyyyy', Edit5.Text,
[rfReplaceAll, rfIgnoreCase]);
Text := StringReplace(Text, 'mmmmmmmmmmmmmmmmm', Edit6.Text,
[rfReplaceAll, rfIgnoreCase]);
Text := StringReplace(Text, 'aaaaaaaaaaaaaaaaaaaa', Edit8.Text,
[rfReplaceAll, rfIgnoreCase]); // 替换字符
SaveToFile('c:\ftp.txt'); // 保存为文件
finally
Free;
end;
finally
Free;
begin
MessageBox(0, 'Http传马配置成功', '提示信息', mb_iconinformation);
end;
end;
end;
procedure TForm1.BitBtn1Click(Sender: TObject);
var
S: string;
begin
with TResourceStream.Create(HInstance, 'ftp_Text', 'File') do try
if Size <= 0 then Exit;
SetLength(S, Size);
Read(S[1], Size);
with TStringList.Create do try
S := StringReplace(S, 'xxxxxxxxxxxxxxxxxxx', Edit4.Text,
[rfReplaceAll, rfIgnoreCase]);
S := StringReplace(S, 'yyyyyyyyyyyyyyyyy', Edit5.Text,
[rfReplaceAll, rfIgnoreCase]);
S := StringReplace(S, 'mmmmmmmmmmmmmmmmm', Edit6.Text,
[rfReplaceAll, rfIgnoreCase]);
S := StringReplace(S, 'aaaaaaaaaaaaaaaaaaaa', Edit8.Text,
[rfReplaceAll, rfIgnoreCase]); // 替换字符
Text := S;
SaveToFile('c:\ftp.txt'); // 保存为文件
finally
Free;
end;
MessageBox(0, 'Http传马配置成功', '提示信息', mb_iconinformation);
finally
Free;
end;
end;好比
A := 1;
A := 2;
A := 3;
你说A最后是多少?A := 1;
A := A + 2;
A := A + 3;
这样才能实现你期望的