[code delphi]
unit Unit1;

interface

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

type
TForm1 = class(TForm)
private
{ Private declarations }
public
function getWaht(what:TWhat):integer; //这里提示TWhat未定义？？？？
{ Public declarations }
end;

TWhat = record
a:string;
b:string;
c:integer;
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

end.
[/code]

1. Type
2. TWhat = record
3. a:string;
4. b:string;
5. c:integer;
6. end;
8. type
9. TForm1 = class(TForm)
10. private
11. { Private declarations }
12. public
13. function getWaht(what:TWhat):integer; //这里提示TWhat未定义？？？？
14. { Public declarations }
15. end;
17. 如上
    ===================引 用 joephoenix 文 章===================
    
    [code delphi]
    unit Unit1;
    
    interface
    
    uses
    Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
    Dialogs;
    
    type
    TForm1 = class(TForm)
    private
    { Private declarations }
    public
    function getWaht(what:TWhat):integer; //这里提示TWhat未定义？？？？
    { Public declarations }
    end;
    
    TWhat = record
    a:string;
    b:string;
    c:integer;
    end;
    
    var
    Form1: TForm1;
    
    implementation
    
    {$R *.dfm}
    
    end.
    [/code]

自定义record一定要放在TFROM之前吗？

如果你不先宣告 record , tform1 下的function 如何找到定義及引用?
===================引 用 joephoenix 文 章===================
自定义record一定要放在TFROM之前吗？

for more pls reference ADODB.pas

[code delphi]
type TPMyRecord = ^TMyRecord;
type TMyClass = class
.
.
.
end;
type TMyRecord = record
.
.
.
end;
[/code]

------
不論是否我發的文，在能力範圍皆很樂意為大家回答問題。
為了補我的能力不足之處，以及讓答案可以被重複的使用，希望大家能儘量以公開的方式問問題。
在引述到我的文時自然會儘量替各位想辦法，謝謝大家！

編輯記錄