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;
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;
var Temp :Extended; s :String; i :Integer; begin Temp :=StrToFloat(s); i :=Trunc(Temp); s :=IntToStr(i); edit1.Caption :=s; end
//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,不太懂,如果有什么错误,请见谅!
用copy,pos,慢慢搞定吧
是否反了
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;
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;
Temp :Extended;
s :String;
i :Integer;
begin
Temp :=StrToFloat(s);
i :=Trunc(Temp);
s :=IntToStr(i);
edit1.Caption :=s;
end
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,不太懂,如果有什么错误,请见谅!