大学delphi考试答案
❶ Delphi程序设计，电大形考
非常简单来的程序，大概源30分钟左右可以完成程序编写。
但是没看到你发的图。
建立RADIO组，里面的项为加减乘除
建立RADIO组，里面的香味测验等级，即 1位数，2位数，3三位数
所谓的出题 就是 利用随机数 输出 1位数，2位数 3位数
写答案判断，就是你计算的值和和输入的值进行比较
❷ 有人知道DELPHI的帮助答案没有....怎么办
Delphi的经典书籍：
1、《Delphi 技术手册》 Ray Liscbner著 632页 65元 中国电力出版社
2、《Delphi 5 开发人员指南》 Steve Teixeira & Xavier Pacheco著 1263页 138元 机械工业出版社
3、《Delphi COM 深入编程》 Eric Harmon著 473页 48元 机械工业出版社
4、《Delphi DirectX图形与游戏程序设计》 John Ayres著 445页 45元 电子科技大学出版社
5、《Delphi 4 编程技术内幕》 Charlie Calvert著 985页 110元 机械工业出版社
6、《Delphi/Klyix 数据库开发》 Eric Harmon著 277页 29元 机械工业出版社
7、《Delphi 5.x 分布式多层应用》（三个系列） 李维著 机械工业出版社 （三本全买的话至少要260元）
8、《Delphi 6/Klyix 2 Soap/Web Service 程序设计篇》 李维著 404页 65元 机械工业出版社
9、《Delphi 深度探索》 陈省著 481页 49.8元 华中科技大学出版社
10、《Delphi 深度历险》 陈宽达著 422页 47元 科学出版社
11、《Delphi 5.X ADO/MTS/COM+高级程序设计篇》 李维著 600页 机械工业出版社(90RMB)
12、《DELPHI 5 企业级解决方案及应用剖析》
13、《Advanced Delphi Developer's Guide to ADO》 Federov, Alex, Natalia Elmanova
《Delphi5从入门到精通》，Marco Cantu著，电子工业出版社。在Delphi世界中，Marco Cantu 作为书
籍作者可说是人人皆知，Delphi从入门到精通系列更是绝对的经典。这本书虽然并不面向高端用户，但它全
面地论述了Delphi编程中的各个方面，象组件开发、多线程、图象处理、报表打印、I/O、数据库、Inter-
net应用等等，是亟待提高的初学者的不二之选。
《Delphi4编程技术内幕》，Charlie Calvert著，机械工业出版社。作者是一位经验极其丰富的高级程
序员，用深入浅出的语言，将Delphi中的许多复杂问题一一道来，令人豁然开朗。丰富的内容和独特的风格
让这本书的读者不但有技术上的收获，而且有阅读上的快乐。很多人吐血推荐的东东，高手案头必备之物。
《Delphi3开发使用手册》，机械工业出版社。由Delphi的内部开发人员所著，权威性可见一斑。 虽然
它的可读性并不是很好，但其全面、深入、权威的介绍，使得本书可以当作Delphi的使用手册来读。哪怕在
Delphi5已经发布的今天，这本书仍然有其不可替代的位置。
国外经典：
1. Mastering Delphi X Marco Cantu
2. Delphi X Developer's Guide Steve Teixeira,Xavier Pacheco
3. Charlie Calvert's Delphi 4 Unleashed Charlie Calvert
4. Delphi in a Nutshell Ray Lischner
5. Delphi com programming Eric Harmon
6. Delphi/Kylix Database Development Eric Harmon
7. Building Delphi 6 Applications Paul Kimmel
8. Delphi Developer's Guide to XML Keith Wood
国内好书：
1. 李维系列
2. Delphi深度历险 陈宽达 科学出版社
3. 参透Delphi/Kylix 乔林 铁道版
4. Delphi深度探索 陈省 华中科技大学出版社
入门好书：
不可否人，台湾的入门书往往质量要高些
1.Delphi 6 彻底研究 陈灿煌 铁道出版社
2.Delphi6实务经典 林金霖 中国铁道出版社
3.Delphi进销存程序设计 陈惟彬
4.Delphi深度编程及其项目应用开发 李存斌 汪兵 水利水电出版社
5.Delphi 高手突破 申旻 清华大学出版社
❸ Delphi 简单考试题 只写1个类 百分求解 限今晚
interface
uses ---------------------------------------------
const ICON_ID=1;
MI_ICONEVENT=WM_USER+1;
private
Normalicon, //---正常状态图标-----;
Disabledicon:Ticon; //---失效状态图标------;
Status:boolean; //----记录定义菜单标题---;
Procere Iconclickon(var msg:Tmessage); Message MI_ICONEVENT; //---托盘点击事件消息-----;
procere Changeico(ok:boolean); //----更改托盘图标-----;
procere Installico; //----安装托盘图标-----;
Procere Uninstallico;
-----------------------------------------------------
Procere Tstartform.Iconclickon;
var
P:Tpoint;
begin
if ((msg.LParam=WM_LButtondown) and (status)) then
begin
POSjkmainform.BorderStyle:=Bsnone;
POSjkmainform.WindowState:=Wsmaximized;
POSjkmainform.show;
end;
if (msg.LParam=WM_RButtondown) then
begin
Getcursorpos(p);
Popmenu.Popup(p.x,p.y);
end;
if ok11.Tag=10 then
ok.Enabled:=false
else if ok11.Tag=5 then
ok.Enabled:=true;
//
end;
//---------------the procere of icon of the Installation-----;
procere Tstartform.Installico;
var
Icondata:TnotifyIcondata;
sPath:string;
begin
sPath:=ExtractFilePath(Application.ExeName);
Normalicon:=Ticon.Create;
Disabledicon:=Ticon.Create;
Normalicon.LoadFromFile(sPath+'ico\chartenable.ico');
Disabledicon.LoadFromFile(sPath+'ico\chartdisable.ico');
Icondata.cbSize:=Sizeof(Icondata);
Icondata.Wnd:=handle;
Icondata.uID:=Icon_id;
Icondata.uFlags:=NIF_icon or NIF_message or NIF_tip;
Icondata.uCallbackMessage:=MI_iconevent;
Icondata.hIcon:=Normalicon.Handle;
Icondata.szTip:='POS 实时监控程序!';
Shell_NotifyIcon(NIM_ADD,@Icondata);
//
end;
//---------------the procere of the icon of the changeico-----;
procere Tstartform.Changeico(ok:boolean);
var
Icondata:TNotifyIcondata;
begin
Icondata.cbSize:=Sizeof(Icondata);
Icondata.Wnd:=handle;
Icondata.uID:=Icon_id;
if not ok then
begin
Icondata.hIcon:=Disabledicon.Handle;
status:=false;
popmenu.Items.Enabled:=false;
end
else
begin
Icondata.hIcon:=Normalicon.Handle;
Status:=true;
Popmenu.Items.Enabled:=true;
end;
Icondata.uFlags:=NIF_icon;
Shell_notifyicon(NiM_Modify,@Icondata);
//
end;
//--------------the procere of the icon of the Uninstallico----;
Procere Tstartform.Uninstallico;
var
Icondata:TNotifyicondata;
begin
Icondata.cbSize:=Sizeof(Icondata);
Icondata.Wnd:=handle;
Icondata.uID:=Icon_id;
Shell_Notifyicon(NIM_delete,@Icondata);
//
end;
-------------------------------------------
procere Tstartform.FormCreate(Sender: TObject);
begin
Readini;
setDatabase;
Status:=true;
Installico;
ChangeIco(true);
ShowWindow(Application.handle,SW_hide);
SetWindowLong(Application.handle,GWL_exstyle,WS_EX_ToolWindow);
CreateTempTable('temp_pos.db',true);
CreateTempTable('temp_splb.db',false);
end;-------------------------------------------------
procere Tstartform.FormClose(Sender: TObject;
var Action: TCloseAction);
begin
DataMoleform.Database_Server.connected:=false;
Uninstallico;
Normalicon.Free;
Disabledicon.Free;
if DataMoleform.Table_DBchart.Active then
DataMoleform.Table_DBchart.Active:=false;
DeleteTempTable;
end;
procere Tstartform.FormActivate(Sender: TObject);
begin
startform.Width:=0;
startform.Height:=0;
ShowWindow(Application.Handle,SW_hide);
end;
procere Tstartform.okClick(Sender: TObject);
begin
with POSjkmainform do
begin
BorderStyle:=Bsnone;
WindowState:=WSmaximized;
Show;
end;
end;
procere Tstartform.ok11Click(Sender: TObject);
begin
if status then
begin
changeico(false);
ok11.Caption:='激活监控(&A)';
POSjkmainform.Close;
ok11.Tag:=10;
end
else
begin
Changeico(true);
ok11.Caption:='停止监控(&S)';
ok11.Tag:=5;
end;
end;
procere Tstartform.exit1Click(Sender: TObject);
begin
close;
end;
end.
❹ delphi的一道选择题
答案应该是C。with语句只是为了减少代码的输入。需要对记录内的多个属性进行回访问时，完全可以记录名放答在with里，直接访问属性。
象下面的代码，完全没啥问题。
TInfo = record
No1: string;
No2: string;
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procere TForm1.BitBtn1Click(Sender: TObject);
var
Info:TInfo;
begin
with Info do
begin
No1 :='111';
No2 :='222';
end;
ShowMessage(Info.No1);
end;
❺ 求Delphi试题答案
1-
2-
3-A
4-D
5-A
6-B
7-B
8-B
9-A
10-C
11-A
12-(编译的快捷键应为Ctrl+F9
运行版的快捷键才权是F9)
13-A
14-D
15-D
16-
17-D
18-D
19-C
20-
21-
22-A
23-
24-D
25-D
❻ delphi 如何让将选择题库数据生成一道选择题，ABCD选项是随机的
我也复作过考题系统，我的办法是制：自动生成的考题是放到别外一个数据库中的，自动出题成功后所有的数据都在考卷库中，与题库是没关系的。
从题库到考卷库中选项随机的问题我是用Random(3)+1来解决的，这个函数的作用是随机产生1-4随机值，将已经移出的选项作个标记，并将答案放到 答案字段中（注：考卷数据库中的答案是根据随机值来写入数据的，考卷数据库中的答案与题库中的答案是不一样的）
总结一下：新建一个考卷数据库，出题后将出的题目放到考卷数据库中，如果新出题就先清空考卷数据库
代码：出100个题目
循环(100)
将题目放到考卷数据库中
随机值
将选项1放到考卷数据库中
记录答案
随机值
将选项2放到考卷数据库中
记录答案
随机值
将选项3放到考卷数据库中
记录答案
随机值
将选项4放到考卷数据库中
记录答案
将答案放到考卷数据库中
循环结束
❼ 高手你好，我是一名大学学生，正在自学Delphi。应朋友之请，需要制作一个具备随机抽题题库软件，求指点。
你会哪些软件？我觉得我现在用的这个LABview可以
❽ 我用Delphi做个在线考试系统，那个考试的页面怎么做
给你点提示吧，不是什么高明的方法，但很取巧：
你先做出一页卷子的框架，比如一页10道题，你可以用单选框先做出10道问题的框架，运行时动态改变标签的内容（也就是考题），这样来实现你的考试系统，HOHO
❾ 有DELPHI入门习题吗，我需要有题目有DELPHI编程的答案。。。
给你一道题目：“30个小朋友围成1圈，每人有一个号码，从1开始数“123123123...”，凡是数到3的就要出局，求出最后一个能留下的小朋友是几号。”写一个函数来计算。
答案（前几天一个热心网友做给我看的）：
type
node=^point;
point=record
num:Longint;
next:node;
end;
var
n, i:Longint;
p, q, h:node;
begin
writeln('please input the number of students:');
readln(n);
new(q); h := q;
for i := 1 to n do begin
q^.num := i;
p := q; new(q);
p^.next := q;
end;
p^.next := h;
i := 1; q := p; p := h;
while n <> 1 do begin
write(p^.num,' ',i);
if i=3 then begin
write(' out'); i := 1; dec(n);
q^.next := p^.next;
p := p^.next;
end else begin
inc(i);
q := p; p := p^.next;
end;
writeln;
end;
writeln('answer: ',p^.num);
end.
❿ 我在用delphi7制作一个简单的考试题库，可以随机从数据库中抽取题目（选择题140道，判断60道）
建一个列表，加入所有题号，（即存在INDEX , 和对应的题号）
每抽出一个，就删除那个题号
随机数不大于当前列表的长度