delphi 正则或字符串截取 这样的代码该如何写？

Question

memo里有这样的一段字符串 如下
1111: 空间
2222: 新闻
3333: 读书请问只取 ":" 左边的字符串 正则要怎么写啊 最后得到结果是
1111
2222
3333

Answer 1

for i := 0 to mmo1.lines.count - 1 do
  mmo2.lines.add(copy(mmo1.lines[i], 1, pos(':',mmo1.lines[i]) - 1));

Answer 2

正则表达式  (.*?):   用取子匹配 就行了
第二种就像楼上的 COPY POS
如果可以修改MEMO中的格式
建议用这种格式1111=空间
2222=新闻
3333=读书ShowMessage(Memo1.lines.Names[0]);  
就能获取=前边的内容
ShowMessage(Memo1.lines.ValueFromIndex[0])
就能获取=后边的内容
特方便
LZ捡自己容易理解的弄吧