delphi新手问题多了请大家多多包含~ . .*^_^*

Question

我已经将jj.txt文件的最后一行读出来了，读出来的内容是 aa/bb/cc/dd
我想将 aa bb cc dd 分别截取出来保存到数组里面的话，要怎么做呀？
var
  i : integer;
  s: string;
  sl: TStringList;    begin
   sl := TStringList.Create;
   sl.LoadFromFile('c:\jj.txt');
   s := sl[sl.Count-1]; 
   Memo1.Lines.Add(s);
   sl.Free;
  end;

Answer 1

s:='aa/bb/cc/dd';
==get aa:
i:=pos('/', s);
r:=copy(s,1,i-1); //r=aa
delete(s,1,i);
==get bb:
i:=pos('/', s);
r:=copy(s,1,i-1); //r=bb
delete(s,1,i);
==get cc:
i:=pos('/', s);
r:=copy(s,1,i-1); //r=cc
delete(s,1,i);
==remain dd
s=dd

Answer 2

var
  s:string;
  j:Integer;
begin
  j := 0;
  s := 'aa/bb/cc/dd';
  while pos('/',s) > 0 do
    begin
      memo1.Lines.Add(copy(s,1,pos('/',s)-1));
      s:= copy(s,pos('/',s)+1,maxint);
      inc(j);
    end;
  memo1.Lines.Add(s);
end;

Answer 3

(洪飞) 大哥 :     程序出错啊~ . . . .一直copy aa 到memo1 啊~ .. . 程序也跳不出来了啦~ . .T_T

Answer 4

(洪飞) 大哥 :     程序出错啊~ . . . .一直copy aa 到memo1 啊~ .. . 程序也跳不出来了啦~ . .T_T