유수입니다.

sysutils 유닛안에 실수형과 문자형을 상호 변환해 주는 함수가 있습니다.

문자 -> 실수 : StrToFloat()

실수 -> 문자 : FloatToStr()입니다.

Ex) StrToFloat('5.28591')의 리턴값은 실수값 5.28591입니다.

     FloatToStr(38.57589')의 리턴값은 문자열 '38.57589'입니다.

참고로 특정한 포멧으로 변환하는 함수로 FloatToStrF가 있습니다.

위의 함수들에 대한 자세한 사항은 헬프파일을 참조하세요.

그리고, 저장을 할 실수 변수형은 double을 쓰면 되겠습니다.

아래 예는 빈폼에 에디트박스 한개랑 버튼 2개가 있는 간단한 예입니다.

(델파이로 작성되었지만, 이해하시는데 어려움은 없을 것입니다.)

버튼1을 누르면 에디트에 입력된 값을 실수형으로 변환해 멤버변수 double 형 F에 저

장하고 버튼2를 누르면 F에 저장되었던 실수값을 문자열로 변환해 에디트에 넣습니다.

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Edit1: TEdit;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
    F : double;
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
begin
  F := StrToFloat(Edit1.Text);
  Edit1.Text := '';
end;


procedure TForm1.Button2Click(Sender: TObject);
begin
Edit1.Text := FloatToStr(F);
end;

end.
                                                            흐르는 물 유수~