字符串截取！

Question

如何将一个字符串截去最后两个字符？

Answer 1

使用function Copy(S; Index, Count: Integer): string;var str,substr :string;
str='abcd';
substr=copy(length(str)-2,2);

Answer 2

你的加值分太少了
var
   S: string;
begin
   S:= 'jiang';
   Delete(S, length(s)-1, 2);     // S := 'jia'
   MessageDlg(S, mtWarning, [mbOK],0);
end;

Answer 3

使用function Copy(S; Index, Count: Integer): string;var str,substr :string;
str='abcd';
substr=copy(length(str)-2,2);
好象是想取得最后两个字符把
而且，copy(length(str)-2,2)???
去掉最后两个是copy(str,1,length(str)-2)把

Answer 4

var
   S: string;
begin
   S:= 'jiang';
   Delete(S, length(s)-1, 2);     // S := 'jia'
   MessageDlg(S, mtWarning, [mbOK],0);
end;
这种处理也可以！