ObjectPascal編程基礎(chǔ)講義

ObjectPascal編程基礎(chǔ)講義項(xiàng)目文件－主程序programProject1;

usesForms,Unit1in'Unit1.pas'{Form1};

{$R*.res}

beginApplication.Initialize;Application.CreateForm(TForm1,Form1);Application.Run;end.

單元文件單元文件unitUnit1;interfaceusesWindows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms,Dialogs,StdCtrls;typeTForm1=class(TForm)Label1:TLabel;Edit1:TEdit;Label2:TLabel;Edit2:TEdit;Edit3:TEdit;單元文件Button1:TButton;Button2:TButton;procedureButton1Click(Sender:TObject);procedureButton2Click(Sender:TObject);private{Privatedeclarations}public{Publicdeclarations}end;

varForm1:TForm1;

implementation{$R*.dfm}單元文件procedureTForm1.Button1Click(Sender:TObject);varsno,sname:string;beginsno:=edit1.Text;sname:=edit2.Text;edit3.Text:='welcometodelphi:'+sno+sname;end;procedureTForm1.Button2Click(Sender:TObject);beginForm1.Close;end;end.

變量說(shuō)明procedureTForm1.Button1Click(Sender:TObject);vareno,ename:String;//字符串型（隱含最大長(zhǎng)度256個(gè)字符）age:Integer;//整型

sal:Real;//實(shí)型married:Boolean;//布爾型ch:Char;//字符型，變量只存放一個(gè)字符cnt：word；//無(wú)符號(hào)16位整型begin

…

…end;

運(yùn)算符ObjectPascal常用的運(yùn)算符：算術(shù)運(yùn)算符：＋、－、*、/、div（整除）、mod（求余）布爾運(yùn)算符：and（與）、or（或）、not（非）字符串運(yùn)算符：＋（字符串拼接）集合運(yùn)算符：＋（并）、－（差）、*（交）、in（屬于）關(guān)系運(yùn)算符：=、<>（不等于）、>、<、<=、>=控制語(yǔ)句－分支語(yǔ)句If條件then語(yǔ)句1else語(yǔ)句2；在第一個(gè)編輯框中輸入星期幾，然后按OK按鈕，如果輸入的是saturday或sunday，則在第2個(gè)編輯框中顯示一條信息，并把窗體變黃?？刂普Z(yǔ)句－分支語(yǔ)句procedureTForm1.Button1Click(Sender:TObject);beginif(Edit1.text='saturday')or(Edit1.text='sunday')thenbeginedit2.text:='Whyareyouworkingtoday!';//顯示一條信息

Form1.Color:=clYellow;//將窗體顏色置為黃色

endelsebeginedit2.text:='workday';Form1.Color:=clBtnFace;//將窗體顏色置為隱含顏色

end;end;條件語(yǔ)句嵌套例條件語(yǔ)句嵌套procedureTForm1.Button1Click(Sender:TObject);vargrade:integer;begingrade:=strtoint(edit1.Text);//將輸入的分?jǐn)?shù)賦值給變量gradeif(grade>=85)and(grade<=100)thenedit2.Text:='優(yōu)秀'

elseif(grade>=60)and(grade<85)then//語(yǔ)句嵌套

edit2.Text:='通過(guò)'

elseif(grade>=0)and(grade<60)then//再次嵌套

edit2.Text:='不通過(guò)'

elseedit2.Text:='成績(jī)有誤';end;設(shè)置多分支if(grade>=85)and(grade<=100)thenedit2.Text:='優(yōu)秀'//分支1elseif(grade>=60)and(grade<85)thenedit2.Text:='通過(guò)'//分支2elseif(grade>=0)and(grade<60)thenedit2.Text:='不通過(guò)'//分支3elseedit2.Text:='成績(jī)有誤';//其他分支while循環(huán)procedureTForm1.Button1Click(Sender:TObject);vari,n,sum:integer;beginsum:=0;i:=1;n:=strtoint(edit1.Text);//讀入正整數(shù)nwhilei<=ndo//當(dāng)循環(huán)beginifodd(i)thensum:=sum+i;i:=i+1;end;edit2.Text:=inttostr(sum);//將結(jié)果在編輯框中顯示end;For循環(huán)procedureTForm1.Button1Click(Sender:TObject);vari,j:integer;beginedit2.text:='';//清空edit2j:=StrToInt(edit1.text);讀入edit1中的值

fori:=1tojdoedit2.text:=edit2.text+IntToStr(i);end;異常處理procedureTForm1.OkClick(Sender:TObject);vari:integer;beginedit2.text:='';tryfori:=1tostrtoint(edit1.text)doedit2.text:=edit2.text+inttostr(i);

exceptshowmessage('輸入有錯(cuò)');

exit;

end;end;數(shù)組implementation{$R*.dfm}varcount:integer=1;//此處定義的變量在單元中是全程變量

array1:array[1..10]ofinteger;

procedureTForm1.Button1Click(Sender:TObject);“輸入確認(rèn)”vari,j,temp:integer;beginifcount=1thenedit2.Text:='';//當(dāng)輸入第1個(gè)數(shù)時(shí)，輸出編輯框清空

array1[count]:=strtoint(edit1.Text);//讀入的數(shù)據(jù)存入數(shù)組

edit1.Text:='';//數(shù)據(jù)讀入后，編輯框清空

edit1.SetFocus;//將光標(biāo)置于輸入編輯框數(shù)組

count:=count+1;//計(jì)數(shù)器加1

ifcount>10then//如果已輸入10個(gè)數(shù)，開(kāi)始排序輸出

begin//輸出處理開(kāi)始fori:=1to9do//排序

forj:=1to10-idoif(array1[j]>array1[j+1])thenbegintemp:=array1[j];array1[j]:=array1[j+1];array1[j+1]:=temp;end;

數(shù)組fori:=1to10do//輸出

edit2.Text:=edit2.Text+inttostr(array1[i])+',';count:=1;end;//輸出處理結(jié)束label2.Caption:=inttostr(count);//編輯框下顯示要輸入第幾個(gè)數(shù)end;end.記錄type

TEmployee=record//定義一個(gè)職工記錄類(lèi)型

eno:string[5];//職工號(hào)

ename:String[10];//

職工名

age:integer;//

年齡

sal:Real;//工資

marriedBoolean;//

婚否

end;

varemp1,emp2:TEmployee;emp1.age:=23;edit1.text:=emp1.ename;文件文件－定義記錄類(lèi)型implementation{$R*.dfm}typeTEmpRec=record//定義一個(gè)職工記錄類(lèi)型

ename:String[10];//定長(zhǎng)字符串a(chǎn)ge:integer;sal:real;end;文件－打開(kāi)文件var//定義單元內(nèi)的全局變量

emprec:TEmprec;//定義一個(gè)記錄型變量

EmpFile:TEmpRec;//定義文件變量

last:longint;//定義一個(gè)長(zhǎng)整型變量，

procedureTForm1.Button3Click(Sender:TObject);begin//寫(xiě)功能區(qū)中的打開(kāi)文件tryAssignFile(EmpFile,'d:\emp.$$$');//將一個(gè)文件名指定給文件型變量。//此后該變量即代表一個(gè)文件

reset(EmpFile);//打開(kāi)已有文件（若文件不存在將發(fā)生例外轉(zhuǎn)移文件－打開(kāi)文件last:=(EmpFIle);//取文件大小

seek(Emp);//將指針移到文件尾

exceptrewrite(EmpFile);//創(chuàng)建并打開(kāi)新文件

end;end;文件－寫(xiě)procedureTForm1.Button1Click(Sender:TObject);Begin//寫(xiě)文件emprec.ename:=edit1.Text;emprec.age:=strtoint(edit2.Text);emprec.sal:=strtofloat(edit3.Text);

write(Emp);//將職工記錄寫(xiě)入文件

edit1.Clear;//清除編輯框（調(diào)用edit的clear方法）

edit2.Clear;edit3.Clear;end;關(guān)閉文件procedureTForm1.Button5Click(Sender:TObject);//寫(xiě)功能區(qū)中的關(guān)閉文件beginclosefile(EmpFile);//關(guān)閉文件end;讀文件procedureTForm1.Button2Click(Sender:TObject);beginifnoteof(EmpFile)then//函數(shù)eof判斷是否已到文件尾

beginread(Emp);//讀一個(gè)記錄

edit4.text:=emprec.ename;edit5.text:=inttostr(emprec.age);edit6.text:=floattostr(emprec.sal);endelseshowmessage('文件讀完');end;程序塊程序塊可分為兩部分：可選的聲明區(qū)（在語(yǔ)句區(qū)之前）語(yǔ)句區(qū)（begin…end）聲明區(qū)變量聲明（var）常量