var
s : String ;
begin
s :=edit1.text;
delete(s,pos('¥',s),length('¥'));
edit1.text:= trim(Format('¥%.2f', [strtofloat(s)]));
end;
s : String ;
begin
s :=edit1.text;
delete(s,pos('¥',s),length('¥'));
edit1.text:= trim(Format('¥%.2f', [strtofloat(s)]));
end;
解决方案 »
- word类型和字符串类型之间如何进行转换?
- 如何搜索到某一目录下的某个文件?
- 3层结构一问
- 请问在哪里可以获得 TRichTextBox 控件
- ?如何给文本框上底色
- 我知道DELPHI中有一个SelectDirectory可以打开目录选取对话框,但是是英文的。我知道还有一个中文的,请问是那个过程?
- select中的in()可以使用数组吗?
- 怎样设置TADOCONNECTION控件的DATA SOURCE?
- 我糊涂了,请问如何将SQL SERVER中建的一个数据库弄到另外一台机子上?
- 代码写的TAdoQuery怎么连接不到控件TadoConnection呢,请高手帮忙看下
- 请问截取一个字符串最右边的n个字符的函数是什么?
- 一个简单的提取表格数据的问题:如何将表格中的重复数据累加?在线等候。
procedure TForm1.Edit1Exit(Sender: TObject);
var
s : String ;
begin
s :=edit1.text;
delete(s,pos('¥',s),length('¥'));
edit1.text:= trim(Format('¥%.2f', [strtofloat(s)]));
end;
procedure TForm1.Edit1Exit(Sender: TObject);
var
s : String ;
begin
s :=edit1.text;
delete(s,pos('¥',s),length('¥'));
edit1.text:= trim(Format('¥%.2f', [strtofloat(s)]));
end;
var
s : String ;
begin
s :=edit1.text;
delete(s,pos('¥',s),length('¥'));
edit1.text:= trim(Format('¥%.2f', [strtofloat(s)]));
end;
begin
edit1.Text:=formatfloat('0.00',strtofloat(edit1.Text));
end;
begin
edit1.Text:=formatfloat('0.00',strtofloat(edit1.Text));
end;
begin
edit1.Text:=formatfloat('0.00',strtofloat(edit1.Text));
end;
试试这句话。
i:=10;
Edit1.Text:=FormatFloat('¥0.00',10);