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

供您參考

  for j := 0 to Memo1.Lines.Count -1 do
  begin
    s := Memo1.Lines[j];
    // 先把空格都轉成一個
    while Pos('  ', s) > 0 do Delete(s, Pos('  ', s), 1);
    // 以空白分段取出資料
    while s <> '' do
    begin
      // 第一個空白在何處
      i := Pos(' ', s);
      if i = 0 then
        begin
          Data := s;
          s := '';
        end
      else
        begin
          Data := Copy(s, 1, i-1);
          Delete(s, 1, i);
        end;
      // Data 就是您要的資料
    end;
  end;

●○○○○○●○○○○○● 竹密不妨水過，山高無礙雲飛 發表人 - whyzn 於 2003/01/23 18:59:28

------
●○○○○○●○○○○○●
竹密不妨水過，山高無礙雲飛

在 VCL 中的 TStringList 有一個很好用的 CommaText 的屬性，只要給它以 ',' 分隔的字串，它就會幫你把它自動一個一個放在 Strings[] 中。 您需要的只是 1. 將所有空白 ' ' 變成逗號 ',' 2. 將處理後的字串放在 TStringList 或是某個有 TStrings 屬性的物件的 CommaText 3. 接著就可以由 TStringList 或 TStrings 的 Count 得到個數，再以 Strings[] 一個一個取出    沒空更新的網頁... http://coolsite.to/dllee C及指標教學,計算機概論,資訊管理導論... http://coolsite.to/ushells 介紹Shells,LiteStep,GeoShell....

------
http://www.ViewMove.com

謝謝兩位大哥的指導，這個程式我已經寫好了 - 真的很感謝，謝謝！

在 VCL 中的 TStringList 有一個很好用的 CommaText 的屬性，只要給它以 ',' 分隔的字串，它就會幫你把它自動一個一個放在 Strings[] 中 - 回復dllee大哥： 我嘗試了直接用''(空格)來分割數據，也同樣可以達到','分割的效果 我看help文檔裏面也只說到可以用','來分割，但是實際上空格也可以作為delimiter，特此告知