在线等待，菜鸟问题。

Question

copy(edit1.text,1,length(edit1.text)-3);

Answer 1

delete(s,length(s)-2,3) // s为你的字符串

Answer 2

edit1.text:=copy(edit1.text,1,length(edit1.text)-3);  
ORprocedure TForm1.Button1Click(Sender: TObject);
var
   s: string;
 begin
   s := edit1.text;
   Delete(s,length(s)-2,3);
   Edit1.text:=s;
 end;

Answer 3

function NumberAlphaInc(S: string): string;
var
  I: Integer;
begin
  Result := S;
  for I := Length(S) downto 1 do
    case S[I] of
      '0'..'9': if S[I] = '9' then
        Result[I] := '0'
      else begin
        Result[I] := Succ(S[I]);
        Break;
      end;
      //大写我不管
      'a'..'z': if S[I] = 'z' then
        Result[I] := 'a'
      else begin
        Result[I] := Succ(S[I]);
        Break;
      end;
    end;
end; { NumberAlphaInc }procedure TForm1.Button1Click(Sender: TObject);
begin
  Edit1.Text := NumberAlphaInc(Edit1.Text);
end;

Answer 4

哇，简单
procedure TForm1.Button1Click(Sender: TObject);
var
   s: string;//你要删除的字符串
 begin
   s := edit1.text;
   Delete(s,length(s)-2,3);//length(s)-2：长度减2，3：删三个字符
   Edit1.text:=s;
 end;