宣言エラーを無くすには？

解決

S_M_H 2005-06-13 06:45:38 No: 15581

はじめまして、DELPHI の入門者です。
基本的な事がなっていないのだと思いますが、以下のエラーが直せません。

＊やりたい事→TEdit に入れた数字を計算しようとしています。
＊TEdit に入るのは文字列？と思い数字に変換しています。

エラー内容：
＊forward または external 宣言された 'TMainForm.StrToFloat' が見つかりません

式の内容：
〜〜〜〜〜〜〜〜〜〜〜〜省略
type
    tact_49: TEdit;
〜〜〜〜〜〜〜〜〜〜〜〜省略
private
    Tact_t_49: Double;
〜〜〜〜〜〜〜〜〜〜〜〜省略
    Tact_t_49 := StrToFloat(Tact_49.Text);
〜〜〜〜〜〜〜〜〜〜〜〜省略

まだ基本が解っていない状態ですので、やさしく説明して頂けると
うれしく思います。

Windows XP/DELPHI-7 で使っています。

大豆くん 2005-06-13 07:02:39 No: 15582

新規フォームに貼り付けてみましたが問題ないようですよ。
uses に
SysUtils
がきちんとあるか確認するといいです。

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Tact_49: TEdit;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private 宣言 }
    Tact_t_49: Double;
  public
    { Public 宣言 }
  end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
Tact_t_49 := StrToFloat(Tact_49.Text);
end;

end.

S_M_H 2005-06-13 07:27:54 No: 15583

素早いご指導、ありがとうございます。

再度チェックしたら、以下の部分が入っていました。
DELPHI のヘルプを見ていて同じく入れたものです。

type
tact_49: TEdit;

function StrToFloat(const S: string): Double; overload;
↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑
〜〜〜〜〜〜〜〜〜〜〜〜省略

この部分を削除したらこのエラーは消えました。
ありがとうございました。

＊ヘルプを見て入れたのですが、無くても良いのですね？

まだほかのエラーが有るのですが、新規に書いた方が良いと思いますので、
新規に書きたいと思います。

「大豆くん」様、ありがとうございました。

S_M_H 2005-06-13 07:30:31 No: 15584

解決のチェックを忘れました、すいません、今入れました。