Delphi world

שעור 10

שעור 8

שעור 7

שעור 6

שעור 5

שעור 4

שעור 3

שעור 2

שעור 1

עולם הדלפי

שיעור 9: ממיר יחידות

בוא נעשה כמה תרגילים. בוא נתכנת ממיר יחידות כללי, המבוסס על ממיר המטבעות "EuroCC". אפליקציה זו תמיר יחידות אורך (סנטימטר, מטר, אינץ',…), נפחים (ליטר, גלון,…) או כל דבר אחר שתרצה.

אחר כך, נדון בכמה דרכים להפוך את קוד המקור ליותר קומפקטי ומבני.

[לראש העמוד]

הכנות:

1. אם עדיין לא עשית זאת, הורד את הקבצים unicoen1.zip, unicoen2.zip ו unicoen3.zip ל .\Delphi_tutorial

2. צור שלוש ספריות חדשות: \Delphi_tutorial\UniCoEN1, \Delphi_tutorial\UniCoEN2 ו .\Delphi_tutorial\UniCoEN3

3. בצע "unzip" לכל אחד מקבצי ה- zip לספרייתו המתאימה. כל ספריה צריכה להכיל שלושה קבצים: קובץ DFM, קובץ PAS ו קובץ .DPR

4. פתח את unicoen1.dpr ב- Delphi (או פשוט לחץ לחיצת עכבר כפולה על הקובץ בסייר החלונות).

דף ההורדות

[לראש העמוד]

ממיר יחידות, שנעשה על ידך

UniCoEN1 מכיל תבנית של האפליקציה. קמפל את האפליקציה וראה בעצמך: היא לחלוטין לא עושה שום דבר ;-) כיוון שעליך להכניס את רוב הקוד. לא כל- כך מסובך, שכן אתה יכול ללוות קוד מה- EuroConvertor.

כך נראה הטופס (form):

בתחילת חלק המימוש (implementation) , תמצא את כל הקבועים הדרושים. אך בניגוד ל- EuroCC לא ביטאנו את היחידה הבסיסית (BASE UNIT) בכל אחד מהמטבעות האחרים:

(1 euro=40.3399 BEF, 1 euro=40.3399 FRF). כיוון שההמרות מיחידות אנגליות ליחידות אמריקאיות מבוססות על חוקים כמו 1 inch=2.54 cm, אנחנו נותנים את התוצאה השקולה במטרים. אותו דבר לגבי נפחים, התוצאה תינתן במטר רבוע. בכדי למנוע בלבול נקרא לזה פקטורי הכפלה (multiplication) במקום פקטורי המרה (conversion),כמובן שכעת נוסחאות ההמרה הן ההפך ממה שהן ב- EuroCC:

- מיחידה מסוימת ליחידה הבסיסית: BU:= Amount*Mfactor

- מיחידות בסיסיות ליחידות האחרות: Other_Unit:=BU/Mfactor

אתה יכול להשוות את תכניתך עם הפתרון, שנמצא ב- UniCoEN2.

[לראש העמוד]

מייעלים את קוד המקור

כשאתה כותב קוד מקור, נסה לשמרו קומפקטי. בדרך זו קל יותר למצוא בו שגיאות, אך חשוב יותר: יותר קל לתחזק אותו מאוחר יותר. דרך אחת לבצע זאת, היא על ידי קיבוץ מספר פרוצדורות לפרוצדורה אחת.

בפרויקט UniCoEN2, הסתכל על הפרוצדורות LengthConvert ו- VolumeConvert: צורתם הכללית זהה, רק כמה פרטים הם שונים. הבה נחליף את שתי הפרוצדורות הללו בפרוצדורה אחת: UnitsConvert.

1. בחלק הממשק (interface), החלף את שתי השורות:

procedure LengthConvert;

procedure VolumeConvert;

בשורה אחת פשוטה:

procedure UnitsConvert (ConvertType: integer);

2. בחלק המימוש (implementation), החלף את שתי הפרוצדורות LengthConvert ו- VolumeConvert בפרוצדורה אחת:

procedure TFormMain.UnitsConvert(ConvType: integer); var Amount, // amount to convert MFactor: real; // multiplication factor begin try case ConvType of 0 : begin Amount := StrToFloat(EdLength.Text); case RGLength.ItemIndex of 0 : MFactor := mfMM; 1 : MFactor := mfCM; 2 : MFactor := mfM; 3 : MFactor := mfKM; 4 : MFactor := mfInch; 5 : MFactor := mfFoot; 6 : MFactor := mfYard; 7 : MFactor := mfMile; end; end; 1 : begin Amount := StrToFloat(EdVolume.Text); case RGVolume.ItemIndex of 0 : MFactor := mfCC; 1 : MFactor := mfLiter; 2 : MFactor := mfM3; 3 : MFactor := mfInch3; 4 : MFactor := mfGalUS; 5 : MFactor := mfGalUK; 6 : MFactor := mfFoot3; 7 : MFactor := mfYard3; end; end; end; BU := Amount * MFactor; ConvertShow(ConvType); SetLabelInvisible; except on EConvertError do MessageDlg('Illegal input!', mtWarning, [mbOk], 0); end; end;

בחלק ההצהרה של UnitsConvert, שים לב למשתנה הפורמלי ConvType. הוא מלווה במילה integer: זהו הסוג של המשתנה. אנחנו משתמשים בו בכדי לציין לפרוצדורה האם לבצע המרת אורך (0) או המרת נפח (1).

שים לב לכך ששמות המשתנים וסוגם חייבים להיות זהים בחלק הממשק (interface) ובחלק המימוש (implementation)!

למה להשתמש במשתנה מסוג integer? למעשה, יכולנו להשתמש כאן במשתנה בולאני, כיוון שאנו זקוקים רק לשני ערכים שונים (משנה בולאני יכול להיות רק TRUE או FALSE). אבל בוא נתכונן לעתיד: מאוחר יותר, נוכל להשתמש ב- 2 עבור מהירות, 3 למשקל…

3. החלף את כל ההופעות של LengthConvert ב- UnitsConvert(0).

4. באופן דומה, החלף את כל ההופעות של VolumeConvert ב- UnitsConvert(1).

כאשר אתה קורא לשגרה עם פרמטרים, אתה חייב להעביר את הפרמטרים המתאימים לסדר ולסוג שברשימת הפרמטרים של השגרה. הפרמטרים שאתה מעביר לשגרה נקראים :הפרמטרים האמיתיים.

5. הבה נחליף גם את ConvertLengthShow ואת ConvertVolumeShow בפרוצדורה אחת, ConvertShow. כמו ב- UnitsConvert, נבחין בין שני סוגי ההמרות באמצעות פרמטר. החלף את שתי הפרוצדורות בפרוצדורה הבאה:

procedure TFormMain.ConvertShow(ConvType: integer); begin if (ConvType = 0) then begin LblMM.Caption := MakeString(mfMM, 0, 0); LblCM.Caption := MakeString(mfCM, 0, 1); LblMeter.Caption := MakeString(mfM, 0, 2); LblKM.Caption := MakeString(mfKM, 0, 3); LblInch.Caption := MakeString(mfInch, 0, 4); LblFoot.Caption := MakeString(mfFoot, 0, 5); LblYard.Caption := MakeString(mfYard, 0, 6); LblMile.Caption := MakeString(mfMile, 0, 7); end else begin LblCC.Caption := MakeString(mfCC, 1, 0); LblLiter.Caption := MakeString(mfLiter, 1, 1); LblM3.Caption := MakeString(mfM3, 1, 2); LblInch3.Caption := MakeString(mfInch3, 1, 3); LblGalUS.Caption := MakeString(mfGalUS, 1, 4); LblGalUK.Caption := MakeString(mfGalUK, 1, 5); LblFoot3.Caption := MakeString(mfFoot3, 1, 6); LblYard3.Caption := MakeString(mfYard3, 1, 7); end; end;

6. הוסף את הפונקציה MakeString:

function 
TFormMain.MakeString(MFactor: real; ConvType, LineNr: integer): string; var Other_Units, 
FormatStr, UnitName: string; begin if RGDecimals.ItemIndex = 0 then FormatStr 
:= '0.00' else FormatStr := '0.0000'; Other_Units:= FormatFloat(FormatStr, BU 
/ MFactor); // Make the unitname equal to the Radiogroup item case ConvType of 
0: UnitName := RGLength.Items[LineNr]; 1: UnitName := RGVolume.Items[LineNr]; 
end; MakeString := Format('%15s%', [Other_Units]) + ' ' + UnitName; end;

7. אל תשכח להוסיף הצהרה על הפונקציה לחלק הממשק (interface):

function MakeString (Mfactor: real; ConvType, LineNr: integer): string;

[לראש העמוד]

מה זו "הפונקציה" הזו?

פונקציה היא מאוד דומה לפרוצדורה, אלא שהיא מחזירה ערך. סוג הערך שהיא מחזירה צריך להיות מצוין בסוף ה- header של הפונקציה. במקרה שלנו, זהו החלק: string;

שים לב לקטע בו תמצתנו את שם היחידות (mm, cm, m,…) מחוץ לרשימת ה-Items של ה- Radiogroup. זכור: Items זו רשימת המחרוזות שמילאת על ידי ה- Object Inspector. בזמן ריצה, אתה יכול לגשת למשתנה ייחודי ברשימה זו על ידי שימוש באינדקס, הערך LineNr שנרשם בין סוגרים מרובעים. במקרה זה מבנה שקול לקוד הבא:

 case ConvType of 0 : case LineNr 
of 0 : UnitName := 'mm'; 1 : UnitName := 'cm'; 2 : UnitName := 'm'; 3 : UnitName 
:= 'km'; 4 : UnitName := 'inch'; 5 : UnitName := 'foot'; 6 : UnitName := 'yard'; 
7 : UnitName := 'mile'; end; 1 : case LineNr of 0 : UnitName := 'cc'; 1 : UnitName 
:= 'l'; 2 : UnitName := 'm3'; 3 : UnitName := 'inch3'; 4 : UnitName := 'galUS'; 
5 : UnitName := 'galUK'; 6 : UnitName := 'foot3'; 7 : UnitName := 'yard3'; end; 
end;

נו…,אז…,מה היתרון בכך? הקוד המשולב של ConvertShow ושל MakeString לא הפך ליותר קומפקטי, אבל כעת הוא יותר כללי. והוא מוכן להרחבות עתידיות, כפי שנראה בשעור 10.

אנחנו מחזירים את ערכי הפונקציה בשורה שאומרת:

MakeString := Format('%15s%', [Other_Units]) + ' ' + UnitName;

מותר לכתוב זאת גם כדלהלן, וזה מה שרוב המתכנתים עושים:

Result := Format('%15s%', [Other_Units]) + ' ' + UnitName;

Result הוא משתנה פנימי מיוחד, אבל הוא קיים בכל פונקציה.

מה עם פונקצית ה- Format הזאת? זוהי פונקצית Object Pascal שמשמשת בעיקר לעיצוב ערכים עבור פלט. ניתן לעצב מספרים וכן מחרוזות, כתלות ב format string. בדוגמה הספציפית הזו, משמעות ה- s: פרמט string (מחרוזת). משמעות ה- 15: 15 תווים. כלומר, משמעות ה- ‘%15s’: עשה שאורך המחרוזת יהיה 15 תווים, על ידי הוספת רווחים לצד שמאל. מאוד שימושי לעיצוב של מחרוזות שמכילות מספרים ואשר צריכות להיות מיושרות לשמאל.

הו כן, כמעט שכחתי לספר לך: התוויות (labels) שיקבלו את תוצאות ההמרה, מיושרות לשמאל הפעם, פשוט בדוק זאת ב- Object Inspector. מדוע? ובכן, שוב זוהי הכנה לעתיד: בשעור הבא, נציג את התוצאות ב- ListBox, ולא ניתן לישר לימין טקסט ב- ListBox. וגם, זה נתן לי הזדמנות להראות לך את פונקצית ה- Format החשובה. דאג גם להסתכל ב- help של Delphi.

[לראש העמוד]

ייעול נוסף

תכניתנו הפכה ליותר ברורה. קל יותר לראות את המבנה, כיוון שהחלקים המשותפים מקובצים יחדיו. אך יש עוד הרבה מקום לשיפור: אנחנו יכולים לקבץ גם את מטפלי המאורעות (event handlers)!

גם אם נלחץ על הכפתור BtnLenConvert או על ה- radiogroup RGLength, התכנית תבצע את אותה פעולה בדיוק: היא חייבת לקרוא ל- UnitsConvert(0). כנ"ל לגבי BtnVolConvert ו- RGVolume, כאשר התכנית חייבת לקרוא ל- UnitsConvert(1).

בפסבדו קוד, זה נראה כך:

if 
(clicked on BtnLenConvert) or (clicked on RGLength) then UnitsConvert(0) else 
if (clicked on BtnVolConvert) or (clicked on RGVolume) then UnitsConvert(1);

שלא להפתעתנו, יש לנו כבר פרוצדורה שמתאימה למשימה זו. למעשה, יש לנו כמה כאלו!

אז, בוא ניתן את כל משימות ה- "click handling" ל- BtnLenConvertClick ובוא נחלוק את מבצע המאורע (event handler) הזה בין כל ארבע ה- OnClick events. בדרך זו נוכל למחוק שלושה מטפלי מאורעות!

התקדם כך:

1. בטופס (form), בחר ב- radiogroup RGLength.

2. ב- Object Inspector, לך לעמוד "Events"

3. לחץ על החץ ליד ה- OnClick: תראה רשימה של מטפלי מאורע.

4. בחר במטפל המאורע BtnLenConvertClick מרשימה זו.

5. בדיוק באותו האופן, הקצה מטפל מאורע BtnLenConvertClick ל- OnClick event של BtnVolConvert ושל RGVolume.

6. ב- Code Editor, שנה את הקוד של מטפל המאורע הראשון כדלהלן:

 procedure TFormMain.BtnLenConvertClick(Sender: 
TObject); begin if (Sender = BtnLenConvert) or (Sender = RGLength) then UnitsConvert(0) 
else UnitsConvert(1); end;

מי הוא ה- Sender המסתורי? קיבלנו פרמטר זה מדלפי: הוא מצביע לרכיב (component) שחולל את המאורע! במקרה שלנו, זהו הרכיב שקיבל את ה- click.

7. כעת, אתה יכול למחוק את שלושת מטפלי המאורעות אשר אינם נחוצים יותר. אבל תן לי להראות לך טריק, איך לעשות זאת במהירות. פשוט מחק את הקוד מכל handler שאינך צריך יותר, אבל השאר את המילים begin ן- end. לדוגמה:

procedure TFormMain.RGLengthClick(Sender: TObject);

begin

end;

קמפל את התכנית (פשוט "הרץ" אותה, היא תתקמפל אוטומטית, אתה זוכר) אחר כך, עצור את התכנית והסתכל בעורך: שלושת ה- handlers נעלמו באופן אוטומטי, גם מחלק הממשק וגם מחלק המימוש!

[לראש העמוד]

…ועדיין יש מקום לשיפור

גם מטפלי המאורעות menu-click יכולים להיכתב טוב בדרך יותר קומפקטית.

ולבסוף, ניתן להחליף את שני מטפלי המאורעות “KeyPress” של ה- Edit-Box באחד.

אחרי כל השינויים הללו הסתכל בתוכניתנו, UniCoEN3. שהיא בוודאות הרבה יותר קומפקטית מגרסתנו הראשונה!

להתראות בשעור 10!

[לראש העמוד]

Webmaster of the DelphiLand site: http://www.festra.com


	מבנה השיעור:


	הכנות

	ממיר יחידות שנעשה על ידך

	מייעלים את קוד המקור

	מה זו הפונקציה הזו

	ייעול נוסף

	ועדיין יש מקום לשיפור