帮忙翻译一段Delphi的代码！

Friecin 2004-10-29 06:44:55
Ebody 是 TMemo
EA 是 TListBox

//--------------------------------------------
while j>0 do //将HTML文件中的图片名代替为附加ID的图片名
begin
Ebody.text:=copy(Ebody.Text,1,j-1)
+'cid:'+formatfloat('00000',idc)+idNO
+copy(Ebody.Text,j+length(Ea.Items[i]),length(Ebody.Text)-j+1-length(EA.Items[i]));
j:=pos(s,Ebody.text);
end;
...全文
103 14 打赏 收藏 转发到动态 举报
写回复
用AI写文章
14 条回复
切换为时间正序
请发表友善的回复…
发表回复
tccsdn 2004-10-30
  • 打赏
  • 举报
 回复
重新来

Ebody.text:=copy(Ebody.Text,1,j-1)
Ebody->text=Ebody->Text.SubString( 1, j-1 );


j:=pos(s,Ebody.text);
j=Ebody->Text.Pos( s );
tccsdn 2004-10-30
  • 打赏
  • 举报
 回复
运死， Subst改为SubString
tccsdn 2004-10-30
  • 打赏
  • 举报
 回复
Ebody.text:=copy(Ebody.Text,1,j-1)
Ebody->Text.Subst( 1, j-1 );


j:=pos(s,Ebody.text);
Ebody->Text.Subst( s );
客家族_Shark曾_小凡仙 2004-10-30
  • 打赏
  • 举报
 回复
while (j > 0)
{
Ebody->Text = Ebody->Text.SubString(1, j - 1)
+ "cid:" + FormatFloat("00000", idc) + idNO
+ Ebody->Text.SubString(j + EA->Items[i].Length(),
Ebody->Text.Length() - j + 1 - EA->Items[i].Length() );
j = s.Pos(Ebody->Text);
}
客家族_Shark曾_小凡仙 2004-10-30
  • 打赏
  • 举报
 回复
while (j > 0) //将HTML文件中的图片名代替为附加ID的图片名
{
Ebody->Text = Ebody.Text.SubString(1, j - 1)
+ "cid:" + FormatFloat("00000", idc) + idNO
+ Ebody->Text.SubString(j + EA.Items[i].Length(),
Ebody->Text.Length() - j + 1 - EA.Items[i].Length() );
j = s.Pos(Ebody->Text);
}
shadowstar 2004-10-30
  • 打赏
  • 举报
 回复
//--------------------------------------------
while (j > 0) //将HTML文件中的图片名代替为附加ID的图片名
{
Ebody->Text = Ebody.Text.SubString(1, j - 1)
+ "cid:" + FormatFloat("00000", idc) + idNO
+ Ebody->Text.SubString(j + EA.Items[i].Length(),
Ebody->Text.Length() - j + 1 - EA.Items[i].Length() );
j = s.Pos(Ebody->Text);
}
Friecin 2004-10-30
  • 打赏
  • 举报
 回复
楼上兄台，就没有Copy这个函数呀！！！
shadowstar 2004-10-30
  • 打赏
  • 举报
 回复
Ebody 是 TMemo
EA 是 TListBox

//--------------------------------------------
while (j > 0) //将HTML文件中的图片名代替为附加ID的图片名
{
Ebody->Text = Copy(Ebody.Text, 1 , j - 1)
+ "cid:" + FormatFloat("00000", idc) + idNO
+ Copy(Ebody->Text, j + EA.Items[i].Length(),
Ebody->Text.Length() - j + 1 - EA.Items[i].Length() );
j = Pos(s, Ebody->Text);
}
Friecin 2004-10-30
  • 打赏
  • 举报
 回复
要翻译成BCB的！！！！！！
要翻译成BCB的！！！！！！
要翻译成BCB的！！！！！！
要翻译成BCB的！！！！！！
要翻译成BCB的！！！！！！
要翻译成BCB的！！！！！！
要翻译成BCB的！！！！！！
要翻译成BCB的！！！！！！
要翻译成BCB的！！！！！！
要翻译成BCB的！！！！！！
要翻译成BCB的！！！！！！
要翻译成BCB的！！！！！！
要翻译成BCB的！！！！！！
要翻译成BCB的！！！！！！
要翻译成BCB的！！！！！！
要翻译成BCB的！！！！！！
要翻译成BCB的！！！！！！
要翻译成BCB的！！！！！！
要翻译成BCB的！！！！！！
要翻译成BCB的！！！！！！
要翻译成BCB的！！！！！！
要翻译成BCB的！！！！！！
要翻译成BCB的！！！！！！
要翻译成BCB的！！！！！！
要翻译成BCB的！！！！！！
要翻译成BCB的！！！！！！
要翻译成BCB的！！！！！！
要翻译成BCB的！！！！！！
要翻译成BCB的！！！！！！
要翻译成BCB的！！！！！！
要翻译成BCB的！！！！！！
要翻译成BCB的！！！！！！
要翻译成BCB的！！！！！！
要翻译成BCB的！！！！！！
要翻译成BCB的！！！！！！
要翻译成BCB的！！！！！！
要翻译成BCB的！！！！！！
要翻译成BCB的！！！！！！
要翻译成BCB的！！！！！！
要翻译成BCB的！！！！！！
要翻译成BCB的！！！！！！
要翻译成BCB的！！！！！！
要翻译成BCB的！！！！！！
要翻译成BCB的！！！！！！
要翻译成BCB的！！！！！！
要翻译成BCB的！！！！！！
要翻译成BCB的！！！！！！
要翻译成BCB的！！！！！！
要翻译成BCB的！！！！！！
要翻译成BCB的！！！！！！
要翻译成BCB的！！！！！！
要翻译成BCB的！！！！！！
要翻译成BCB的！！！！！！
要翻译成BCB的！！！！！！
要翻译成BCB的！！！！！！
要翻译成BCB的！！！！！！
要翻译成BCB的！！！！！！
要翻译成BCB的！！！！！！
要翻译成BCB的！！！！！！
要翻译成BCB的！！！！！！
要翻译成BCB的！！！！！！
要翻译成BCB的！！！！！！
要翻译成BCB的！！！！！！
要翻译成BCB的！！！！！！
要翻译成BCB的！！！！！！
要翻译成BCB的！！！！！！
要翻译成BCB的！！！！！！
要翻译成BCB的！！！！！！
Friecin 2004-10-29
  • 打赏
  • 举报
 回复
上面的都不对！不能用！！！

尤其是xpdavis(咕嘟) 的！！ 郁闷呀！！
铖邑 2004-10-29
  • 打赏
  • 举报
 回复
while(j>0) //将HTML文件中的图片名代替为附加ID的图片名
{
Ebody.text = Copy(Ebody.Text,1,j-1)
+'cid:'+FormatFloat('00000',idc)+idNO
+ Copy(Ebody.Text,j+Length(Ea.Items[i]),Length(Ebody.Text)-j+1-Length(EA.Items[i]));
j = Pos(s,Ebody.text);
}
客家族_Shark曾_小凡仙 2004-10-29
  • 打赏
  • 举报
 回复
好饿了 回家吃饭了 不翻了
客家族_Shark曾_小凡仙 2004-10-29
  • 打赏
  • 举报
 回复
String tmpStr="";
int i,k,m;
i=Ea->Items[i].Text.Length;
k=Ebody->Text.Length;
for int j=1 to 9
{
tmpStr=ebody.text[j];
Ebody->text=tmpStr+"cid"+FormatToFloat('00000',idc)+idNO+copy(Ebody->Text,j+i,k-j+1-i);
j=Ebody->text.indexof(s);
}


客家族_Shark曾_小凡仙 2004-10-29
  • 打赏
  • 举报
 回复
String tmpStr="";
for int j=1 to 9
{
tmpStr=ebody.text[j];
Ebody.text=tmpStr+"cid"+FormatToFloat('00000',idc)+......
}
DelphiXE10零基础实战快速入门
通过课堂上一个一个的实战例子，演示DelphiXE10的用法，最后通过一个完整的通讯录程序，让学员初步掌握软件开发的全部流程 让零基础学员快速入门Delphi编程，快速掌握Delphi的使用方法，并能够制作出自己的软件来。...
java制作烟花源码_java源码解读-java烟花代码!
解读JAVA代码正在自学java，刚入门，图形界面没太看懂 贴一段简单的代码，求逐行解释。。java程序解析public class text6{ final String color; public text6(String color) { this.color=color; }。具体给我讲解...
Delphi中如何进行HTTP编程，比如：发送一个XML文件给服务器？
Delphi中如何进行HTTP编程，比如：发送一个XML文件给服务器？ Delphi / Windows SDK/API...Delphi中如何进行HTTP编程，比如：发送一个XML文件给服务器该如何写，大虾帮忙啊，有代码最好？ htt...
Delphi木马DIY之代码藏后门的可能性
Delphi木马DIY之代码藏后门的可能性 VCL组件开发及应用http://www.delphi2007.net/DelphiVCL/html/delphi_20061225144610122.html 现在，好多的朋友都会写程序了，但肯定不一定对程序很精通。估计很多都是拿到整齐...
delphi2007很卡_程序在运行，当我把网络突然卡断后出现的异常错误
程序在运行，当我把网络突然卡断后出现的异常错误 Delphi / Windows SDK/APIhttp://www.delphi2007.net/DelphiNetwork/html/delphi_20061122150010280.htmlRTPS：我写了一个程序，用的是SQL来操作数据库，当我在操作...
C++ Builder

13,825

社区成员

102,679

社区内容

发帖
与我相关
我的任务
社区描述
C++ Builder相关内容讨论区
社区管理员
  • 基础类社区
加入社区
  • 近7日
  • 近30日
  • 至今

加载中

查看更多榜单
社区公告
暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章