如题,在线等
解决方案 »
- 求月平均问题IFF
- BinToHex的问题
- TBitmap的背景色需要刷新,有没有比FillRect更快的办法呢?
- 急,如何向Form 发窗体最大化和最小化的消息!!!!!
- 讨论网络游戏封外挂的手段和实现思路(灌水的不要进).
- 哪里有介绍delphi网络编程的书籍可以下载
- BDE联接有密码的数据库,如何不弹出登录窗口?
- 这样的sql语句该怎么写?
- 用DBLookupcomboBox控件实现两个表关联操作问题?
- 小问题,大分数:如何判断TStringGrid中哪一行处于选中状态?
- delphi7中怎么没有TClientSocket和TServerSocket?
- 请问成都有哪些计算机类的公司,能给小弟说说吗?
用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,不太懂,如果有什么错误,请见谅!