怎么写程序使一个字符串与另一个字符串的前几位相同？

Question

起码可以这样，比如要s1,s2前10位一样，那么
for i:=0 to 9 do
begin
  s1[i]:=s2[i];
end;

Answer 1

sorry,弄错了，应该是for i:=1 to 10

Answer 2

可以用Copy函数，如要让S2的前5位与S1的前5位相同：
S2 := Copy(S1, 1, 5) + Copy(S2, 6, Length(S2) - 5);

Answer 3

var Len:Integer; //Len是相同部分的长度
Str1,Str2:String;....
Str2:=Copy(Str1,1,Len);

Answer 4

很简单
   应该是
  str2 =copy(str1,1,10) + copy(str2,11,length(str2)-10);
  得到的是 前10位相同的两个字串

Answer 5

没有那么夸张吧。C语言的函数库就有类似的函数，好像叫strlcmp，
在Delphi里面也一样，有StrLComp，由于参数是PChar，使用起来，稍微麻烦一些：
var
 s1, s2: string;
 rst: Integer;
 ...
 rst := StrLComp(PChar(s1), PChar(s2), 10);

Answer 6

又看错题目了，基本赞同kwhei(阿辉)　的意见。