=123.4560 变成 654.321 怎么做啊 别笑话我哦 解决了马上揭帖

Question

=123.4560 变成 654.321 怎么做啊  别笑话我哦 解决了马上揭帖

Answer 1

implementation
uses strUtils;
{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);
const
  src = 123.456;
var
  str : string;
begin
  str := FloatToStr(src);
  str := ReverseString(str);
  edit1.Text := str;
end;

Answer 2

调用这个简单函数function CutString(Src: string): string;
var
  I: Integer;
begin
  for I:=Length(Src)-1 downto 2 do
    Result:=Result+Copy(Src,I,1);
end;

Answer 3

procedure TForm1.Button1Click(Sender: TObject);
var s:string;
    i,n:integer;
begin
  s:='=123.4560';
  n:=length(s);
  i:=n;
  while s[i]='0' do i:=i-1;
  while s[i]<>'=' do
    begin
      Label1.Caption:=Label1.Caption+s[i];
      i:=i-1;
    end;
end;

Answer 4

if xxx=123.4560 then
showmessage('654.321');

Answer 5

把三楼的再改一下：
procedure TForm1.Button1Click(Sender: TObject);
const
  src = '=123.456';
var
  str : string;
begin
//  str := FloatToStr(src);
  str := ReverseString(Copy(src, 2, Length(src) -1 ));
  edit1.Text := str;
end;

Answer 6

直接ShowMessage吧，
if xxx=123.4560 then
showmessage('654.321');
ok了没？

Answer 7

implementation
uses strUtils;
{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);
const
  src = '=123.4560000';
var
  str : string;
  i : integer;
begin
  str := copy(src,2,length(src)-1);
  str := ReverseString(str);
  i:=1;
  while i <= length(str) do
  begin
    if str[i] <> '0' then break;
    inc(i);
  end;  edit1.Text := copy(str,i,length(str) - i + 1);
end;

Answer 8

procedure TForm1.Button1Click(Sender: TObject);
begin
  showmessage(floattostr(strtofloat(ReverseString('123.4560'))));
end;

Answer 9

四舍五入：试试看
showmessage(FormatFloat('#0.##', strtofloat(ReverseString('123.4560'))));

Answer 10

给你了，你不试，晕
procedure TForm1.Button1Click(Sender: TObject);
begin
  showmessage(floattostr(strtofloat(ReverseString('123.000000'))));
end;

Answer 11

四舍五入保留两位小数的也给你了，你试试不就知道了，服了楼主了！
procedure TForm1.Button1Click(Sender: TObject);
begin
  showmessage(FormatFloat('#0.##',0.23556));
end;

Answer 12

showmessage(formatfloat('#########0.00',strtofloat(Reversestring('723.1234'))));

Answer 13

procedure TForm1.Button1Click(Sender: TObject);
const
  src = '=123.4560000';
var
  str : string;
  i : integer;
begin
  str := copy(src,2,length(src)-1);
  str := ReverseString(str);
  i:=1;
  while i <= length(str) do
  begin
    if str[i] <> '0' then break;
    inc(i);
  end;  str := copy(str,i,length(str) - i + 1);
  if str[1] = '.' then str := '0' + str;  edit1.Text := FormatFloat('#0.##',StrToFloat(str));
end;

Answer 14

var
  temp,b,s: string;
  i: integer;
begin
  s := '123.456';
  temp:='';
  for i := 1 to length(s) do
     begin
          b:=Trim(copy(s,length(s)-i+1,1));
          temp:=temp+b;
      end;
     edit1.text:=temp;
end;