小時候相信大家都聽過一個很有趣的故事，就是國王的新衣，只有國王自己不知道自己沒穿衣服，其實大哥哥小時候比較喜歡女王的新衣，哈哈哈哈～～恩，原來大哥哥小時候就這麼早熟阿........(害羞....)
好拉，言歸正傳，有些不怎麼出名的歌手，其實他們有些歌曲也滿有趣的！！大哥哥最近聽到的 自然卷-魏如萱-國王的心衣 就是一首滿特別的歌，衣服也可以有很多種，原來心裡面也是可以穿衣服的，而這個衣服，是肉眼看不見的，很有趣的是歌詞一開始就有交代
"聰明的人看得見 不聰明的人看不見 我想這不是智商的問題"
是不是很貼切呢，哈哈～～
可惜Toutube 上找不到這首歌mv，只找到了這個，聲音有點小：

想聽原唱可點下面連結試聽：
   
詞:奇哥 曲:自然捲
聰明的人看得見 不聰明的人看不見
我想這不是智商的問題
做人總要講點道理
對自己要有點信心
別人說什麼你別跟著信
被騙一次兩次沒關係
被騙第三次 你有沒有長眼睛
戀愛的人看不見 失戀的人才看得見
我想這不都只是對方的問題
愛情總要講點默契
談感情難免要帶點傻勁
當然也要顧慮到投資報酬率
才不會像我媽媽常說的
怎麼揀來揀去 揀個賣燒餅的
國王的心衣 每個人都有一件
沒有SIZE分別 沒有?色點綴
國王的心衣 每個人都有意見
看得見看不見跟眼睛沒關聯
有錢的人看得見 沒錢的人看不見
我想公不公平這個大問題
只有上帝才有資格告訴你
做生意難免要靠點運氣
當然實力才是最重要的
千萬不要心存僥倖
才不會賠了夫人 又折兵
國王的心衣 每個人都有一件
沒有SIZE分別 沒有?色點綴
國王的心衣 每個人都有意見
看得見看不見跟眼睛沒關聯
國王的心衣 每個人都有一件
露一點露兩點露三點你最耀眼
國王的心衣 每個人都有意見
國王的心衣 每個人都有一件
國王的心衣 每個人都有一件

大哥哥看了這個廣告會有莫名的感動，仔細看的話，有很多光彩下不為人知的一面，是吃了多少苦，才有短暫的綻放.......http://www.nike.com.tw/g1/tw/
還有大陸很有創意的 nike 廣告 http://www.wretch.cc/video/laitzuyu5547&func=single&vid=4139345
 

陳水扁家族最近爆出了一些問題，如果是真的有問題，那只是陳水扁家族的問題嗎?我想當初支持他的人民都有問題，畢竟沒有這些人，他能有機會嗎? 會有這些想法是因為，南部地下電台很支持陳水扁，如今爆出秘密帳戶事件後，地下電台也強力抨擊陳水扁，也沒聽到地下電台自己反省自己，對自己當初"眼光"問題都沒提半點................... 大哥哥就是覺得他們一家都不太正派，尤其是陳水扁與吳淑珍，感覺就是那種很自私，不會為老百姓謀福利.......裡面可能只有陳幸妤比較不想跟這些事有牽扯，雖然她EQ有待加強....................

這則新聞大哥哥一點也都不意外，相由心生.........不知怎麼的，大哥哥就是覺得阿扁跟他老婆都不是很正派的人，所以發生這種事，真的一點也不意外..............如果在以前的朝代，還真想看他們被誅九族............. 對於馬英九，個人覺得他就是滿正派的，說話比較得體，比較有素養，操守部份相信也是ok的，總統夫人的正氣，跟阿扁老婆吳淑珍所散發出來的氣息也是兩個極端，如果今天的新聞是馬英九海外洗錢，這才會讓大哥哥跌破眼鏡！   扁家爆9.3億瑞士洗錢 更新日期:2008/08/15 08:00 記者林政忠／台北報導 前總統陳水扁昨天舉行記者會，坦承短報選舉剩餘款，這些錢由夫人吳淑珍在他不知情下匯往海外帳戶，他要向全國人民致歉，並接受批判和調查。 陳水扁說，「良心告訴我，不能再繼續騙自己、騙別人」，他決定選擇坦白，他曾做了「法律所不許可的事」，並願意就從市長到總統大選，四次選舉有關競選經費申報不實，向全國人民道歉。 壹週刊前天報導扁透過媳婦黃睿靚，將鉅額資金匯往美國，扁當時透過律師嚴詞否認，指財產已信託，不可能匯出國外。昨天上午，國民黨立委洪秀柱再度舉行記者會爆料，黃睿靚在瑞士設四個帳戶，金額超過新台幣九億三千萬元，疑涉洗錢。 隔了幾小時後，出現一百八十度轉變，陳水扁下午五時舉行記者會，坦承部分選舉結餘款匯往海外。不少民進黨人原以為扁要為清白辯護，扁承認鉅款匯國外後，有人臉色鐵青，關機不願接受採訪。 扁記者會宣讀聲明後，便以「不宜久坐」為由離開，不接受提問。至於洪秀柱質疑扁透過黃睿靚洗錢，陳水扁毫無解釋。 律師李勝琛在扁離席後表示，吳淑珍私下匯錢，扁也不清楚金額，記者追問，為何記者會前不向吳淑珍查明？律師在記者包圍下匆匆離去。扁幕僚坦言，金額應不只一筆、不是一次匯出，吳淑珍可能是委託別人處理，她自己也不清楚。 陳水扁昨天發表五點聲明。他首先表示，二○○四年三月卅一日「政治獻金法」施行前，競選經費申報法制不備，候選人申報不實，是很多政黨候選人最大困擾。 他說，總統大選馬蕭陣營申報政治獻金新台幣六點七億，剩餘三千七百萬，請問大家相信嗎？兩千年總統大選連蕭申報三億一千萬，二○○四年連宋申報八億一千八百萬；扁呂兩千年申報九億多，二○○四年申報十二億多，都比連蕭、連宋和馬蕭陣營要多。二、他不接觸選舉經費，如有剩餘，都由吳淑珍掌管，這些捐款除投注下次選舉資金，他有義務用選舉剩餘款挹注黨及候選人。三、今年初吳淑珍首度向他坦承，選舉剩餘款有部分匯往海外，是要預留卸任總統後公共之用，他馬上決定全部移做國際外交工作及其他公共用途。四、有人說是「國務機要費」匯往海外，甚至所謂「巴紐案」、「華陽史威靈案」等弊案，他有分到錢，絕非事實；「國務機要費」他全部可以交代，既無犯意、也無犯行，「巴紐案」、「華陽史威靈案」，他都作過證，絕對清白。扯出李連馬宋 籲一併偵辦五、查「興票案」時，宋楚瑜三點八億元匯到海外，查「新瑞都案」時，李登輝也利用人頭匯出十億元左右，連戰在國外投資置產。是二○○八年馬蕭陣營一定有短報獻金，籲請特偵組一併偵辦。

在台灣經過一場總統大選的大戰..................，奧運也準備要開始囉～～～～
奧運對大哥哥其實對沒有很大的吸引力，大哥哥最喜歡看的是世界盃足球賽，不過今天因為轉播權的問題，大哥哥家裡剛好有裝中華電信的mod，隨選隨看的方便，讓大哥哥每次下班後回到家沒事就會選精彩的項目觀賞，每每欲罷不能.........隔天就是掛著熊貓眼了.........
今天是中華隊出戰日本的棒球，大哥哥經過新竹市的火車站前廣場，哇～～超大螢幕，地上坐了滿坑滿谷的人，好不熱鬧說～～～雖然中華輸了，但是這種氣憤，可遇不可求阿～～～
重點來拉，下面是今年nike奧運廣告的主題曲，配合影像，可真棒～～～不過看原來的mv感覺就有差，所謂聲光效果，沒有光，效果自然就少一半拉～～請大家聽聽看吧～～～
The Killers - All These Things That I've Done

google大師是啥？就是查資料很常會用到的網頁 www.google.com，為何會叫google大師呢？因為這裡有很多朋友們的心血結晶被google蒐集，所以很多答案在上面就可以找到了喔，前幾分鐘大哥哥才剛刊登的網誌，google馬上就有了，真是太恐怖了，以往的經驗是需要幾天的時間才會被google機器人蒐集在google資料庫內，真是太神奇了，傑克～～～～～ 有圖有真相

大哥哥最近工作的需求，可能會需要用到DELPHI 7選寫一些轉檔程式，轉檔顧名思義就是很有機會處理很多字串比對的問題，剛好找到一篇文章，趕緊記錄下來，省得買書或是以後找不到^^" 大哥哥發現自己實在不是寫程式的料，初學的ok，要在深入點，可能要花比別人更多時間..........真慘，這就叫做沒慧根....... 下面文章是簡體字，所以應該是大陸人的blog，大哥哥轉成繁體了，標明一下出處吧^^ http://vampire--lover.blogspot.com/2008_06_01_archive.html Delphi 字串函數大全 記下來，省得以後找不到
uses StrUtils; 【字符串函數大全】
首部 function AnsiResemblesText(const AText, AOther: string): Boolean;
$[StrUtils.pas
功能 返回兩個字符串是否相似
說明 ANSI(American National Standards Institute)美國國家標準協會;不區分大小寫
參考 function StrUtils.SoundexProc; var StrUtils.AnsiResemblesProc
例子 CheckBox1.Checked := AnsiResemblesText(Edit1.Text, Edit2.Text);
═════════════════════
首部 function AnsiContainsText(const AText, ASubText: string): Boolean;
$[StrUtils.pas
功能 返回字符串AText是否包含子串ASubText
說明 不區分大小寫
參考 function StrUtils.AnsiUppercase; function StrUtils.AnsiPos
例子 CheckBox1.Checked := AnsiContainsText(Edit1.Text, Edit2.Text);
═════════════════════
首部 function AnsiStartsText(const ASubText, AText: string): Boolean;
$[StrUtils.pas
功能 返回字符串AText是否以子串ASubText開頭
說明 不區分大小寫
參考 function Windows.CompareString
例子 CheckBox1.Checked := AnsiStartsText(Edit1.Text, Edit2.Text);
═════════════════════
首部 function AnsiEndsText(const ASubText, AText: string): Boolean;
$[StrUtils.pas
功能 返回字符串AText是否以子串ASubText結尾
說明 不區分大小寫
參考 function Windows.CompareString
例子 CheckBox1.Checked := AnsiEndsText(Edit1.Text, Edit2.Text);
═════════════════════
首部 function AnsiReplaceText(const AText, AFromText, AToText: string):
string; $[StrUtils.pas
功能 返回字符串AText中用子串AFromText替換成子串AToText的結果
說明 不區分大小寫
參考 function SysUtils.StringReplace; type SysUtils.TReplaceFlags
例子 Edit4.Text := AnsiReplaceText(Edit1.Text, Edit2.Text, Edit3.Text);
═════════════════════
首部 function AnsiMatchText(const AText: string; const AValues: array of
string): Boolean; $[StrUtils.pas
功能 返回字符串數組AValues中是否包含字符串AText
說明 不區分大小寫
參考 function StrUtils.AnsiIndexText
例子 CheckBox1.Checked := AnsiMatchText(Edit1.Text, ['a1', 'a2', 'a3',
'a4']);
═════════════════════
首部 function AnsiIndexText(const AText: string; const AValues: array of
string): Integer; $[StrUtils.pas
功能 返回字符串AText在字符串數組AValues中的位置
說明 不區分大小寫;如果不包含則返回-1
參考 function SysUtils.AnsiSameText
例子 SpinEdit1.Value := AnsiIndexText(Edit1.Text, ['a1', 'a2', 'a3', 'a4']);
═════════════════════
首部 function AnsiContainsStr(const AText, ASubText: string): Boolean;
$[StrUtils.pas
功能 返回字符串AText是否包含子串ASubText
說明 區分大小寫
參考 function StrUtils.AnsiPos
例子 CheckBox1.Checked := AnsiContainsStr(Edit1.Text, Edit2.Text);
═════════════════════
首部 function AnsiStartsStr(const ASubText, AText: string): Boolean;
$[StrUtils.pas
功能 返回字符串AText是否以子串ASubText開頭
說明 區分大小寫
參考 function SysUtils.AnsiSameStr
例子 CheckBox1.Checked := AnsiStartsStr(Edit1.Text, Edit2.Text);
═════════════════════
首部 function AnsiEndsStr(const ASubText, AText: string): Boolean;
$[StrUtils.pas
功能 返回字符串AText是否以子串ASubText結尾
說明 區分大小寫
參考 function SysUtils.AnsiSameStr
例子 CheckBox1.Checked := AnsiEndsStr(Edit1.Text, Edit2.Text);
═════════════════════
首部 function AnsiReplaceStr(const AText, AFromText, AToText: string):
string; $[StrUtils.pas
功能 返回字符串AText中用子串AFromText替換成子串AToText的結果
說明 區分大小寫
參考 function SysUtils.StringReplace; type SysUtils.TReplaceFlags
例子 Edit4.Text := AnsiReplaceStr(Edit1.Text, Edit2.Text, Edit3.Text);
═════════════════════
首部 function AnsiMatchStr(const AText: string; const AValues: array of
string): Boolean; $[StrUtils.pas
功能 返回字符串數組AValues中是否包含字符串AText
說明 區分大小寫
參考 function StrUtils.AnsiIndexStr
例子 CheckBox1.Checked := AnsiMatchStr(Edit1.Text, ['a1', 'a2', 'a3', 'a4']);
═════════════════════
首部 function AnsiIndexStr(const AText: string; const AValues: array of
string): Integer; $[StrUtils.pas
功能 返回字符串AText在字符串數組AValues中的位置
說明 區分大小寫
參考 function SysUtils.AnsiSameStr
例子 SpinEdit1.Value := AnsiIndexStr(Edit1.Text, ['a1', 'a2', 'a3', 'a4']);
═════════════════════
首部 function DupeString(const AText: string; ACount: Integer): string;
$[StrUtils.pas
功能 返回字符串AText的ACount個復本
說明 當ACount為0時返回''
參考 function System.SetLength
例子 Edit3.Text := DupeString(Edit1.Text, SpinEdit1.Value);
═════════════════════
首部 function ReverseString(const AText: string): string; $ [StrUtils.pas
功能 返回字符串AText的反序
說明 ReverseString('1234') = '4321'
參考 function System.SetLength
例子 Edit3.Text := ReverseString(Edit1.Text);
═════════════════════
首部 function StuffString(const AText: string; AStart, ALength: Cardinal;
const ASubText: string): string; $[StrUtils.pas
功能 返回嵌套字符串
說明 AStart:嵌套開始位置;ALength:嵌套長度;StuffString('abcd', 2, 0, '12') = 'a12bcd'
參考 function System.Copy
例子 Edit3.Text := StuffString(Edit1.Text, SpinEdit1.Value, SpinEdit2.Value,
Edit2.Text);
═════════════════════
首部 function RandomFrom(const AValues: array of string): string; overload;
$[StrUtils.pas
功能 隨機返回字符串數組AValues中的一個元素
說明 之前建議執行Randomize
參考 function System.Random
例子 Randomize; Edit3.Text := RandomFrom(['a1', 'a2', 'a3', 'a4']);
═════════════════════
首部 function IfThen(AValue: Boolean; const ATrue: string; AFalse: string =
''): string; overload; $[StrUtils.pas
功能 返回指定的邏輯字符串
說明 IfThen(True, '是', '否') = '是';IfThen(False, '是', '否') = '否'
參考
例子 Edit3.Text := IfThen(CheckBox1.Checked, Edit1.Text, Edit2.Text);
═════════════════════
首部 function LeftStr(const AText: string; const ACount: Integer): string;
$[StrUtils.pas
功能 返回字符串AText左邊的ACount個字符
說明 LeftStr('123456', 3) = '123'
參考 function System.Copy
例子 Edit3.Text := LeftStr(Edit1.Text, SpinEdit1.Value);
═════════════════════
首部 function RightStr(const AText: string; const ACount: Integer): string;
$[StrUtils.pas
功能 返回字符串AText右邊的ACount個字符
說明 RightStr('123456', 3) = '456'
參考 function System.Copy
例子 Edit3.Text := RightStr(Edit1.Text, SpinEdit1.Value);
═════════════════════
首部 function MidStr(const AText: string; const AStart, ACount: Integer):
string; $[StrUtils.pas
功能 返回字符串AText從AStart開始的ACount個字符
說明 其實就是Copy
參考 function System.Copy
例子 Edit3.Text := MidStr(Edit1.Text, SpinEdit1.Value, SpinEdit2.Value);
═════════════════════
首部 function SearchBuf(Buf: PChar; BufLen: Integer; SelStart, SelLength:
Integer; SearchString: String; Options: TStringSearchOptions = [soDown]):
PChar; $[StrUtils.pas
功能 返回第一個搜索到的指針位置
說明 這函數常用於文本中搜索字符串
參考
例子
///////Begin SearchBuf
function SearchEdit(EditControl: TCustomEdit; const SearchString: String;
SearchOptions: TStringSearchOptions; FindFirst: Boolean = False): Boolean;
var
Buffer, P: PChar;
Size: Word;
begin
Result := False;
if (Length(SearchString) = 0) then Exit;
Size := EditControl.GetTextLen;
if (Size = 0) then Exit;
Buffer := StrAlloc(Size + 1);
try
EditControl.GetTextBuf(Buffer, Size + 1);
P := SearchBuf(Buffer, Size, EditControl.SelStart, EditControl.SelLength,
SearchString, SearchOptions);
if P <> nil then begin
EditControl.SelStart := P - Buffer;
EditControl.SelLength := Length(SearchString);
Result := True;
end;
finally
StrDispose(Buffer);
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
var
SearchOptions: TStringSearchOptions;
begin
SearchOptions := [];
if CheckBox1.Checked then
Include(SearchOptions, soDown);
if CheckBox2.Checked then
Include(SearchOptions, soMatchCase);
if CheckBox3.Checked then
Include(SearchOptions, soWholeWord);
SearchEdit(Memo1, Edit1.Text, SearchOptions);
Memo1.SetFocus;
end;
///////End SearchBuf
═════════════════════
首部 function Soundex(const AText: string; ALength: TSoundexLength = 4):
string; $[StrUtils.pas
功能 返回探測字符串
說明 根據探測法(Soundex)可以找到相進的字符串;
參考
例子 Edit2.Text := Soundex(Edit1.Text, SpinEdit1.Value);
═════════════════════
首部 function SoundexInt(const AText: string; ALength: TSoundexIntLength =
4): Integer; $[StrUtils.pas
功能 返回探測整數
說明 ALength的值越大解碼準確率越高
參考
例子 SpinEdit2.Value := SoundexInt(Edit1.Text, SpinEdit1.Value);
═════════════════════
首部 function DecodeSoundexInt(AValue: Integer): string; $ [StrUtils.pas
功能 返回探測整數的解碼
說明 DecodeSoundexInt(SoundexInt('hello')) 相當於 Soundex('hello')
參考
例子 Edit2.Text := DecodeSoundexInt(SpinEdit2.Value);
═════════════════════
首部 function SoundexWord(const AText: string): Word; $[StrUtils.pas
功能 返回探測文字數值
說明 沒有參數ALength已經固定為4
參考
例子 SpinEdit2.Value := SoundexWord(Edit1.Text);
═════════════════════
首部 function DecodeSoundexWord(AValue: Word): string; $ [StrUtils.pas
功能 返回探測文字數值的解碼
說明 DecodeSoundexWord(SoundexWord('hello')) 相當於 Soundex('hello')
參考
例子 Edit2.Text := DecodeSoundexWord(SpinEdit2.Value);
═════════════════════
首部 function SoundexSimilar(const AText, AOther: string; ALength:
TSoundexLength = 4): Boolean; $[StrUtils.pas
功能 返回兩個字符串的探測字符串是否相同
說明 Result := Soundex(AText, ALength) = Soundex(AOther, ALength)
參考
例子 CheckBox1.Checked := SoundexSimilar(Edit1.Text, Edit2.Text,
SpinEdit1.Value);
═════════════════════
首部 function SoundexCompare(const AText, AOther: string; ALength:
TSoundexLength = 4): Integer; $[StrUtils.pas
功能 返回比較兩個字符串的探測字符串的結果
說明 Result := AnsiCompareStr(Soundex(AText, ALength), Soundex (AOther,
ALength))
參考 function SysUtils.AnsiCompareStr
例子 SpinEdit2.Value := SoundexCompare(Edit1.Text, Edit2.Text,
SpinEdit1.Value);
═════════════════════
首部 function SoundexProc(const AText, AOther: string): Boolean;
$[StrUtils.pas
功能 調用SoundexSimilar返回兩個字符串的探測字符串是否相同
說明 系統變量AnsiResemblesProc的默認值
參考 function StrUtils.AnsiResemblesText
例子 [var AnsiResemblesProc: TCompareTextProc = SoundexProc;]
═════════════════════
首部 function NewStr(const S: string): PString; deprecated; $ [SysUtils.pas
功能 返回一個新的字符串指針地址
說明 字符串S為空時返回NullStr
參考 procedure System.New
例子
////////Begin NewStr,DisposeStr
procedure TForm1.Button1Click(Sender: TObject);
var
P: PString;
begin
P := NewStr(Edit1.Text);
Edit2.Text := P^;
DisposeStr(P);
end;
////////End NewStr,DisposeStr
═════════════════════
首部 procedure DisposeStr(P: PString); deprecated; $[SysUtils.pas
功能 釋放字符串指針P資源
說明 配合函數NewStr使用
參考 procedure System.Dispose
例子 <如上參見,如下參見>
═════════════════════
首部 procedure AssignStr(var P: PString; const S: string); deprecated;
$[SysUtils.pas
功能 將字符串S更新給字符串指針P
說明 更新值時會釋放以前字符串指針的資源
參考 function SysUtils.NewStr;function SysUtils.DisposeStr
例子
////////Begin AssignStr
procedure TForm1.Button1Click(Sender: TObject);
var
P: PString;
begin
P := nil;
AssignStr(P, Edit1.Text);
Edit2.Text := P^;
DisposeStr(P);
end;
////////End AssignStr
═════════════════════
首部 procedure AppendStr(var Dest: string; const S: string); deprecated;
$[SysUtils.pas
功能 在字符串Dest後追加字符串S
說明 相當於Dest := Dest + S;Delphi6已經不建議使用
參考
例子
////////Begin AppendStr
procedure TForm1.Button1Click(Sender: TObject);
var
S: string;
begin
S := Edit2.Text;
AppendStr(S, Edit1.Text);
Edit2.Text := S;
end;
////////End AppendStr
═════════════════════
首部 function UpperCase(const S: string): string; $[SysUtils.pas
功能 返回字符串S的大寫形式
說明 非小寫字符不處理
參考 procedure System.SetLength
例子 Edit2.Text := UpperCase(Edit1.Text);
═════════════════════
首部 function LowerCase(const S: string): string; $[SysUtils.pas
功能 返回字符串S的小寫形式
說明 非大寫字符不處理
參考 procedure System.SetLength
例子 Edit2.Text := LowerCase(Edit1.Text);
═════════════════════
首部 function CompareStr(const S1, S2: string): Integer; $ [SysUtils.pas
功能 返回比較兩個字符
說明 當S1>S2返回值>0;當S1<0;當s1=s2返回值=0;區分大小寫>
例子 SpinEdit1.Value := CompareStr(Edit1.Text, Edit2.Text);
═════════════════════
首部 function CompareMem(P1, P2: Pointer; Length: Integer): Boolean;
assembler; $[SysUtils.pas
功能 返回比較兩個內存指針
說明 CompareMem(PChar('12a'), PChar('12c'), 2)=True;CompareMem(PChar ('12a'),
PChar('12c'), 3)=False
參考
例子 CheckBox1.Checked := CompareMem(Self, Form1, 8);
═════════════════════
首部 function CompareText(const S1, S2: string): Integer; $ [SysUtils.pas
功能 返回比較兩個字符串
說明 不區分大小寫
參考
例子 SpinEdit1.Value := CompareText(Edit1.Text, Edit2.Text);
═════════════════════
首部 function SameText(const S1, S2: string): Boolean; $ [SysUtils.pas
功能 返回兩個字符串是否相等
說明 不區分大小寫
參考
例子 CheckBox1.Checked := SameText(Edit1.Text, Edit2.Text);
═════════════════════
首部 function AnsiUpperCase(const S: string): string; $[SysUtils.pas
功能 返回字符串S的大寫形式
說明 ANSI(American National Standards Institute)美國國家標準協會;非小寫的字符不變
參考 function Windows.CharUpperBuff
例子 Edit2.Text := AnsiUpperCase(Edit1.Text);
═════════════════════
首部 function AnsiLowerCase(const S: string): string; $[SysUtils.pas
功能 返回字符串S的小寫形式
說明 非大寫字符不處理
參考 function Windows.CharLowerBuff
例子 Edit2.Text := AnsiLowerCase(Edit1.Text);
═════════════════════
首部 function AnsiCompareStr(const S1, S2: string): Integer; $ [SysUtils.pas
功能 反回比較兩個字符串
說明 當S1>S2返回值>0;當S1<0;當s1=s2返回值=0;區分大小寫>S2返回值>0;當S1<0;當s1=s2返回值=0;不區分大小寫>S2返回值>0;當S1<0;當s1=s2返回值=0;區分大小寫>S2返回值>0;當S1<0;當s1=s2返回值=0;不區分大小寫;ignore(忽>S2返回值>0;當S1<0;當s1=s2返回值=0;區分大小寫;length(長>S2返回值>0;當S1<0;當s1=s2返回值=0;不區分大小寫>S2返回值>0;當S1<0;當s1=s2返回值=0;區分大小寫>S2返回值>0;當S1<0;當s1=s2返回值=0;不區分大小寫 ttextlinebreakstyle =" {$IFDEF">
═════════════════════
首部 function IsValidIdent(const Ident: string): Boolean; $ [SysUtils.pas
功能 返回字符串Ident是否是正確的標識符
說明 標識符::字母|下劃線[字母|下劃線|數字]...
參考
例子 CheckBox1.Checked := IsValidIdent(Edit1.Text);
═════════════════════
首部 function IntToStr(Value: Integer): string; overload; $ [SysUtils.pas
首部 function IntToStr(Value: Int64): string; overload; $ [SysUtils.pas
功能 返回整數Value轉換成字符串
說明 Format('%d', [Value])
參考 function SysUtils.FmtStr
例子 Edit2.Text := IntToStr(SpinEdit1.Value);
═════════════════════
首部 function IntToHex(Value: Integer; Digits: Integer): string; overload;
$[SysUtils.pas
首部 function IntToHex(Value: Int64; Digits: Integer): string; overload;
$[SysUtils.pas
功能 返回整數Value轉換成十六進製表現結果;Format('%.*x', [Digits, Value])
說明 參數Digits指定字符最小寬度;最小寬度不足時將用0填充
參考 function SysUtils.FmtStr
例子 Edit2.Text := IntToHex(SpinEdit1.Value, SpinEdit2.Value);
═════════════════════
首部 function StrToInt(const S: string): Integer; $[SysUtils.pas
功能 返回字符串S轉換成整數
說明 字符串非整數表達時將引起異常
參考 procedure System.Val
例子 SpinEdit1.Value := StrToInt(Edit1.Text);
═════════════════════
首部 function StrToIntDef(const S: string; Default: Integer): Integer;
$[SysUtils.pas
功能 返回字符串S轉換成整數
說明 字符串非整數表達時則返回默認值Default
參考 procedure System.Val
例子 SpinEdit1.Value := StrToIntDef(Edit1.Text, 0);
═════════════════════
首部 function TryStrToInt(const S: string; out Value: Integer): Boolean;
$[SysUtils.pas
功能 返回字符串S轉換成整數Value是否成功
說明 字符串非整數表達時返回False並且Value將輸出為0
nbsp; 參考 procedure System.Val
例子
///////Begin TryStrToInt
procedure TForm1.Button1Click(Sender: TObject);
var
I: Integer;
begin
CheckBox1.Checked := TryStrToInt(Edit1.Text, I);
SpinEdit1.Value := I;
end;
///////End TryStrToInt
═════════════════════
首部 function StrToInt64(const S: string): Int64; $[SysUtils.pas
功能 返回字符串S轉換成六十四位整數
說明 字符串非六十四位整數表達時將引起異常
參考 procedure System.Val
例子 SpinEdit1.Value := StrToInt64(Edit1.Text);
═════════════════════
首部 function StrToInt64Def(const S: string; const Default: Int64): Int64;
$[SysUtils.pas
功能 返回字符串S轉換成六十四位整數
說明 字符串非六十四位整數表達時則返回默認值Default
參考 procedure System.Val
例子 SpinEdit1.Value := StrToInt64Def(Edit1.Text, 0);
═════════════════════
首部 function TryStrToInt64(const S: string; out Value: Int64): Boolean;
$[SysUtils.pas
功能 返回字符串S轉換成六十四位整數Value是否成功
說明 字符串非六十四位整數表達時返回False並且Value將輸出為0
參考 procedure System.Val
例子
///////Begin TryStrToInt64
procedure TForm1.Button1Click(Sender: TObject);
var
I: Int64;
begin
CheckBox1.Checked := TryStrToInt64(Edit1.Text, I);
SpinEdit1.Value := I;
end;
///////End TryStrToInt64
═════════════════════
首部 function StrToBool(const S: string): Boolean; $[SysUtils.pas
功能 返回字符串S轉換成邏輯值
說明 字符非邏輯表達時將引起異常
參考 function SysUtils.TryStrToBool
例子 CheckBox1.Checked := StrToBool(Edit1.Text);
═════════════════════
首部 function StrToBoolDef(const S: string; const Default: Boolean):
Boolean; $[SysUtils.pas
功能 返回字符串S轉換成邏輯值
說明 字符非邏輯表達時則返回默認值Default
參考 function SysUtils.TryStrToBool
例子 CheckBox1.Checked := StrToBoolDef(Edit1.Text, False);
═════════════════════
首部 function TryStrToBool(const S: string; out Value: Boolean): Boolean;
$[SysUtils.pas
功能 返回字符串S轉換成邏輯值Value是否成功
說明 [注意]0為假非0為真;不是'True'和'False';Delphi6 Bug 如下修正
參考 function SysUtils.AnsiSameText;var SysUtils.TrueBoolStrs;var
SysUtils.FalseBoolStrs
例子
///////Begin TryStrToBool
procedure TForm1.Button1Click(Sender: TObject);
var
B: Boolean;
begin
SetLength(TrueBoolStrs, 2);
SetLength(FalseBoolStrs, 2);
TrueBoolStrs[0] := 'True';
FalseBoolStrs[0] := 'False';
TrueBoolStrs[1] := 'Yes';
FalseBoolStrs[1] := 'No';
CheckBox1.Checked := TryStrToBool(Edit1.Text, B);
CheckBox2.Checked := B;
end;
///////End TryStrToBool
附加
///////Begin TryStrToBool
function TryStrToBool(const S: string; out Value: Boolean): Boolean;
function CompareWith(const aArray: array of string): Boolean;
var
I: Integer;
begin
Result := False;
for I := Low(aArray) to High(aArray) do
if AnsiSameText(S, aArray[I]) then
begin
Result := True;
Break;
end;
end;
var
LResult: Extended;
begin
Result := TryStrToFloat(S, LResult);
if Result then
Value := LResult <> 0
else
begin
Result := True; //修正處
VerifyBoolStrArray;
if CompareWith(TrueBoolStrs) then
Value := True
else if CompareWith(FalseBoolStrs) then
Value := False
else
Result := False;
end;
end;
///////End TryStrToBool
═════════════════════
首部 function BoolToStr(B: Boolean; UseBoolStrs: Boolean = False): string;
$[SysUtils.pas
功能 返回邏輯值B轉換成字符串
說明 BoolToStr(False, False)='0';BoolToStr(False, True)='-1'
參考 var SysUtils.TrueBoolStrs;var SysUtils.FalseBoolStrs
例子 Edit1.Text := BoolToStr(CheckBox1.Checked, CheckBox2.Checked);
═════════════════════
首部 function LoadStr(Ident: Integer): string; $[SysUtils.pas
功能 返回根據標識Ident的字符串資源
說明 字符串資源是指程序的內部資源
參考 function SysUtils.FindStringResource
例子 Edit2.Text := LoadStr(StrToIntDef(Edit1.Text, 0));
═════════════════════
首部 function FmtLoadStr(Ident: Integer; const Args: array of const):
string; $[SysUtils.pas
功能 返回格式化的字符串資源
說明 字符串資源是指程序的內部資源
參考 function SysUtils.FmtStr;function SysUtils.FindStringResource
例子 ;
═════════════════════
首部 function StrLen(const Str: PChar): Cardinal; $[SysUtils.pas
功能 返回指針字符串的長度
說明 當指針字符串Str為nil時將觸發異常
參考
例子 SpinEdit2.Value := StrLen(PChar(Edit1.Text));
═════════════════════
首部 function StrEnd(const Str: PChar): PChar; $[SysUtils.pas
功能 返回指針字符串的結尾
說明 當指針字符串Str為nil時將觸發異常
參考
例子 Edit2.Text := StrEnd(PChar(Edit1.Text)) - SpinEdit1.Value;
═════════════════════
首部 function StrMove(Dest: PChar; const Source: PChar; Count: Cardinal):
PChar; $[SysUtils.pas
功能 返回將指針字符串Source指定內存數量Count複製覆蓋到指針字符串Dest中
說明 Dest沒有分配資源將觸發異常s
參考 function System.Move
例子
///////Begin StrMove
procedure TForm1.Button1Click(Sender: TObject);
var
vBuffer: PChar;
begin
vBuffer := '0123456789';
StrMove(vBuffer, PChar(Edit1.Text), SpinEdit1.Value);
Edit2.Text := vBuffer;
end;
///////End StrMove
═════════════════════
首部 function StrCopy(Dest: PChar; const Source: PChar): PChar;
$[SysUtils.pas
功能 返回將指針字符串Source複製到指針字符串Dest中; 說明 Dest應已經分配足夠的空間非則將觸發異常
參考
例子
///////Begin StrCopy
procedure TForm1.Button1Click(Sender: TObject);
var
vBuffer: PChar;
begin
GetMem(vBuffer, Length(Edit1.Text) + 1);
StrCopy(vBuffer, PChar(Edit1.Text));
Edit2.Text := vBuffer;
FreeMem(vBuffer);
end;
///////End StrCopy
═════════════════════
首部 function StrECopy(Dest:PChar; const Source: PChar): PChar;
$[SysUtils.pas
功能 返回將指針字符串Source複製到指針字符串Dest中的結尾
說明 可以連接指針字符串
參考
例子
///////Begin StrECopy
procedure TForm1.Button1Click(Sender: TObject);
var
vBuffer: array[0..255] of Char;
begin
StrECopy(StrECopy(vBuffer, PChar(Edit1.Text)), PChar(Edit2.Text));
Edit3.Text := vBuffer;
end;
///////End StrECopy
═════════════════════
首部 function StrLCopy(Dest: PChar; const Source: PChar; MaxLen: Cardinal):
PChar; $[SysUtils.pas
功能 返回將指針字符串Source指定長度MaxLen複製到指針字符串Dest中
說明 Dest應已經分配足夠的空間非則將觸發異常
參考
例子
///////Begin StrLCopy
procedure TForm1.Button1Click(Sender: TObject);
var
vBuffer: array[0..255] of Char;
begin
StrLCopy(vBuffer, PChar(Edit1.Text), SpinEdit1.Value);
Edit2.Text := vBuffer;
end;
///////End StrLCopy
═════════════════════
首部 function StrPCopy(Dest: PChar; const Source: string): PChar;
$[SysUtils.pas
功能 返回將指針字符串Source粗頻街剛胱址瓺est中
說明 StrLCopy(Dest, PChar(Source), Length(Source))
參考 function SysUtils.StrLCopy
例子
///////Begin StrPCopy
procedure TForm1.Button1Click(Sender: TObject);
var
vBuffer: array[0..255] of Char;
begin
StrPCopy(vBuffer, PChar(Edit1.Text));
Edit2.Text := vBuffer;
end;
///////End StrPCopy
═════════════════════
首部 function StrPLCopy(Dest: PChar; const Source: string; MaxLen:
Cardinal): PChar; $[SysUtils.pas
功能 返回將字符串Source指定長度MaxLen複製到指針字符串Dest中
說明 StrLCopy(Dest, PChar(Source), MaxLen)
參考 function SysUtils.StrLCopy
例子
///////Begin StrPLCopy
procedure TForm1.Button1Click(Sender: TObject);
var
vBuffer: array[0..255] of Char;
begin
StrPLCopy(vBuffer, Edit1.Text, SpinEdit1.Value);
Edit2.Text := vBuffer;
end;
///////End StrPLCopy
═════════════════════
首部 function StrCat(Dest: PChar; const Source: PChar): PChar;
$[SysUtils.pas
功能 返回連接指針字符串Dest和指針字符串Source
說明 StrCopy(StrEnd(Dest), Source)
參考 function SysUntils.StrCopy
例子
///////Begin StrCat
procedure TForm1.Button1Click(Sender: TObject);
var
vBuffer: array[0..255] of Char;
begin
StrPCopy(vBuffer, Edit1.Text);
StrCat(vBuffer, PChar(Edit2.Text));
Edit3.Text := vBuffer;
end;
///////End StrCat
═════════════════════
首部 function StrLCat(Dest: PChar; const Source: PChar; MaxLen: Cardinal):
PChar; $[SysUtils.pas
功能 返回連接指針字符串Dest和指針字符串Source
說明 [注意]MaxLen指定連接後的最大長度不是指針字符串Source的長度
參考
例子
///////Begin StrLCat
procedure TForm1.Button1Click(Sender: TObject);
var
vBuffer: array[0..255] of Char;
begin
StrPCopy(vBuffer, Edit1.Text);
StrLCat(vBuffer, PChar(Edit2.Text), SpinEdit1.Value);
Edit3.Text := vBuffer;
end;
///////End StrLCat
═════════════════════
首部 function StrComp(const Str1, Str2: PChar): Integer; $ [SysUtils.pas
功能 返回比較兩個指針字符串
說明 當S1>S2返回值>0;當S1<0;當s1=s2返回值=0;區分大小寫;[注意]返回第一個>
例子 SpinEdit1.Value := StrComp(PChar(Edit1.Text), PChar (Edit2.Text));
═════════════════════
首部 function StrIComp(const Str1, Str2: PChar): Integer; $ [SysUtils.pas
功能 返回比較兩個指針字符串
說明 當S1>S2返回值>0;當S1<0;當s1=s2返回值=0;不區分大小寫;[注意]返回第一>
例子 SpinEdit1.Value := StrIComp(PChar(Edit1.Text), PChar (Edit2.Text));
═════════════════════
首部 function StrLComp(const Str1, Str2: PChar; MaxLen: Cardinal): Integer;
$[SysUtils.pas
功能 返回比較兩個指針字符串指定長度
說明 當S1>S2返回值>0;當S1<0;當s1=s2返回值=0;區分大小寫;length(長>
例子 SpinEdit1.Value := StrLComp(PChar(Edit1.Text), PChar (Edit2.Text),
SpinEdit2.Value)
═════════════════════
首部 function StrLIComp(const Str1, Str2: PChar; MaxLen: Cardinal): Integer;
$[SysUtils.pas
功能 返回比較兩個指針字符串指定長度
說明 當S1>S2返回值>0;當S1<0;當s1=s2返回值=0;不區分大小寫;[注意]返回第一>
例子 SpinEdit1.Value := StrLIComp(PChar(Edit1.Text), PChar (Edit2.Text),
SpinEdit2.Value)
═════════════════════
首部 function StrScan(const Str: PChar; Chr: Char): PChar; $ [SysUtils.pas
功能 返回在指針字符串Str搜索字符Chr第一個出現的地址
說明 沒有找到則返回空指針
參考
例子 Edit2.Text := StrScan(PChar(Edit1.Text), '*');
═════════════════════
首部 function StrRScan(const Str: PChar; Chr: Char): PChar; $ [SysUtils.pas
功能 返回在指針字符串Str搜索字符Chr最後一個出現的地址
說明 沒有找到則返回空指針
參考
例子 Edit2.Text := StrRScan(PChar(Edit1.Text), '*');
═════════════════════
首部 function StrPos(const Str1, Str2: PChar): PChar; $[SysUtils.pas
功能 返回指針字符串Str2在Str1中第一個出現的地址
說明 沒有找到則返回空指針;StrPos('12345', '3') = '345'
參考
例子 Edit3.Text := StrPos(PChar(Edit1.Text), PChar(Edit2.Text))</S2返回值></S2返回值></S2返回值></S2返回值></S2返回值></S2返回值></S2返回值></S2返回值></S2返回值></S2返回值></S2返回值></S2返回值></S2返回值>

最近才連續看了這位大明星主演的幾部電影，一路玩到掛、刺客聯盟，沒想到接著就看到下面的新聞，希望能平安度過這個劫難。
所以人要把握當下................當然，有時候也會車現把握不住當下的時候，就像大哥哥一樣............最少大哥哥努力過拉............不用擔心，大哥哥就像踩不死的蟑螂，能屈能伸，睡起來又是一條好漢！！哇哈ㄏ哈ㄏ哈..........哈哈哈.............
 
影星摩根費里曼 車禍命危
更新日期:2008/08/05 04:09
〔編譯陳成良／綜合報導〕好萊塢老牌黑人巨星摩根費里曼，四日晚間在美國密西西比州位於曼菲斯南方約一六○公里處的塔拉哈奇市出車禍，傷勢嚴重，恐有生命危險。
ＣＮＮ報導 救出時「意識清楚」
曼菲斯區域醫療中心的發言人證實，摩根費里曼目前人在該醫院接受救治。據美國有線電視新聞網（ＣＮＮ）報導，摩根費里曼的座車嚴重毀損，但他被從車內救出時「意識清楚」，確切傷勢仍不清楚。
七十一歲的摩根費里曼一九六七年開始參與劇場演出，後來轉戰電影界，以飾演睿智有決斷力的角色奠定演藝名聲，堪稱是當今最受尊敬的黑人演員。摩根費里曼曾三度入圍奧斯卡金像獎、二○○五年終於以「登峰造擊」（Million Dollar Baby）一片中的拳擊手一角，勇奪奧斯卡最佳男配角獎，並在好萊塢最新賣座強片「蝙蝠俠：黑暗騎士」、「刺客聯盟」中擔綱演出。

今天晚上吃了很多東西，通常是心情好或是心情不好才會這樣，那大哥哥今天心情好不好？ 這個答案連大哥哥自己也不搞不清楚................