A ali001 Unregistered / Unconfirmed GUEST, unregistred user! 2003-12-13 #1 memo1 的内容如 china good boy //每个单词中间有一个空格 怎么能在memo2的每行显示一个单词 memo2的内容如: china good boy
E EricER Unregistered / Unconfirmed GUEST, unregistred user! 2003-12-13 #4 就是对字符串的操作而已 每当遇到空格就在memo2 add就行了。
S Sinker Unregistered / Unconfirmed GUEST, unregistred user! 2003-12-13 #5 var i: integer; s: string; begin s := memo1.lines[1] //假设是取memo1的第1行 repeat i := pos(' ', s); if i > 0 then begin memo2.lines.add(copy(s, 1, i-1)); s := delete(s, 1, i); end; until i = 0 ...... end;
var i: integer; s: string; begin s := memo1.lines[1] //假设是取memo1的第1行 repeat i := pos(' ', s); if i > 0 then begin memo2.lines.add(copy(s, 1, i-1)); s := delete(s, 1, i); end; until i = 0 ...... end;