请问简单的字符串函数(50分)

NewLearner · 2002-08-19

假设 v1:='abcde' v2:='c'
1. 怎样判断v2是否包含于v1
2. 如果v2包含于v1, 怎样实现 v1-v2 的值为 'abde' (把v2的值'c'从v1中去掉)

svw0506 · 2002-08-19

判断：
if pos(v2,v1)>0 then
//v2包含于v1

从v1中把v2去除
var
l_Pos : Integer;
begin
l_Pos := Pos(v2, v1);
Delete(v1, l_Pos, Length(v1) - l_Pos - 1);
end;

lilor · 2002-08-19

blue_morning的全面一点。

jsxjd · 2002-08-19

svw0506回答中的Delet应这么写:
Delete(v1, l_Pos, Length(v2));

chenxz · 2002-08-19

>>Delete(v1, l_Pos, Length(v1) - l_Pos - 1);
改为如下就可以对v2是一个串的情况了[

]
Delete(v1, l_Pos, Length(v1) - l_Pos - Length(v2));

blue_morning · 2002-08-19

Pos Example

var S: string;

begin
S := ' 123.5';
{ Convert spaces to zeros }
while Pos(' ', S) > 0 do
S[Pos(' ', S)] := '0';
end;

NewLearner · 2002-08-19

多人接受答案了。

SEVN · 2002-08-19

都说完了