delphi 如何把一串字符串的某个值的前几个字符保留下来

例如字符串是='abcdef'我要的是过滤c后面的,取出来的值是ab这个怎么实现?然后在把取出来的ab变成char数组类型。。。。... 例如字符串是='abcdef'
我要的是过滤c后面的,取出来的值是ab

这个怎么实现?

然后在把取出来的ab变成char数组类型。。。。
展开
 我来答
KDERP
2016-01-08 · 知道合伙人软件行家
KDERP
知道合伙人软件行家
采纳数:266 获赞数:699
2016-2017荣获 金达软件(广州) 最佳项目负责人

向TA提问 私信TA
展开全部

可通过函数POS及COPY配合使用实现该功能。

一、函数说明:

POS:获取特定字符所处字符串的位置,返回数据类型为整型。POS共有两个参数:POS(特定字符或字符串,源字符串)。

COPY:字符串截取,返回数据类型为字符型。COPY共有三个参数:COPY(源字符串,起始截取位(整型,可为变量),截取位数(整型,可为变量))。

二、实例演示(笔者以截取特定字符‘.'前5位为例),操作如下:

1、添加TEDIT及TBUTTON控件各一个;

2、在TBUTTON控件的单击事件中,写入代码:ShowMessage(Copy(Trim(ed2.Text),Pos('.',Trim(ed2.Text))-6,5));

3、在TEDIT中随便输入一串字符,点击TBUTTON控件,效果如下图:

壬瑜qD
推荐于2018-03-11 · TA获得超过295个赞
知道小有建树答主
回答量:477
采纳率:0%
帮助的人:318万
展开全部
狂晕,一个so easy的东东用得着这样解决吗
var
s: string;
ca: array of char;
i, len: integer;
begin
s := 'abcde';
s := copy(s, 1, 2);
len := Length(s);
SetLength(ca, len);
for i := 0 to len - 1 do
ca[i] := s[i+1];
end;
//ca就是你所要的
//另外,在delphi中,String类型本身就可以看作是一个以1为基数的数组,
本回答被提问者和网友采纳
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
xiaozi119784
2008-06-25 · TA获得超过155个赞
知道小有建树答主
回答量:221
采纳率:0%
帮助的人:0
展开全部
这个嘛用的基本是字符串的处理函数
i,j:integer;
s1,s2:string;
arr :array of char;
begin
s1:="abcdef"; //这步你当然可以用s1来动态获得它的值比方说 //s1:=edit2.text;
i:=pos('c',s1);
s2:=copy(s1,1,length(s1-i-1));
setlength(arr,i-1);
for j:=0 to i-1do
begin
arr[j]:=copy(s2,j+1,1); //其实s2本身也可以当成数组来用了
end;
end;
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
沙支夸依
2008-06-25 · TA获得超过1281个赞
知道小有建树答主
回答量:291
采纳率:0%
帮助的人:324万
展开全部
不知道楼上的朋友程序调了没.大眼一看就好几处错误.真是不应该啊....
我给一段代码并附上测试例程.
//Delphi 7.0+win2k下通过

function myfun(str: string): PChar;
var
i: integer;
begin
i := Pos('c', str);
GetMem(Result, i); //注意,调用完该函数后,要调用FreeMem释放内存
ZeroMemory(Result, length(Result));
CopyMemory(Result, @str[1], i-1);
end;

procedure TForm1.Button1Click(Sender: TObject);
var
Str: string;
p: PChar;
i: integer;
begin
Str := 'aabcdefg'; //测试范例字符串
p := myfun(Str); //获取'c'之前的字符串并转换为字符数组(指针)
for i:=0 to Length(p) do //对两种方式访问结果的每一个元素
begin
Memo1.Lines.Add(p[i]); //按数组访问
Memo1.Lines.Add((p+i)^); //按指针访问
end;
Memo1.Lines.Add(p); //支持字符串式访问的自动转换

FreeMem(p); //对应GetMem.不然会内存泄漏
end;

end.
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
收起 更多回答(2)
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式