在delphi中，一个单元里定义一个类，怎么在这个类中定义一个record?注意是在类中定义，不是在单元里定义。

可以的。下面是完整的示例代码：
{
在类中定义记录
by 宋银海
2012年8月15日
}
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TRecClass=Class
type
TRRec=record
A:integer;
end;
private
public
Test:TRRec;
End;
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var
testRC:TRecClass;
begin
testRC:=TRecClass.Create;
testRC.Test.A:=3;
ShowMessage(IntToStr(testRC.Test.A));
testRC.Free;
end;
end.

type
Tclassname= record

end;

type
TownBook = record
Code : string;
Name : string;
Price : string;
OwnDays : integer;
end;

不能

有这个必要么？