問題如下 在Memo中有1,2,3三項如何抓出各項的值 1.aaaaaaaa aaaa 2.bbbbbbbb 3.ccccccccccc ccccc

var
  i:integer;
begin
  for i:=0 to Memo1.Lines.Count-1 do
    if CheckItem(Memo1.Lines.Strings[i],'1.') then
       // Save String to your target
end;    

Memo1.Lines.Count => 表示共有幾行 Memo1.Lines.Strings[i] => 第 i 1 行的字串 CheckItem => 您自己要撰寫的字串解析函式 , return boolean value .. // 註解的地方,再完成您想要的動作即可 .. ---- 我只會兩件事,這也不會,那也不會 眼見不一定為真 ---- 發表人 - SouthWind 於 2004/11/19 14:10:38

您好﹗    試試這個方法﹕

Var
  MyLength, IPos1, IPos2, IPos3 : Integer;
  Str : String;
begin
  IPos1 := Pos('1.', Memo1.Text);
  IPos2 := Pos('2.', Memo1.Text);
  IPos3 := Pos('3.', Memo1.Text);
  MyLength := Length(Memo1.Text);
  ShowMessage(IntToStr(IPos1)   #10#13   IntToStr(IPos2)   #10#13   
    IntToStr(IPos3));
  Str := '1.的內容為﹕'  
    Copy(Memo1.Text, Length('1.') 1, IPos2-Length('1.'))   #10#13;
  Str := Str   '2.的內容為﹕'  
    Copy(Memo1.Text, IPos2 Length('2.'), IPos3-IPos2-Length('1.')-
      Length('2.'))   #10#13;
  Str := Str   '3.的內容為﹕'  
    Copy(Memo1.Text, IPos3 Length('3.'), MyLength-IPos3-Length('3.'));
  ShowMessage(Str);
end;

========================= 我是您的朋友﹐有您真好﹗ =========================

------
忻晟

建議不要使用這種方式。容易造成誤判！ 除非在每一行定義開頭字元，以作為識別。 建議改用 ListBox 元件。

謝謝各位給我的意見 在Memo中的值是由使用者自行輸入的 我也是用SouthWind兄 所用的方法 但是程式碼寫得又臭又長，而且還是會有誤判的機會 至於cashxin2002兄 我深感抱歉，因為問題沒有表達清楚 其實最主要是想問前輩有何高見...

引言: 謝謝各位給我的意見 在Memo中的值是由使用者自行輸入的 我也是用SouthWind兄 所用的方法 但是程式碼寫得又臭又長，而且還是會有誤判的機會 至於cashxin2002兄 我深感抱歉，因為問題沒有表達清楚 其實最主要是想問前輩有何高見...

baygon 您好 : 是 CheckItem 實作上,發生誤判嗎?? 您是要抓 '*1.*' 這個字串 Pattern 的東西,還是某一種 '1.' 字串變化的 Pattern ?? 字串解析,手上有幾個不錯的用的 function ,可否描述清楚一點,才能知道能否達到您的需求?? ---- 我只會兩件事,這也不會,那也不會 眼見不一定為真 ----

引言: baygon 您好 : 是 CheckItem 實作上,發生誤判嗎?? 您是要抓 '*1.*' 這個字串 Pattern 的東西,還是某一種 '1.' 字串變化的 Pattern ?? 字串解析,手上有幾個不錯的用的 function ,可否描述清楚一點,才能知道能否達到您的需求?? ---- 我只會兩件事,這也不會,那也不會 眼見不一定為真 ----

SouthWind 您好: 最近有點給它小忙 我需要用到的是 '1.' 字串變化的 Pattern 有機會互相研究研究，吸取別人不同的見解。