各位大哥，我遇到這樣的問題，沒有好的方案， 希望大家能夠不苟賜教，先問題如下： 我在做一個程式，將文本文件中的數據寫入報表 文本中的數據類似這樣 boy 1982 176 tom 我用memo讀的文本，但是里面的數據都是用空格分割的，我應該如何把 boy,1982,176等數據一個個讀出來呢？ -謝謝賜教，小弟我初次做類似的東西

var 
  sl: TStringList;
  YourString, YourDelimiter: string;
  i: Integer;
begin
  YourString := 'a b c d e f g';
  YourDelimiter := ' ';
  sl := TStringList.Create;
  try
    sl.Text := StringReplace(YourString, YourDelimiter, #13#10, 
                 [rfReplaceAll]);
    for i := 0 to sl.Count - 1 do
      ShowMessage(sl.Strings[i]);
  finally
    sl.Free;
  end;
end;

-- 將進酒 杯莫停 與君歌一曲 請君為我傾耳聽

用fetch, 須uses IDGlobal

var s, token:string;
    i:integer;
begin
  for i:=0 to memo1.lines.count-1 do begin
    s:=memo1.lines[i];
    while s <> '' do begin
      token:=Fetch(s);
      if token <> '' then 
         ...  //這是取出的數據
    end;
  end;
end;  

真的很感謝各位大哥的指導，謝謝謝謝！