FORMULA ONE 中的自动扩展问题(50分)

你好：我还想请教你一个问题：如果一个字符串STR:='AAA'+CHR(13)+CHR(10)+'BBB',即字符串中有几行字符，相当于TMEMO的TEXT属性。怎样在FORMULA ONE 中将此字符串中不同行显示在同一列中相邻单元格。如在A1中显示‘AAA’，在A2中显示‘BBB’。

太简单了……没有难度……
不过，我的电脑太慢了（公司）的，
上网是不能启动delphi
只要几个循环，如：
Var pStr: pchar
iNum,iRow,iTemp:Integer
iRow:=1
pStr:=Pchar(Str)
for iNum := 0 to length(pStr) do Begin
if pStr[iNum]=#13 then Begin
iTemp:=iRow
//上一次开始的地方
iRow:=iRow+1
End
Else Begin
F1book1.EntryRc[1,iRow]:=Copy(StrPas(pStr),iTemp,iNum)
End;
End

可能有点错误，不过差不多了，记得加分！

#9，not #13,10
可以吗？

接受答案了.