עולם הדלפי

שיעור 10: ממיר יחידות עם חוצצים

בשיעור זה נבנה גרסא יותר כללית של ממיר היחידות.

במהלך השיעור, תתהה פה ושם מדוע בחרנו בפתרון מסוים. הסיבה היא שאנחנו כבר מכינים את שיעור 11, בו נשתעשע עם הממשק הויזואלי של התכנית.

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

[לראש העמוד]

פרויקט חדש המבוסס על פרויקט ישן

 מכיוון שהגרסא החדשה של תכניתנו תהיה מבוססת על הגרסא הקודמת, המשך כדלהלן:

1.      צור ספריה חדשה \Delphi_tutorial\UniCo4. העתק את הקבצים הבאים מ- \Delphi_tutorial\UniCoEn3 לספריה החדשה: unicmain.dfm, unicmain.pas ו unicoen3.dpr

2.      פתח את הפרויקט ב Delphi’s IDE.

3.      שמור את הפרויקט בשם אחר: בחר בתפריט File  ואח"כ Save Project As… ושמור אותו בשם unico4.dpr בספריה \Delphi_tutorial\UniCo4.

4.      במנהל הקבצים שלך (סייר החלונות או כל דבר אחר שאתה משתמש בו), מחק את \Delphi_tutorial\UniCo4\unicoen3.dpr.

בימים הראשונים של עבודתי עם דלפי, כל מה שעשיתי היה לפתוח פרויקט ישן ב Delpi’s IDE ואז לשומרו תחת שם חדש …אבל זה מאוד מסוכן, כפי שגיליתי בדרך הקשה. צריך לשמור אחד אחד, את כל קבצי ה- unit כקבצים חדשים בספריה חדשה (דמיין מצב עם 20 עד 40 קבצים…). לבסוף, אתה חייב לשמור את קובץ הפרויקט באותה ספריה חדשה. שכחת קובץ אחד, ביצעת שגיאה בבחירת הספריות, ואתה מערבב שני פרויקטים!

אבל למה לא להשתמש בסייר החלונות בכדי להעתיק את כל הקבצים לספריה החדשה, ואז פשוט לשנות את השם  unicoen3.dpr ל- unico4.dpr? בגלל שבקובץ פרויקט, ישנן הפניות לשמות קבצים וגם לקבצים בדיסק!

אני מעדיף את ארבעת הצעדים הפשוטים הבאים:

(1)               העתק את קבצי ה- DFM הישנים, קבצי ה- PAS וקבצי ה- DPR לספריה החדשה;

(2)               לחיצת עכבר כפולה על ה- DPR להתחיל את דלפי;

(3)               מיד שמור את קובץ ה-DPR תחת שם חדש;

(4)               מחק את קובץ ה- DPR הישן, בכדי להימנע מבלבול בהמשך.

[לראש העמוד] 

סט אחד של רכיבים

אנחנו רוצים לגרום לתכניתנו להיות מתאימה להרחבה ליותר משני סוגי המרות. זה מאוד לא מעשי לספק Radiogroup אחת פלוס Edit Box אחת פלוס Button אחד ומספר labels עבור כל סוג המרה. כיוון שראשית, תצטרך להוסיף את כל הרכיבים הללו לכל סוג חדש של המרה שתוסיף. ושנית, פשוט לא יהיה מספיק מקום על טופס אחד (למרות שנוכל לפתור זאת על ידי יצירת ממשק משוכלל עם יותר טפסים, או סט של חוצצים בטופס שלנו…אבל חשוב רגע על המורכבות שמעורבת בכך…) 

אז, בוא נשתמש באותם רכיבים ויזואלים לכל סוגי ההמרה. ובכל פעם שנעבור לסוג המרה אחר, נטען את הקבועים הבסיסיים המתאימים לו: פקטורי ההכפלה לשימוש פנימי, ושמות היחידות (mm, cm, m,…) שאנו שמים ב- Radiogroup. המשמעות היא שאנו זקוקים למספר רכיבים לבחירת סוג ההמרה. הבה נשתמש ב- menu item בתור התחלה;  לאחר מכן, נוסיף רכיב TabControl. הבה נתכנת! 

1.      פתח את ה- Menu Designer  על ידי לחיצה כפולה על הרכיב Mainmenu1.

2.      הוסף רכיב תפריט עליון נוסף על ידי לחיצה במרובע שליד "File". 

קבע את הכותרת ל &Convertion. קבע את השם לmenuConvertion. 

3.      הוסף שני רכיבי submenu. קבע את הכותרות ל- &Length ו- &Volume. קבע את השמות ל- ConvLength ו- ConvVolume.

4.      צור מטפל מאורעות (event handler) ל- ConLength. דלפי נותנת את לו השם: ConvLengthClick. טיפ: בעורך, הקלד הערות בין ה- begin  ל- end, כך שדלפי לא תמחק לך את מטפל המאורעות הריק כאשר תקפל (מספיק שתקליד //).

5.      הוסף את אותו מטפל מאורעות לרכיב התפריט ConvVolume (ראה שעור 9 עם אתה זקוק לעזרה). לאחר מכן, סגור את ה- Menu Designer.

6.      לפני שתבצע את הצעדים הבאים, כדאי שתשמור את עבודתך באמצעות File ואח"כ Save All, רק למקרה שמשהו ישתבש J

7.      אנחנו לא צריכים יותר את הרכיבים עבור המרת הנפח, אז בוא נמחק אותם. גרור את מלבן הבחירה מסביב לרכיבים, התחל מעט משמאל ל- EdVolume וגרור לכיוון התחתית וימינה. כעת, פשוט לחץ על מקש ה- DEL. על תשנה את גודלו של הטופס, כיוון שבעוד רגע, אנו הולכים להזדקק למקום הריק בצד ימין.

8.      הוסף TabControl בצד הימני של הטופס. תוכל למצוא זאת בדף ה- Win32 של פלטת הרכיבים.  

[לראש העמוד]

9.      שנה את גודלו של TabControl1, כך שיהיה מספיק מקום לכל הרכיבים אשר לשמאלו.

10. גרור את מלבן הבחירה מסביב לרכיבים בצדו השמאלי של הטופס, התחל מעט משמאל ל- Edlength וגרור לכיוון התחתית ומימין ל- RGDecimals. ב- Edit menu של דלפי, בחר Cut (או הקלד את שילוב המקשים Ctrl-X).הכל נעלם…

11. בחר ב- TabControl1 על ידי לחיצת עכבר עליו. ב- Edit menu של דלפי, בחר  ב- Paste  (או הקלד את שילוב המקשים Ctrl-V). איזו הקלה, זה עבד! (אם זה לא, בתקווה שמרת את כל הקבצים כפי שאמרתי לך…). בזמן  שכל הרכיבים עדיין מסומנים, גרור אותם מעט למטה (בערך פעמיים גובהה של ה- Edit box).

12. קבע את מאפיין ה- TabControl1 ל- Align to alClient.כעת ה- TabControl ממלא את כל אזור ה- client  בטופס.

13. ב- Object Inspector, לחץ על הכפתור ליד Tabs. ב- String list editor, הקלד את שתי השורות הבאות:

&Length

&Volume

שלושה "tabs" חדשים נוספו ל- TabControl1. שים לב: אלו אינם שלושה דפים, ה- TabControl רק יוצר את האשליה של שלושה דפים! למעשה, ישנו רק דף אחד, עם TabControl למעלה אשר מכיל שלושה TABS (חוצצים) (בכדי לקבל עוד דפים, משתמשים ב PageControl). 

14. שנה את גודל הטופס. ממדי ה- TabControl ישתנו בהתאם, כיוון שהוא client-aligned. זה מה שצריך להיות לך עד כה: 

15. שים לב שהכותרת של RGLength קוראת כעת "RGLength" (מכיוון שהיא היתה ריקה לפני הגזירה וההעתקה שביצענו). ב- Object Inspector, מחק את הכותרת של ה- radiogroup.  

[לראש העמוד]

משנים את שמות הרכיבים 

הבה נתאים כמה משמות הרכיבים למצב החדש. 

טיפ: לפני שנתחיל בפרק הזה, בחר ב- Lock Control מתפריט ה- Edit: כך לא תסתכן בהזזה של הרכיבים אשר לקח לך הרבה מאמץ למקמם. לאחר מכן, שמור את כל הקבצים. 

כעת, המשך כדלהלן: 

1.      שנה את שם קופסת העריכה (Edit box) ל- EdAmount.

2.       שנה את שם הכפתור (button) ל- BtnConvert.

3.      שנה את שמה של ה- radiogroup  הראשונה ל- RGUnitNames.

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

אמץ את קוד המקור

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

1.      בתפריט Project, בחר ב- Compile. דלפי מודיעה לך שיש שגיאות (errors). רק לחץ OK.

2.      בחלון ה- Editor, השורה עם השגיאה הראשונה מודגשת, ובחלון הקטן מתחת יש רשימה של שגיאות.

3.      תיקון ה- error הראשון הוא קל: החלף את כל המופעים של RGLength ב- RGUnitNames, החלפה גלובלית. החלף גם את BtnLenConvert  ב- BtnConvert.

4.      RGVolume לא קיים יותר:

·        מחק את השורה השניה משגרת FormCreate.

·         בשגרת UnitsConvert, שנה את השורה: 

case RGVolume.ItemIndex of

ל:

case RGUnitNames.ItemIndex of

·        בפונקציה MakeString, החלף את מבנה ה- case:

case ConvType of

0: UnitName :=RGUnitNames.Items[LineNr];

1: UnitName :=RGVolume.Items[LineNr];

בשורה הבאה:

UnitName :=RGUnitNames.Items[LineNr];

·        בשגרה SetLabelInvisible, החלף את RGVolumeNames ב- ;RGUnitNames

5.      הבה נקמפל פעם נוספת. כעת השגיאה הראשונה שהדבגר נתקל בה היא ש- EdLength לא קיים.בצע החלפה גלובלית: שנה EdLength ל- EdAmount. ובזמן שאנחנו כבר כאן, החלף גלובלית את EdVolume ב- EdAmount. טיפ: בדלפי 4, אתה יכול לפתוח במהירות את חלון הדיאלוג Replace  על ידי הקלדת Ctrl-R.

6.      בקומפילציה הבאה, נקבל תלונות על התוויות (labels) שנעלמו. טוב, בוא נקליד את השמות הנכונים בשגרה ConvertShow.  אני יודע, זה קצת טיפשי להציג את ה- (cubic centimeters) בתווית LblMM, וטריק זה עובד רק בגלל שיש לנו 8 יחידות בשני סוגי ההמרה… אבל סמוך עלי: אנו נפתור בעיה קטנה זו בשיעור הבא. בינתיים, LblCC  יהפוך ל- LblMM, LblLitter יהפוך  ל- LblCM וכן הלאה…

7.      בשגרה SetLabelInvisible, פשוט מחק את כל השורות שמכילות אחד מהמערכים הישנים של תוויות הנפח (volume labels).

8.      ובקומפילציה הבאה, לא נקבל שום שגיאה.

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

[לראש העמוד]

קביעת סוג ההמרה  

כיוון שאנחנו יכולים לקבוע את סוג ההמרה לפי החוצץ (tab) שנבחר ב- TabControl, אנחנו יכולים למחוק את המשתנה ConvType מהקריאה לשגרה וכן מכותרת השגרה. בגוף השגרה, פשוט נחליף ConvType ב- TabControl1.TabIndex

לפיכך שגרת ה- FormCreate נהפכה ל:   

procedure TFormMain.FormCreate(Sender: TObject);
begin
  RGUnitNames.ItemIndex := 2;  // meter
  UnitsConvert;   // first "automatic" conversion
end;

procedure TFormMain.BtnConvertClick(Sender: TObject);
begin
  UnitsConvert;
end;