a:=' ABC'; b:='ABc '; 請教如何修正下列程式碼?     清除前後空白,不分大小寫字串比對

if Strcomp(a,b) then  // check is true 
begin
 ...
 ...
end;

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

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

為何不用 if sametext(Trim(A),Trim(B)) then

water：你曾經問過Clipper 語法 轉 Delphi 語法 請教 裡面已經有利用 UpperCase function 就可以將傳入的 string 全部轉成大寫 的解答。 a:=' ABC'; b:='ABc '; // 轉大寫 a:=UpperCase(a); b:=UpperCase(b); // 去頭尾空白 a:=Trim(a); b:=Trim(b); Post 天使站長一篇Delphi 函數表給你參考！ http://delphi.ktop.com.tw/topic.php?topic_id=23846 請參考！ P.S.我曾是寫Clipper程式的人！我覺得Boland C＋＋比較接近Clipper， 但我鼓勵你往Delphi發展！ Andy Chang

------
Andy Chang

water 你好

使用CompareText() 及 Trim()即可以解決了    a:=' ABC';
b:='ABc ';
If Comparetext(Trim(a),Trim(b)) = 0 Then Begin
  //兩字串相等(不分大小寫)
End ;    附上函式宣告
Compares two strings by ordinal value without case sensitivity.
function CompareStr(const S1, S2: string): Integer;
Compares two strings case sensitively.
function CompareStr(const S1, S2: string): Integer;
去頭尾空白(Chr(0)..Chr(32))
function Trim(const S: string): string;

_______________________________________ 深藍的魚，祝您好運..........連連

sorry , 在請教一個問題: a:='1234567890abc'    b:=????( a,5,3 )  // 取a字串 從第5個字 取3個 => b is '567'    ???? 要用何函數 ?    一切無為法.如虛亦如空.如如心不動.萬法在其中

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

B := Copy(A,5,3)

老大！翻書就有了！ Inprise Delphi函數參考手冊 ----------------------------------------------------------------------名稱 類型 說明 ----------------------------------------------------------------------abort 函數 引起放棄的意外處理 abs 函數 絕對值函數 addexitproc 函數 將一過程添加到執行時的結束過程表中 addr 函數 返回指定對象的地址 adjustlinebreaks 函數 將給定字串的行分隔符調整為cr/lf序列 align 屬性 使元件位於窗口某部分 alignment 屬性 元件標籤的文字位置 allocmem 函數 在堆棧上分配給定大小的塊 allowgrayed 屬性 允許一個灰度選擇 ansicomparestr 函數 比較字串（區分大小寫） ansicomparetext 函數 比較字串（不區分大小寫） ansilowercase 函數 將字符轉換為小寫 ansiuppercase 函數 將字符轉換為大寫 append 函數 以附加的方式打開已有的檔案 arctan 函數 余切函數 assignfile 函數 給檔案變數賦一外部檔案名 assigned 函數 測試函數或過程變數是否為空 autosize 屬性 自動控制標籤的大小 background 屬性 背景色 beginthread 函數 以適當的方式建立用於內存管理的執行緒 bevelinner 屬性 元件方框的內框方式 bevelouter 屬性 元件方框的外框方式 bevelwidth 屬性 元件方框的外框寬度 blockread 函數 讀一個或多個記錄到變數中 blockwrite 函數 從變數中寫一個或多個記錄 borderstyle 屬性 邊界類型 borderwidth 屬性 邊界寬度 break 命令 終止for、while、repeat循環語句 brush 屬性 畫刷 caption 屬性 標籤文字的內容 changefileext 函數 改變檔案的副檔名 chdir 函數 改變當前目錄 checked 屬性 確定復選框選中狀態 chr 函數 返回指定序數的字符 closefile 命令 關閉打開的檔案 color 屬性 標籤的顏色 columns 屬性 顯示的列數 comparestr 函數 比較字串（區分大小寫） concat 函數 合併字串 continue 命令 繼續for、while、repeat的下一個循環 copy 函數 返回一字串的子串 cos 函數 余弦函數 ctl3d 屬性 是否具有3d效果 cursor 屬性 鼠標指針移入後的形狀 date 函數 返回當前的日期 datetimetofiledate 函數 將delphi的日期格式轉換為dos的日期格式 datetimetostr 函數 將日期時間格式轉換為字串 datetimetostring 函數 將日期時間格式轉換為字串 datetostr 函數 將日期格式轉換為字串 dayofweek 函數 返回星期的數值 dec 函數 遞減變數值 decodedate 函數 將日期格式分解為年月日 decodetime 函數 將時間格式分解為時、分、秒、毫秒 delete 函數 從字串中刪除子串 deletefile 命令 刪除檔案 diskfree 函數 返回剩餘磁盤空間的大小 disksize 函數 返回指定磁盤的容量 dispose 函數 釋放動態變數所佔的空間 disposestr 函數 釋放字串在堆棧中的內存空間 ditherbackground 命令 使背景色的色彩加重或減少50% dragcursor 屬性 當鼠標按下時光標的形狀 dragmode 屬性 按動的作用方式 dropdowncount 屬性 容許的顯示數據項的數目 editmask 屬性 編輯模式 enabled 屬性 是否使標籤呈現打開狀態 encodedate 函數 將年月日合成為日期格式 encodetime 函數 將時、分、秒、毫秒合成為時間格式 endmargin 屬性 末尾邊緣 eof 函數 對有類型或無類型檔案測試是否到檔案尾 eoln 函數 返回文本檔案的行結束狀態 erase 命令 刪除外部檔案 exceptaddr 函數 返回引起當前意外的地址 exclude 函數 從集合中刪除一些元素 exceptobject 函數 返回當前意外的索引 exit 命令 立即從當前的語句塊中退出 exp 函數 指數函數 expandfilename 函數 返回包含絕對路徑的字串 extendedselect 屬性 是否允許存在選擇模式，true時，multiselect才有意義 extractfiledir 函數 返回驅動器和路徑 extractfileext 函數 返回檔案的副檔名 extractfilename 函數 返回檔案名 extractfilepath 函數 返回指定檔案的路徑 fileage 函數 返回檔案已存在的時間 fileclose 命令 關閉指定的檔案 filecreate 命令 用指定的檔案名建立新檔案 filedatetodatetime 函數 將dos的日期格式轉換為delphi的日期格式 fileexists 函數 檢查檔案是否存在 filegatattr 函數 返回檔案的屬性 filegetdate 函數 返回檔案的dos日期時間標記 fileopen 命令 用指定的存取模式打開指定的檔案 filepos 函數 返回檔案的當前指針位置 fileread 命令 從指定的檔案讀取 filesearch 命令 在目錄中搜索指定的檔案 fileseek 函數 改變檔案的指針 filesetattr 函數 設置檔案屬性 filesetdate 函數 設置檔案的dos日期時間標記 filesize 函數 返回當前檔案的大小 filewrite 函數 對指定的檔案做寫操作 fillchar 函數 用指定的值填充連續字節的數 findclose 命令 終止findfirst/findnext序列 findfirst 命令 對指定的檔案名及屬性搜索目錄 findnext 命令 返回與檔案名及屬性匹配的下一入口 floattodecimal 函數 將浮點數轉換為十進制數 floattostrf 函數 將浮點數轉換為字串 floattostr 函數 將浮點數轉換為字串 floattotext 函數 將給定的浮點數轉換為十進制數 floattotextfmt 函數 將給定的浮點數轉換為十進制數 flush 函數 將緩衝區的內容刷新到輸出的文本檔案中 fmtloadstr 函數 從程序的資源字串表中裝載字串 fmtstr 函數 格式化一系列的參數，其結果以參數result返回 font 屬性 設置字體 format 函數 格式化一系列的參數並返回pascal字串 formatbuf 函數 格式化一系列的參數 formatdatetime 函數 用指定的格式來格式化日期和時間 formatfloat 函數 指定浮點數格式 frac 函數 返回參數的小數部分 freemem 函數 按給定大小釋放動態變數所佔的空間 getdir 函數 返回指定驅動器的當前目錄 getheapstatus 函數 返回內存管理器的當前狀態 getmem 函數 建立一指定大小的動態變數，並將指針指向該處 getmemorymanager 函數 返回內存管理器的入口點 glyph 函數 按鈕上的圖像 halt 命令 停止程序的執行並返回到操作系統 hi 函數 返回參數的高地址位 high 函數 返回參數的上限值 hint 屬性 提示信息 int 函數 返回參數的整數部分 include 函數 添加元素到集合中 insert 函數 在字串中插入子串 inttohex 函數 將整型數轉換為十六進制數 inttostr 函數 將整型數轉換為字串 ioresult 函數 返回最新的i/o操作完成狀態 isvalidident 函數 測試字串是否為有效的標識符 items 屬性 默認顯示的節點 kind 屬性 擺放樣式 largechange 屬性 最大改變值 layout 屬性 圖像佈局 length 函數 返回字串的動態長度 lines 屬性 缺省顯示內容 ln 函數 自然對數函數 lo 函數 返回參數的低地址位 loadstr 函數 從應用程序的可執行檔案中裝載字符資源 lowercase 函數 將給定的字串變為小寫 low 函數 返回參數的下限值 max 屬性 最大值 maxlength 屬性 最大長度 min 屬性 最小值 mkdir 命令 建立一子目錄 move 函數 從源到目標複製字節 multiselect 屬性 允許同時選擇幾個數據項 name 屬性 元件的名字 new 函數 建立新的動態變數並設置一指針變數指向他 newstr 函數 在堆棧上分配新的字串 now 函數 返回當前的日期和時間 odd 函數 測試參數是否為奇數 onactivate 事件 焦點移到窗體上時觸發 onclick 事件 單擊窗體空白區域觸發 ondblclick 事件 雙擊窗體空白區域觸發 onclosequery 事件 使用者試圖關閉窗體觸發 onclose 事件 窗體關閉後才觸發 oncreate 事件 窗體第一次創建時觸發 ondeactivate 事件 用戶切換到另一應用程序觸發 ondragdrop 事件 鼠標拖放操作結束時觸發 ondragover 事件 有其他元件從他上面移過觸發 onmousedown 事件 按下鼠標鍵時觸發 onmouseup 事件 釋放鼠標鍵時觸發 onmousemove 事件 移動鼠標時觸發 onhide 事件 隱藏窗體時觸發 onkeydown 事件 按下鍵盤某鍵時觸發 onkeypress 事件 按下鍵盤上的單個字符鍵時觸發 onkeyup 事件 釋放鍵盤上的某鍵時觸發 onpaint 事件 窗體上有新部分暴露出來觸發 onresize 事件 重新調整窗體大小觸發 onshow 事件 在窗體實際顯示之前瞬間觸發 ord 函數 返回序數類的序數 outlinestyle 屬性 邊框線類型 outofmemoryerror 命令 引起outofmemory意外 pageindex 屬性 頁索引 pages 屬性 頁 paramcount 函數 返回在命令行上傳遞給程序的參數數量 paramstr 函數 返回指定的命令行參數 pen 屬性 畫刷設置 pi 函數 返回圓周率pi picture 屬性 顯示圖像 pictureclosed 屬性 設置closed位圖 pictureleaf 屬性 設置leaf位圖 pictureminus 屬性 設置minus位圖 pictureopen 屬性 設置open位圖 pictureplus 屬性 設置plus位圖 pos 函數 在字串中搜索子串 pred 函數 返回先前的參數 random 函數 返回一隨機函數 randomize 函數 用一隨機數初始化內置的隨機數生成器 read 函數 對有格式的檔案，讀一檔案組件到變數中；對文本檔案，讀一個或多個值到一個或多個變數中 readln 函數 執行read過程，然後跳到檔案下一行 readonly 屬性 只讀屬性 reallocmem 函數 分配一動態變數 rename 函數 重命名外部檔案 renamefile 函數 對檔案重命名 reset 函數 打開已有的檔案 rewrite 函數 建立並打開一新的檔案 rmdir 函數 刪除空的子目錄 round 函數 將實數值捨入為整型值 runerror 函數 停止程序的執行 scrollbars 屬性 滾動條狀態 seek 函數 將檔案的當前指針移動到指定的組件上 seekeof 函數 返回檔案的檔案結束狀態 seekeoln 函數 返回檔案的行結束狀態 selectedcolor 屬性 選中顏色 setmemorymanager 函數 設置內存管理器的入口點 settextbuf 函數 給文本檔案指定i/o緩衝區 shape 屬性 顯示的形狀 showexception 函數 顯示意外消息與地址 sin 函數 正弦函數 sizeof 函數 返回參數所佔的字節數 smallchange 屬性 最小改變值 sorted 屬性 是否允許排序 sqr 函數 平方函數 sqrt 函數 平方根函數 startmargin 屬性 開始邊緣 state 屬性 元件當前狀態 str 函數 將數值轉換為字串 stralloc 函數 給以null結束的字串分配最大長度-1的緩衝區 strbufsize 函數 返回存儲在由stralloc分配的字符緩衝區的最大字符數 strcat 函數 將一字串附加到另一字串尾並返回合併的字串 strcomp 函數 比較兩個字串 strcopy 函數 將一個字串複製到另一個字串中 strdispose 函數 釋放堆棧上的字串 strecopy 函數 將一字串複製到另一個字串並返回結果字串尾部的指針 strend 函數 返回指向字串尾部的指針 stretch 屬性 自動適應元件的大小 strfmt 函數 格式化一系列的參數 stricomp 函數 比較兩個字串（不區分大小寫） stringtowidechar 函數 將ansi字串轉換為unicode字串 strlcat 函數 將一字串中的字符附加到另一字串尾並返回合併的字串 strlcomp 函數 以最大長度比較兩個字串 strlcopy 函數 將一個字串中的字符複製到另一個字串中 strlen 函數 返回字串中的字符數 strlfmt 函數 格式化一系列的參數，其結果中包含有指向目標緩衝區的指針 strlicomp 函數 以最大長度比較兩個字串（不區分大小寫） strlower 函數 將字串中的字符轉換為小寫 strmove 函數 將一個字串中的字符複製到另一個字串中 strnew 函數 在堆棧上分配一個字串 strpas 函數 將以null結束的字串轉換為pascal類的字串 strpcopy 函數 將pascal類的字串複製為以null結束的字串 strplcopy 函數 從pascal類的最大長度字串複製為以null結束的字串 strpos 函數 返回一個字串在另一個字串中首次出現指針 strrscan 函數 返回字串中最後出現字符的指針 strscan 函數 返回字串中出現首字符的指針 strtodate 函數 將字串轉換為日期格式 strtodatetime 函數 將字串轉換為日期/時間格式 strtofloat 函數 將給定的字串轉換為浮點數 strtoint 函數 將字串轉換為整型 strtointdef 函數 將字串轉換為整型或默認值 strtotime 函數 將字串轉換為時間格式 strupper 函數 將字串中的字符轉換為大寫 style 屬性 類型選擇 suce 函數 返回後繼的參數 swap 函數 交換參數的高低地址位 tabs 屬性 標記每一項的內容 tabindex 屬性 標記索引 text 屬性 顯示的文本 texttofloat 函數 將字串（以null結束的格式）轉換為浮點數 time 函數 返回當前的時間 timetostr 函數 將時間格式轉換為字串 trim 函數 從給定的字串中刪除前導和尾部的空格及控制字符 trimleft 函數 從給定的字串中刪除首部的空格及控制字符 trimright 函數 從給定的字串中刪除尾部的空格及控制字符 trunc 函數 將實型值截取為整型值 truncate 函數 截去當前檔案位置後的內容 unselectedcolor 屬性 未選中顏色 upcase 函數 將字符轉換為大寫 uppercase 函數 將給定的字串變為大寫 val 函數 將字串轉換為整型值 vararraycreate 函數 以給定的界限和維數建立變體數組 vararraydimcount 函數 返回給定變體的維數 vararrayhighbound 函數 返回給定變體數組維數的上界 vararraylock 函數 鎖定給定的變體數組 vararraylowbound 函數 返回給定變體數組維數的下界 vararrayof 函數 返回指定變體的數組元素 vararrayredim 函數 通過改變上限來調整變體的大小 vararrayunlock 函數 解鎖指定的變體數組 varastype 函數 將變體轉換為指定的類型 varcase 函數 將變體轉換為指定的類型並保存他 varclear 函數 清除指定的變體 varcopy 函數 將指定的變體複製為指定的變體 varformdatetime 函數 返回包含日期時間的變體 varisarray 函數 測試變體是否為數組 varisempty 函數 測試變體是否為unassigned varisnull 函數 測試變體是否為null vartodatetime 函數 將給定的變體轉換為日期時間 vartype 函數 將變體轉換為指定的類型並保存他 visible 屬性 元件的可見性 wantreturns 屬性 為true時，按回車鍵產生一個回車符；為false時，按下ctrl enter才產生回車符 write 命令 對有格式的檔案，寫一變數到檔案組件中；對文本檔案，寫一個或多個值到檔案中 writeln 命令 執行write過程，然後輸出一行結束標誌 widecharlentostring函數 將ansi字串轉換為unicode字串 widecharlentostrwar函數 將unicode字串轉換為ansi字串變數 widechartostring 函數 將unicode字串轉換為ansi字串 widechartostrvar 函數 將unicode字串轉換為ansi字串變數