如题,在线等

解决方案 »

  1.   

    什么意思?
    用copy,pos,慢慢搞定吧
      

  2.   

    edit1.text:=copy(1,pos('.',str)-1,str)+copy(pos('.',str)+1,length(str)-pos('.',str),str);
      

  3.   

    delete(yourstring,pos('.',yourstring),1);
      

  4.   

    利用pos()函数将该小数点找出来,然后两头一加就可以了
      

  5.   

    towenguang(吟天涯) 
    是否反了
      

  6.   

    function  p1(str:string):string;
    var
     i:integer;
     s1,s2:string;begin
     i:=pos('.',str);
     if i=0 then
     begin
     result:=str;
     exit;
     end;
     s1:=copy(str,0,i-1);
     s2:=copy(str,i+1,length(str)-i);
     result:=s1+s2;
    end;
      

  7.   

    function  p1(str:string):string;
    var
     i:integer;
     s1,s2:string;begin
     i:=pos('.',str);
     if i=0 then
     begin
     result:=str;
     exit;
     end;
     s1:=copy(str,0,i-1);
     s2:=copy(str,i+1,length(str)-i);
     s2:=p1(s2);
     result:=s1+s2;
    end;
      

  8.   

    var
       Temp :Extended;
        s   :String;
        i   :Integer;
    begin
       Temp :=StrToFloat(s);
       i    :=Trunc(Temp);
       s    :=IntToStr(i);
       edit1.Caption :=s;
    end
       
      

  9.   

    //s为带有小数点的String
    var   
      i     : Integer;
      tempStr  : String;
    begin
        tempStr :=s;   
       for i:=0 to Length(s) do
       begin
         if s[i]<>'.' then
            tempStr[i] :=s[i];
       end
     edit1.Text :=tempStr;
    end;
    //我刚开始学DELPHI,不太懂,如果有什么错误,请见谅!