Delphi 02 Delphi程式的結構

一、工程檔案

program

multiunit;
uses
sysutils,
unit1 in'
unit1.pas';
begin
//引用unit1中的變數，因為是在介面部分定義所以可以引用
strgreet:='
hello world';
//呼叫unit1中的過程 因為是在介面部分定義所以可以引用
greeting(strgreet);
//呼叫unit2中的函式;因為是在介面部分定義所以可以引用
nadd:=10
; naddfactor:=11
; writeln(getsum(nadd,naddfactor));
//writeln(10*10*pai);
//writeln(getarea(3.0));
//showunit2();
readln;
end.

二、單元檔案 unit1

unit
unit1;
inte***ce
varstrgreet:
string
; nadd:integer;
naddfactor:integer;
procedure greeting(var strgreet:string
);function getsum(var
value1,value2:integer):integer;
implementation
uses
unit2;
varpai:single=3.1415926
;procedure greeting(var strgreet:string
) ;begin
writeln(strgreet);
end;
function getsum(var
value1,value2:integer):integer;
begin
getsum:=value1 +value2;
end;
function getarea(var
r:single):single;
begin
getarea := pai * r *r;
end;
procedure
showunit2();
begin
writeln(unit2var);
end;
end.

三、單元檔案 unit2

unit

unit2;
inte***ce
varunit2var:integer=33
;implementation
end.

Delphi 第乙個hello world程式

這裡delphi做乙個簡單介紹，因為現在移動網際網路時代的崛起，桌面應用程式沒有以前那麼流行，不知道關注delphi的人還多不。用delphi開發桌面應用程式是很快的，第一聽說delphi這種語言是在一本黑客 裡面，然後就關注了一下delphi，發現delphi 挺強大的，大名鼎鼎的熊貓燒香病毒 就...

delphi讀音 delphi漢字轉拼音

loading.function getpyindexchar hzchar string char begin 的到乙個漢字的拼音頭個字母 case word hzchar 1 shl 8 word hzchar 2 of b0a1.b0c4 result a b0c5.b2c0 result b...

Delphi專案開發和Delphi學習筆記索引

最近準備做乙個用delphi客戶端呼叫.net的webservice的專案。所以把專案開發計畫和學習計畫寫在部落格上。希望對自己的技術有個促進。因為網上用delphi客戶端呼叫.net的webservice的專案和資料並不多，再加上我也沒做過客戶端程式，所以一些東東還要靠自己去鑽研。大致的計畫如下。...