Question

delphi7编程的问题

//mainForm文件
unit MainForm;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls,
untClassTeacher in 'untClassTeacher.pas',
untClassStudent in 'untClassStudent.pas';

type
TForm1 = class(TForm)
lbTeacher: TListBox;
lbStudent: TListBox;
btnTeacher: TButton;
btnStudent: TButton;
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
ATeacher:TTeacher;
AStudent:TStudent;

implementation

{$R *.dfm}

end.

//学生单元
unit untClassStudent;

interface

uses
controls;

type
TStudent=class
Name:String;
Sex:Boolean;
Birthday:TDate;
function Talk:string;
end;

implementation

{ TStudent }

function TStudent.Talk: string;
begin
Result:='I"m learning programming';
end;

end.
//老师单元
unit untClassTeacher;

interface
uses
controls;
type
TTeacher=class
Name:string;
Sex:Boolean;
Birthday:TDate;
TeachPost:string;
function Talk:string;
end;

implementation

{ TTeacher }

function TTeacher.Talk: string;
begin
Result:='I"m a teacher';
end;

end.

//主程序
program Exa03_02;

uses
Forms,Controls,
MainForm in 'MainForm.pas' {Form1},
untClassTeacher in 'untClassTeacher.pas',
untClassStudent in 'untClassStudent.pas';

{$R *.res}

begin
Application.Initialize;
Application.CreateForm(TForm1, Form1);
Application.Run;
end.
以下是编译信息，我是自学delphi的，这个程序弄了一个晚上弄不懂，跪求高手指点迷津啊，小僧不甚感激！
[Error] MainForm.pas(8): ',' or ';' expected but 'IN' found
[Fatal Error] MainForm.pas(9): Could not compile used unit 'untClassStudent.pas'

Answer 1

untClassTeacher in 'untClassTeacher.pas',
untClassStudent in 'untClassStudent.pas';//注释掉，不要放在系统单元调用处

ATeacher:TTeacher;
AStudent:TStudent;需要先添加引用

具体问题已实现，请参考您代码

Answer 2

把MainForm.pas第8行的“ in 'untClassTeacher.pas'”以及第9行的“in...”删掉即可。
“in xxx.pas”的用法专用于工程文件(.dpr)，或者说是program的。
工程文件使用in...是说明该工程包含哪些源文件，单元文件uses的东西是.dcu，即已经编译好的其他单元。