一个简单的问题,如何对字符串进行减操作?

Question

如:
 字符text,如何得到 字符tex;
str:='text'-'t';
以上句子是否可行？

Answer 1

可以实现
给我留言和你的Email

Answer 2

所先，我的字符串是不确定的，即‘text'是不确定的，是一个变量，但我要去掉的最后一个字符是确定的，那又如何操作？？

Answer 3

字符串是一个数组，最后一个值为nil ，前面存放着字符，可以象操作数组一样对其操作，只要去掉最后一个不就行了，我是这样想的，你可以试一下，因为我才学不久，不知道这样是不是行得通。

Answer 4

比如A是一个变量那就这样操作就行了
str:=copy(A,1,length(A)-1)
我真怀疑你到底是不是搞编程的阿，人家上面已经给出了，你难道不会议护花飘吗？

Answer 5

还是up一下：
str:= copy(str,1, Length(str)-1);

Answer 6

str := copy('text',1,3)

Answer 7

呵呵 我也想这么做 我的想法更难点 我还没实现我想实现这样的操作Var
  s, s1, s2: String;
begin
  s1:='text and text and china';
  s2:='xt';
  s:=SubTheStr(s1, s2); 
end;SubTheStr函数的功能是将S1字符串中所有的S2字符串减掉
最终 S='tx and tx and china';哪位高手来编写啊？

Answer 8

function SubTheStr(s1, s2:string):string;
var
  s, ts1, ts2:string;
  vLen, vLen1, vLen2, vPos :smallint;
begin
  vPos := Pos(s2, s1);
  vLen1 := Length(s2);
  s := s1;
  while vPos <> 0 do
  begin 
    vLen := Length(s);
    ts1 := copy(s, 1, vPos - 1);
    vLen2 := Length(ts1);
    ts2 := copy(s, vPos + vLen1, vLen - vLen2 - vLen1);
    s := ts1 + ts2;
    vPos := Pos(s2, s);
  end;
  Result := s;
end;

Answer 9

function SubTheStr(aStr, aSubStr: String): String;
  var
    lsStr, Str: String;
  begin
    lsStr:=aStr;
    While Pos( PChar(aSubStr), PChar(lsStr) )<>0 do
    begin
      Str:=Copy( lsStr, 1 ,Pos(aSubStr, lsStr)-1 );
      lsStr:=Str+Copy( lsStr,
                       Pos(aSubStr, lsStr)+Length(aSubStr),
                       Length(lsStr)-Length(aSubStr)-Length(Str) );    end;
    Result:=lsStr;
  end;
var
  s, s1, s2: String;
begin
  s1:='xt and text and xt and china';
  s2:='xt';
  s:=SubTheStr(s1, s2);
  ShowMessage(s);
end;呵呵 功能一样

Answer 10

我给你最简单的函数：  function SubTheStr(var s1: String; s2: String): String;
  begin
    While Pos( s2, s1 )<>0 do
    begin
      Delete( s1, Pos(s2, s1), Length(s2) );
    end;
    Result:=s1;
  end;

Answer 11

function SubTheStr(var s1: String; s2: String): String;
  begin
    While Pos( s2, s1 )<>0 do
    begin
      Delete( s1, Pos(s2, s1), Length(s2) );
    end;
    Result:=s1;
  end;

Answer 12

function LeftStr(const AText: AnsiString; const ACount: Integer): AnsiString; overload;是Delphi7中的函数,var
s:string;
begins:=LeftStr(Edit1.text,Length(Edit1.text)-1);
end;

Answer 13

用 Copy 可以呀,为什么要那么复杂?
str:= copy(str,1, Length(str)-1);

Answer 14

function SubTheStr(var s1: String; s2: String): String;
  begin
    While Pos( s2, s1 )<>0 do
    begin
      Delete( s1, Pos(s2, s1), Length(s2) );
    end;
    Result:=s1;
  end;

Answer 15

晕死！用DELPHI的自带函数就实现了 何必这么麻烦！StringReplace('text', 't', '',[rfReplaceAll]);

Answer 16

Delete( s1, Pos(s2, s1), Length(s2) );
StringReplace(s1,s2, '',[rfReplaceAll]);