[Delphi]ini操作

　　最近在研究如何把一堆字串依照另外一堆字串排序。試了半天，array與strings都達不到要求(可能是還沒發現怎麼做)，於是把腦筋動到了ini上面了。

　　ini可說是txt檔的一種，好處是可以從section, key中找到value，符合目前的需求。

　　ini的操作步驟如下：

1. uses inifiles
2. var ini1：Tinifile
3. ini1:=tinifile.create(filename)
4. filename就自個兒從執行檔抓囉！不會的話就用這個ExtractFilepath(application.exeName)+'a.ini'
5. 要寫入的話，ini1.WriteString('quizA1', strs[i], '');
   

　　這樣就結束了。

Delphi的explode

　　Explode是個用來分解字串的函式。比如說字串是1,2,3，中間是以,區隔，想要取出這三個數字，就必須用explode不可。

　　可惜的是，Delphi裡面沒有這樣的函式，就必須手動來擴充了(人家php就有，delphi怎麼不學著點呢？)。

　　在http://www.swissdelphicenter.ch/torry/showcode.php?id=1326 有相關的說明。紀錄如下：
ype
TStrArray = array of string;

function Explode(var a: TStrArray; Border, S: string): Integer;
var
S2: string;
begin
Result := 0;
S2 := S + Border;
repeat
SetLength(A, Length(A) + 1);
a[Result] := Copy(S2, 0,Pos(Border, S2) - 1);
Delete(S2, 1,Length(a[Result] + Border));
Inc(Result);
until S2 = '';
end;

// How to use it:
// Und hier ein Beispiel zur Verwendung:

procedure TForm1.Button1Click(Sender: TObject);
var
S: string;
A: TStrArray;
AnzTokens, i: Integer;
begin
S := 'Ein=Text=durch=Geleichzeichen=getrennt';
AnzTokens := Explode(A, '=', S);
for i := 0 to AnzTokens -1 do
Memo1.Lines.Add(A[i]);
end;

後記：
從KTOP的舊資料翻出來這一段，應該適用
function Fetch(var AInput: string; const ADelim: string; const ADelete: Boolean): string;
這應是你要的
須uses IDGlobal

母親節

　　身為金牛座的蟲蟲，母親節總是特別煩惱。生日和媽媽的節日太近，再加上五月往往是考試or報告的旺季，還真的沒心情好過。

　　今年母親節的前一天剛考完托福，想說來過個不一樣的母親節好了。一周前先從圖書館借了本素食食譜，買回來鑽研一下。到了當天，就洗手做羹湯啦！

　　別懷疑蟲蟲的能力，五菜一湯對我來說還ok啦^^，只不過作菜不包含買菜就是了。菜請媽媽買回來之後，就開始洗、撿、切、炒...。忙了一上午，總算做好了滷味、炒豆子、燙秋葵、燙地瓜葉、什錦竹筍&瓠瓜湯。除了讓蟲蟲爹娘感受一下我的手藝，當然也請了我們家小敏來吃吃喝喝！

　　下午意猶未盡的蟲蟲跟小敏一起奮鬥作了「地瓜煎餅」！15元的地瓜+10元的芹菜&家裡的紅蘿蔔、香菇，做出一大堆戲稱為「地瓜排」的料理！

　　唉，可惜的是那天忘了帶相機了~.~

語言天才的腦內革命 這句話英文麼說？

最近在政大書城偶然看到這本書，隨手翻翻，就把它買下來了。讓蟲蟲好奇的是裡面附贈的一年學習帳號，是利用什麼模式累積句型呢？

先不論這些。這本書的學習法與《千萬別學英語》其實一樣，只是更強調反覆練習，以及記憶的周期。此外，這本書也舉出較多例證，特別是研究結果，這讓此書更加有說服力。

這本書重點如下：

＊學習者一定要反覆聽大聲朗誦！
＊學習者每一個句子重覆聽大聲朗讀16次！
＊學習者一定要利用零碎時間學習並啟動語言學習的機制！
＊學習者一定要隨時尋找個人化的例句並有系統地記錄！
＊學習者一定要有「複讀及聽寫」能力，培養聽說讀寫面面俱到！
＊學習者一定要有培養「預想」能力！

希望英文能大大進步！