Giáo trình lý thuyết Lập trình căn bản B - Delphi 7

cedure btnSLXHClick(Sender: TObject); 
 procedure btnSoTuClick(Sender: TObject); 
 procedure FormCreate(Sender: TObject); 
 private 
 { Private declarations } 
 public 
 { Public declarations } 
 end; 
var 
 frmVidu: TfrmVidu; 
 s: string; //bien chung. 
implementation 
Chương 10: Kiểu Chuỗi ký tự 
Trang Bộ môn Tin Học Ứng Dụng – Khoa Khoa Học Tự Nhiên – Trường ðHCT 244 
{$R *.dfm} 
procedure TfrmVidu.btnSLXHClick(Sender: TObject); 
var slxh :integer; 
 tumoi, s2, tu :string; 
begin 
 s2 := s; //Lay chuoi da cat bo khang trang thua. 
 s2 := s2 + #32; //them phan tu cam canh. 
 tumoi := trim(edtTuMoi.Text); 
 slxh := 0; 
 while s2 '' do //s rỗng 
 begin 
 tu := copy(s2,1, pos(#32,s2)-1); 
 if tumoi = tu then inc(slxh); 
 delete(s2,1, pos(#32,s2)); 
 end; 
 edtSlxh.Text := IntToStr(slxh); 
end; 
procedure TfrmVidu.btnSoTuClick(Sender: TObject); 
var i, sotu: integer; 
begin 
 if edtChuoi.Text = '' then ShowMessage('Ban da nhap chuoi rong. 
 Hay nhap lai!') 
 else 
 begin 
 s := trim(edtChuoi.Text;); 
 while pos(#32#32,s)>0 do delete(s,pos(#32#32,s),1); 
 sotu := 0; 
 for i:=1 to length(s) do 
 if s[i]=#32 then inc(sotu); 
 edtSoTu.Text := IntToStr(sotu + 1); 
 end; 
 btnSLXH.Enabled := True; 
end; 
procedure TfrmVidu.FormCreate(Sender: TObject); 
begin 
 btnSLXH.Enabled := False; 
end; 
end. 
- Lưu dự án vào thư mục: S:\ViduDemTu 
- Biên dịch và chạy chương trình, ta có kết quả như sau: 
Chương 10: Kiểu chuỗi ký tự 
Bộ môn Tin Học Ứng Dụng – Khoa Khoa Học Tự Nhiên – Trường ðHCT Trang 245 
- Trường hợp từ mới có xuất hiện 2 lần trong chuỗi: 
Hình 22: Từ “mẹ” có xuất hiện trong chuỗi nhập 
- Trường hợp từ mới không xuất hiện lần nào trong chuỗi: 
Hình 23: Từ “nhà” không xuất hiện trong chuỗi nhập


 Phụ lục và Chương trình Simple view picture ---- 
Trang Bộ môn Tin Học Ứng Dụng – Khoa Khoa Học Tự Nhiên – Trường ðHCT 246 
PHỤ LỤC 
Phần này giới thiệu một số thành phần thông dụng và chương trình hiển thị ảnh ñơn 
giản – Simple view picture: 
1. Thẻ System 
Thành phần TTimer: ðồng hồ bấm giờ. Biểu tượng: 
Thuộc tính Ý nghĩa 
Name ðể ñặt tên ñối tượng 
Enable Nếu có giá trị true (mặc nhiên) thì tự ñộng bật sự kiện bấm giờ - OnTimer. 
Còn False thì không. 
Interval Khoảng thời gian (milliseconds) ñể kích hoạt sự kiện OnTimer 
Sự kiện OnTimer: Sự kiện ñược kích hoạt khi hết khoảng thời gian xác ñịnh trong Interval 
2. Thẻ Additional 
Thành phần TImage: Hiển thị ảnh. Biểu tượng: 
Thuộc tính Ý nghĩa 
Name ðể ñặt tên ñối tượng 
Picture Xác ñịnh hình ñược nạp (load) vào ñể hiển thị 
Và một số sự kiện quen thuộc như: OnClick, OnContextPopup, OnChange... 
3. Thẻ Win 3.1 
a. TFileListBox: Hộp danh sách liệt kê các tập tin. Biểu tượng: 
Thuộc tính Ý nghĩa 
Name ðể ñặt tên ñối tượng 
Mask Mặt nạ lọc tập tin ñược hiển thị trong nó như: *.jpg;*.gif;*.bmp 
Cursor Các kiểu con trỏ mouse khi bạn trỏ ñến ñối tượng. Mặc nhiên là crDefault. 


 Phụ lục và Chương trình Simple view picture ---- 
Bộ môn Tin Học Ứng Dụng – Khoa Khoa Học Tự Nhiên – Trường ðHCT Trang 247 
Và một số sự kiện quen thuộc như: OnClick, OnContextPopup, OnChange... 
b. TFilterComboBox: Hộp liệt kê thả lọc kiểu tập tin. Biểu tượng: 
Thuộc tính Ý nghĩa 
FileList ðể lọc các kiểu tập tin ñược hiển thị trong Hộp danh sách liệt kê các tập tin. 
Bạn Click chọn tên ñối tượng FileListBox (flbPics) ñể gắn kết vào. 
Cursor Các kiểu con trỏ mouse khi bạn trỏ ñến ñối tượng. Mặc nhiên là crDefault. 
Filter Các kiểu tập tin ñể lọc. Bạn sử dụng các ký tự ñại diện ñể nhóm lại một số 
loại tập tin như: *.doc, *.dpr, *.jpg,… Bạn Click vào biểu tượng ñể soạn 
thảo các kiểu lọc thông qua cửa sổ "Filter Editor". 
Và một số sự kiện quen thuộc như: OnClick, OnContextPopup, OnChange... 
c. TDirectoryListBox: Hộp danh sách liệt kê các thư mục. Biểu tượng: 
Thuộc tính Ý nghĩa 
FileList ðể hiển thị các tập tin trong Hộp danh sách liệt kê các tập tin. Bạn Click 
chọn tên ñối tượng FileListBox (flbPics) ñể gắn kết vào. 
TextCase Hiển thị tên ổ ñĩa là chữ in hoa (tcUpperCase) hay thường (tcLowerCase) 
Cursor Các kiểu con trỏ mouse khi bạn trỏ ñến ñối tượng. Mặc nhiên là crDefault. 
DirLabel ðể gắn tên ñối tượng nhãn dùng cho việc hiển thi ñường dẫn (path) khi bạn 
chọn mở (DClick) thư mục làm việc . 
Và một số sự kiện quen thuộc như: OnClick, OnContextPopup, OnChange... 
d. TDriveComboBox: Hộp liệt kê thả các ổ ñĩa. Biểu tượng: 
Thuộc tính Ý nghĩa 
DirList ðể hiển thị các thư mục vào trong hộp danh sách liệt kê các thư mục. Bạn 
Click chọn tên ñối tượng DirectoryListBox (dlbPics) ñể gắn kết vào. 
TextCase Hiển thị tên ổ ñĩa là chữ in hoa (tcUpperCase) hay thường (tcLowerCase) 
Cursor Các kiểu con trỏ mouse khi bạn trỏ ñến ñối tượng. Mặc nhiên là crDefault. 
Và một số sự kiện quen thuộc như: OnClick, OnContextPopup, OnChange... 
Phần này chỉ nhằm giới thiệu các thành phần cơ bản trong Windows. Trong Delphi 
còn có các thành phần khác ưu việt hơn ñó là các thành phần trên thẻ Dialogs, thẻ 
Simples,... Bạn có thể dễ dàng viết lại chương trình này thông qua các thành phần trong 2 
thẻ này. 


 Phụ lục và Chương trình Simple view picture ---- 
Trang Bộ môn Tin Học Ứng Dụng – Khoa Khoa Học Tự Nhiên – Trường ðHCT 248 
Trong tương lai, Bộ môn Tin học Ứng Dụng - Khoa Khoa Học Tự Nhiên có thể sẽ 
viết thêm phần Delphi nâng cao ñể giúp các bạn khai thác sức mạnh của Delphi như lập 
trình về Cơ sở dữ liệu, lập trình Mạng, lập trình Web, Trò chơi,... 
Chương trình hiển thị hình ảnh ñơn giản - Simple view picture, ñể hiển thị các tập tin 
hình ảnh dạng .jpg, .wmf, .bmp. Ngoài ra chương trình cũng tạo dòng chữ chạy (Marquee) 
trên thanh tiêu ñề của form theo hướng từ phải sang trái theo hướng nhìn (trái sang phải 
theo hướng màn hình), và có hiển thị ñồng hồ chạy. 
Chương trình hiển thị hình ảnh ñơn giản - Simple view picture: 
frmViewPics : TForm 
grbPics : TGroupBox 
dcbPics : TDriveComboBox 
dlbPics : TDirectoryListBox 
flbPics : TFileListBox 
fcbPics : TFilterComboBox 
lblClock : TLabel 
pnlPics : TPanel 
imgView : TImage 
tmrClock : TTimer 
 Tên của các ñối tượng 


 Phụ lục và Chương trình Simple view picture ---- 
Bộ môn Tin Học Ứng Dụng – Khoa Khoa Học Tự Nhiên – Trường ðHCT Trang 249 
ðoạn lệnh của chương trình như sau: 
unit untViewPics; 
interface 
uses 
 Windows, Messages, SysUtils, Variants, Classes, Graphics, 
Controls, Forms, Dialogs, ExtCtrls, StdCtrls, jpeg, ExtDlgs, 
FileCtrl; 
type 
 TfrmViewPics = class(TForm) 
 tmrClock: TTimer; 
 pnlPics: TPanel; 
 imgView: TImage; 
 grbPics: TGroupBox; 
 dcbPics: TDriveComboBox; 
 fcbPics: TFilterComboBox; 
 dlbPics: TDirectoryListBox; 
 flbPics: TFileListBox; 
 lblClock: TLabel; 
 procedure tmrClockTimer(Sender: TObject); 
 procedure flbPicsClick(Sender: TObject); 
 procedure FormCreate(Sender: TObject); 
 private 
 { Private declarations } 
 public 


 Phụ lục và Chương trình Simple view picture ---- 
Trang Bộ môn Tin Học Ứng Dụng – Khoa Khoa Học Tự Nhiên – Trường ðHCT 250 
 { Public declarations } 
 end; 
var 
 frmViewPics: TfrmViewPics; 
implementation 
{$R *.dfm} 
procedure TfrmViewPics.tmrClockTimer(Sender: TObject); 
begin 
 lblClock.Caption := 'ðồng hồ: ' + TimeToStr(Time); 
 Caption:= Copy(Caption,2,length(Caption)-1)+Copy(Caption,1,1); 
end; 
procedure TfrmViewPics.flbPicsClick(Sender: TObject); 
begin 
try 
 imgView.Picture.LoadFromFile(flbPics.FileName); 
except 
 on E: Exception do ShowMessage('Sorry! Tap tin anh nay bi SAI 
 kieu hoac KHONG duoc ho tro!...') 
end; 
end; 
procedure TfrmViewPics.FormCreate(Sender: TObject); 
begin 
 dcbPics.DirList := dlbPics; 
 dlbPics.FileList := flbPics; 
 flbPics.Mask := '*.jpg;*.gif;*.bmp'; 
 fcbPics.FileList := flbPics; 
 fcbPics.Filter := 'All (*.jpg, *.wmf, *.bmp)| 
 *.jpg;*wmf;*.bmp|All files (*.*)|*.*'; 
 lblClock.Font.Color := clTeal; 
 lblClock.Font.Name := 'VNarial'; {Delphi7 khong ho tro 
 font Unicode. Con Delphi8 thi ok...} 
 lblClock.Font.Size := 10; 
 lblClock.Font.Style := [fsBold]; 
 imgView.Center := True; 
 imgView.Proportional := True; 
 imgView.Stretch := False; 
 frmViewPics.Caption:='Chuong trinh hien thi hinh anh don gian - 
 Simple view picture... '; 
 frmViewPics.WindowState := wsMaximized; 
 pnlPics.Color := clGradientActiveCaption; 
 tmrClock.Enabled := True; 
 tmrClock.Interval := 150; 
end; 
end. 


 Phụ lục và Chương trình Simple view picture ---- 
Bộ môn Tin Học Ứng Dụng – Khoa Khoa Học Tự Nhiên – Trường ðHCT Trang 251 
- Lưu vào trong thư mục S:\Simple view picture 
- Biên dịch và chạy ta ñược hình ảnh như sau: 
Chương trình Simple view picture. 


 Tài liệu tham khảo & Bản quyền tác giả ---- 
Trang Bộ môn Tin Học Ứng Dụng - Khoa Khoa Học Tự Nhiên – Trường ðHCT 252 
TÀI LIỆU THAM KHẢO 
1. Borland IDD - JM, MM, HM, CC, JG (2005), Object Pascal Language 
Guide. 
2.  
3. John Barrow, Linda Miller, Katherine Malan, Helene Gelderblom (2005), 
Introducing Delphi Programming: Theory through Practice (Paperback), 
Oxford University Press, USA. 
4. John Ayres (2002), The Tomes of Delphi – Win32 Core API Windows 2000 
Edition, Wordware Publishing, Inc. 
5. Julian Bucknall (2001), The Tomes of Delphi – Algorithms and Data 
Structures, Wordware Publishing, Inc. 
6. Lê Phương Lan, Hoàng ðức Hải (2000), Giáo trình lý thuyết và bài tập 
Borland Delphi, NXB Giáo Dục, Hà Nội. 
7. Marco Cantu (2003), Mastering Delphi 7, SyBex. 
BẢN QUYỀN TÁC GIẢ 
Tài liệu này ñược viết nhằm phục vụ cho việc học tập của sinh viên ở giai ñoạn ñầu 
làm quen và học cách lập trình sự kiện như thế nào thông qua ngôn ngữ lập trình Delphi, 
môi trường xây dựng ứng dụng tức thời RAD. Tác giả sẽ upload tài liệu này lên internet 
trong thời gian gần thông qua file: “Giao trinh lap trinh can ban B – Delphi 7.pdf”. Mọi 
thông tin cần trao ñổi, xin liên hệ tác giả thông qua ñịa chỉ email: vdlinh@ctu.edu.vn. 
Cần thơ, 19 November 2010, © Vũ Duy Linh.