請教以下clipper語法,如何轉成delphi 語法 : @ 14,3 GET M_COMPON PICT "@!K" WHEN ""<>ALLTRIM(M_COMPON) VALID CHKF(&TMP)    READ

請教:若以 edit 為例
 a. 如何輸入一律轉為大寫
 b. 具有輸入第一字為  文字時,原先變數資料清除
            第一字為非文字時,原先變數資料保留
 c. 輸入前可做條件判斷
 d. 輸入後可做條件判斷
    條件判斷可否使用附程式? 
    附程式如何取得目前變數名稱&資料? (因為常常判斷情況一樣)    不知 Delphi 如何做到以上功能 ?? 煩先進指點一下.
大概說明用哪些觸發.特殊參數.... 讓我入門delphi        

發表人 - water 於 2004/02/19 11:26:15

------
一切無為法.如虛亦如空.如如心不動.萬法在其中

引言: 請教以下clipper語法,如何轉成delphi 語法 : @ 14,3 GET M_COMPON PICT "@!K" WHEN ""<>ALLTRIM(M_COMPON) VALID CHKF(&TMP) READ

請教:若以 edit 為例
 a. 如何輸入一律轉為大寫
 b. 具有輸入第一字為  文字時,原先變數資料清除
            第一字為非文字時,原先變數資料保留
 c. 輸入前可做條件判斷
 d. 輸入後可做條件判斷
    條件判斷可否使用附程式? 
    附程式如何取得目前變數名稱&資料? (因為常常判斷情況一樣)    不知 Delphi 如何做到以上功能 ?? 煩先進指點一下.
大概說明用哪些觸發.特殊參數.... 讓我入門delphi    

a. 利用 UpperCase function 就可以將傳入的 string 全部轉成大寫 (或設定Edit 有個 property -> CharCase ) b. 假設變數 mystr : string , mystr[1] 便為第一個 Char,再利用 a-z,A-Z有序排列的特性便可過濾是否為文字 c.利用 Edit OnKeyXXXX 等 Event 可以逐字元判斷 d. 利用 Edit OnExit 可作輸入後判斷 註 : 我不會 clipper 所以轉換幫不忙,祈見諒... ---- 我只會兩件事,這也不會,那也不會 ---- 眼見不一定為真

thk    一切無為法.如虛亦如空.如如心不動.萬法在其中

------
一切無為法.如虛亦如空.如如心不動.萬法在其中

引言: 請教以下clipper語法,如何轉成delphi 語法 : @ 14,3 GET M_COMPON PICT "@!K" WHEN ""<>ALLTRIM(M_COMPON) VALID CHKF(&TMP) READ 請教:若以 edit 為例 a. 如何輸入一律轉為大寫 還有兩種常用方式, 其一, 使用TEditMask, 可以使用類似 pict 的功能 ' b. 具有輸入第一字為 文字時,原先變數資料清除 第一字為非文字時,原先變數資料保留 在 implementation 下寫 const Alpha = ['A'..'Z', 'a'..'z']; 一樣在 onchange 下寫 if Edit1.Text[1] in Alpha then Edit1.Clear; c. 輸入前可做條件判斷 clipper 的 when 用法, 可以在 Tedit 的 onenter 上撰寫 if Edit1.Text = "" then ..... 你可以這樣測試, 放三個Tedit, 在Edit2 onenter寫 if Edit2.Text = '' then Edit3.Setfocus 再去跑程式就知道了 d. 輸入後可做條件判斷 如果你要在輸入時立刻判斷, 那就在 onchnage 寫 如果你要在輸入後離開Tedit再判斷, 那就在 onexit 寫 條件判斷可否使用附程式? 附程式如何取得目前變數名稱&資料? (因為常常判斷情況一樣) clipper 的 & 用法實在太強, 太好用了, 在Delphi中找不到能完全使用 我現在也還沒有找到可以適用&(Marco)的功能, 不過我在論譠上有看到一兩 篇如何運用動態procedure文章, 一下子找不到, 請其他網友提供一下位址! 不知 Delphi 如何做到以上功能 ?? 煩先進指點一下. 大概說明用哪些觸發.特殊參數.... 讓我入門delphi

雖然已經結案, 不過就我之前CLIPPER轉過來的心路歷程, 提供你意見 DELPHI是一個OOP, 物件導向的設計, 所以它無法像CLIPPER一樣提供 循序編譯式的做法, 就是除非你按下指定的操作才會往下, 否則就停在 原來位置!

引言: 條件判斷可否使用附程式? 附程式如何取得目前變數名稱&資料? (因為常常判斷情況一樣) clipper 的 & 用法實在太強, 太好用了, 在Delphi中找不到能完全使用 我現在也還沒有找到可以適用&(Marco)的功能, 不過我在論譠上有看到一兩 篇如何運用動態procedure文章, 一下子找不到, 請其他網友提供一下位址! 不知 Delphi 如何做到以上功能 ?? 煩先進指點一下. 大概說明用哪些觸發.特殊參數.... 讓我入門delphi 雖然已經結案, 不過就我之前CLIPPER轉過來的心路歷程, 提供你意見 DELPHI是一個OOP, 物件導向的設計, 所以它無法像CLIPPER一樣提供 循序編譯式的做法, 就是除非你按下指定的操作才會往下, 否則就停在 原來位置!

water 太早結案了, P.D 版大的解答切中問題的核心完全命中... 另想請教, Clipper 以前多是用在什麼用途上?? 現在的發展如何?? ---- 我只會兩件事,這也不會,那也不會 ---- 眼見不一定為真

我很多年以前都有寫 Clipper 的經驗，不過放下多年，有大半都不大記得，但記憶中，後期的 Clipper 已經加進一些近似 OOP 的物件， @ GET 其實只是一個 getsys ， BROWSE 更是一個 TBrowse ，要發揮其作用，必須要使用入面的 getsys 及 TBrowse 。

引言: water 太早結案了, P.D 版大的解答切中問題的核心完全命中... 另想請教, Clipper 以前多是用在什麼用途上?? 現在的發展如何??

Clipper 其實只是 xBase(dBase III/IV)內的 language 的一種伸延，使用 xbase language 語法，但可以編譯成獨立的 .EXE 檔，亦有 3rd party 的 library 支援，絕大部份的用途是用在商業上的資料庫程式上，當然那都是 DOS 平台上，以 table 為主的資料庫程式，那個時期應該有很多 Clipper 開發程式用在 DOS 加倚天的平台上。

難得遇到有clipper的同好, 一時心癢再補充一下 clipper由 87 發展到 5.2d版後即不再開發, 轉向window介面的 VO(Visual Object), 可惜 VO的生命只有短短不到兩年就玩完了 在 5.X版, CA公司的確有企圖心把clipper加入oop的觀念, 也封包了十來組ojbect的設計, TBrowser, TDBedit, TList...還有前導語法等等, 但終究難 敵window的強大魅力而下台, 但在台灣的市場上, 目前使用clipper開發系統 的使用者仍為數不少, 像我的客戶, 現在還有八套系統在DOS NOVELL的環境下 仍繼續奮鬥中, 而且還不太想換! 而clipper雖然是接續dbase所有95%的相容性, 但當時的目的是為吃下當時紅 極一時的dbase系統的開發者(的確也做到), 不過我個人認為, clipper並不能 說為是xbase的延伸, 反而是一種新的介面(TATSU兄別見怪哦), 因為 clipper可以透過 include 的結構把 c的語言架構給包容進來, 還有很多觀念是當初xbase所沒有的, 所以說它是一個新語法並不為過, 而在當時clipper可以通吃那時的dbase(dbf), foxpro(dbf), basic(dat)檔結構, 可以說是系統開發的當紅炸子雞, 全台灣的資料系統開發者至少有7成以上都用clipper來開發!

引言: 難得遇到有clipper的同好, 一時心癢再補充一下 clipper由 87 發展到 5.2d版後即不再開發, 轉向window介面的 VO(Visual Object), 可惜 VO的生命只有短短不到兩年就玩完了 在 5.X版, CA公司的確有企圖心把clipper加入oop的觀念, 也封包了十來組ojbect的設計, TBrowser, TDBedit, TList...還有前導語法等等, 但終究難 敵window的強大魅力而下台, 但在台灣的市場上, 目前使用clipper開發系統 的使用者仍為數不少, 像我的客戶, 現在還有八套系統在DOS NOVELL的環境下 仍繼續奮鬥中, 而且還不太想換!

我也曾是一個寫 Clipper 的程式員，但已經沒有做程式員的份，也沒有碰 Clipper 這東西，那時 Clipper 是相較 xbase 有彈性，那個 Tbrowse 及 getsys 真的可以任你發揮，可惜那是在這一行中的人，很多仍然以 xbase 語法去編寫 Clipper ，只用 command ，亦有那些 &(Marco) 亂放的情況，像我這些由 Clipper 5.x 開始的人，要修改亦不易。今天你要我再去修改一個 Clipper 程式，一：那個程式不要是那些 Summer 87 code，二：我要花大半天時間去研究。 再說，後期那些 Class(y) object ，FiveWin 令 Clipper 轉去 Windows 平台都要一提。其實說實在 Clipper 加上中文外掛（倚天），又要管畫面顯示問題，又要處列印問題，真的很煩。

引言: 而clipper雖然是接續dbase所有95%的相容性, 但當時的目的是為吃下當時紅 極一時的dbase系統的開發者(的確也做到), 不過我個人認為, clipper並不能 說為是xbase的延伸, 反而是一種新的介面(TATSU兄別見怪哦), 因為 clipper可以透過 include 的結構把 c的語言架構給包容進來, 還有很多觀念是當初xbase所沒有的, 所以說它是一個新語法並不為過, 而在當時clipper可以通吃那時的dbase(dbf), foxpro(dbf), basic(dat)檔結構, 可以說是系統開發的當紅炸子雞, 全台灣的資料系統開發者至少有7成以上都用clipper來開發!

哈哈哈，那我去到台灣都可能可要找到一份工作。

想不到此站竟然有那麼多"老前輩".好感動.不過幫我一下吧!!! 幫我入門deliphi吧!!,我的問題大都是基本問題,只是觀念有不清楚... 有時不知道用什麼物件來使用而以. 我之所以選擇Delphi,不學VB,VC.V...的最大原因 就是此站高手無私的幫助我. 最就又打算繼續開始寫程式,各位大大一定記的要幫我    一切無為法.如虛亦如空.如如心不動.萬法在其中

------
一切無為法.如虛亦如空.如如心不動.萬法在其中