大家帮忙看一下

Question

我把一个比较长的C翻译成DELPHI之后这句不知道应该放在哪定义
type
  Tptf1=record
    v:double;
    h:double ;
     s:double ;
end;
PTptf1=^Tptf1;
var
ptf2:Tptf1 ;type
  Tptg1=record
    v:double ;
    h:double ;
     s:double ;
end;
PTptg1=^Tptg1;
var
ptg2:Tptg1;

Answer 1

unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;type
  Tptf1=record
    v:double;
    h:double ;
    s:double ;
  end;
  PTptf1=^Tptf1;
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
    ptf1:Tptf1 ;
  public
    { Public declarations }
    ptf2:Tptf1 ;
  end;var
  Form1: TForm1;
  ptf3:Tptf1 ;
implementation{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);
var
    ptf4:Tptf1 ;
beginend;end.

Answer 2

为什么出来ptf2和ptf3，ptf4了呢？都代表什么意思