大學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 , 和對應的題號）
每抽出一個，就刪除那個題號
隨機數不大於當前列表的長度