如何依次取得一个字符串的各个字符?先到有分 s:='123'; a:=s[1];//'1' b:=s[2];//'2' c:=s[3];//'3' 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 varstr:string;Tstr:string;j:integer;h:ingeter;beginstr:='12345';H:=length(str);j:=0;for j:=1 to h dobeginTstr:=copy(str,j,1);end;end; DELPHIXE2在WINXP下能否开发共享对象库(.SO文件)? Tmediaplayer问题? 熟悉LISTBOX控件的前辈帮个忙。。 100分求词霸透明背景的实现代码 如何实现TstringList中的内容复制??? 如何统计一个数值的二进制代码中有多少个0,多少个1 delphi+access2000存图片问题~ 问个MHT格式文件的问题 200分悬赏 求DELPHI书籍 我的子MDI子窗体是静态的,为什么我一运行MDI窗体,子窗体就全部显示出来了? 为什么会有这样的错?求救!!! 扩展类型如UINT之类的定义在哪个文件里?
str:string;
Tstr:string;
j:integer;
h:ingeter;
begin
str:='12345';
H:=length(str);
j:=0;
for j:=1 to h do
begin
Tstr:=copy(str,j,1);end;
end;