盒子论坛 v2.1

DELPHI盒子

!实时搜索:	盒子论坛 \| 注册用户 \| 修改信息 \| 退出
	检举帖 \| 全文检索 \| 关闭广告 \| 捐赠

技术论坛

用户名

密码

自动登陆(30天有效)

忘了密码

≡技术区≡ ①

DELPHI技术

lazarus/fpc/Free Pascal

≡发布区≡ ②

≡事务区≡ ③

论坛信息

最新加入： jlennon

今日帖子： 14

在线用户： 16

导航：

论坛 -> DELPHI技术斑竹:liumazi,sephil

作者：

q34625474 (q34625474)	★☆☆☆☆	-
	盒子活跃会员

2011/8/11 0:55:45

标题：

字符串操作的问题

加入我的收藏

楼主：

比如有一个串 :'测试字符串'

我想分别取出

测
试
字
符
串

对比是否存在我指定的列表，
不知道怎么写了，哪个给点思路
----------------------------------------------
delphi众人拾柴火焰高！支持盒子~~~~~~~~~~

作者：

ccccu78 (ccccu78)	★☆☆☆☆	-
	盒子活跃会员

2011/8/11 6:01:55

1楼：

如果要取单字，可以这样：

ss:='测试字符串';

for i:=0 to 4 do
begin
showmessage(ss[i]);
end;
----------------------------------------------
...反正我信了

作者：

coconet (望尘莫及)	★☆☆☆☆	-
	普通会员

2011/8/11 9:08:22

2楼：

    b:=1;
for i:=0 to 4 do
begin
  s:=ss[b]+ss[1+b];
  b:=b+2;
  showmessage(s );
end;
----------------------------------------------
我爱DELPHI

作者：

q34625474 (q34625474)	★☆☆☆☆	-
	盒子活跃会员

2011/8/11 9:33:21

3楼：

根本取不出来，提示是空的，
----------------------------------------------
delphi众人拾柴火焰高！支持盒子~~~~~~~~~~

作者：

a5824 (Return)	★☆☆☆☆	-
	普通会员

2011/8/11 12:37:40

4楼：

用Delphi2010
----------------------------------------------
-

作者：

haiou327 (haiou327)	★☆☆☆☆	-
	普通会员

2011/8/11 14:22:08

5楼：

var
  b, i: Integer;
  isShow: Boolean;
  s, ss: string;
begin
  ss := 'delphi测试字符串bbs.2ccc.com';
  isShow := False;
  for i := 1 to Length(ss) do
  begin
    if Ord(ss[i]) > 128 then        //判断汉字还是字母符号
    begin
      b := i;
      s := ss[b] + ss[b + 1];
      b := b + 2;
      if not isShow then          //汉字显示处理
      begin
        isShow := true;
        ShowMessage(s);
      end
      else
        isSHow := false;
    end
    else
    begin
      ShowMessage(ss[i]);
    end;
  end;
end;
----------------------------------------------
-

作者：

ccccu78 (ccccu78)	★☆☆☆☆	-
	盒子活跃会员

2011/8/11 20:00:31

6楼：

悲催，为了楼主一句话，表白一下：不管你OK不OK，我OK了

procedure TForm1.Button1Click(Sender: TObject);
var
  ss:string;
  i:integer;
begin
  ss:='不管你信不信';
  for i := 1 to 6 do
    showmessage(ss[i])
end;

顺便倒个钱：I从1开始不要从零开始哦。。。
----------------------------------------------
...反正我信了

作者：

haiou327 (haiou327)	★☆☆☆☆	-
	普通会员

2011/8/11 20:32:50

7楼：

6楼代码是在D2009以上版本 ss是wideString 如果是在Delphi7下默认是AnsiString这样将无法显示的
6L把 ss:String改成 ss:AnsiString 试试
----------------------------------------------
-

信息

登陆以后才能回复