列如文件是如下 〔 test1 3 4   !!! for test 10 20 30 40 50 11 22 33 11 test2 56 7 !!! for run2 11 33 25 67 28 97  22 ] 以上為檔案範例 我是要將其讀出放在不同變數中 我try 好久  一直沒辦法 懇請幫忙  很急 先謝啦    

您好 看你的結構應還蠻規則的， 1.用空白分隔 2.固定為  6 5 3 1的方式排列~~ 給您一個簡單的參考例子~~你改寫一下應可以了!     

 
procedure CutStr(S: string; const SubStr: string; ls: TStrings);
begin
  ls.Clear;
  while Pos(SubStr, S) > 0 do
  begin
    ls.Add(Copy(S, 1, Pos(SubStr, S) - 1));
    Delete(S, 1, Pos(SubStr, S));
  end;
  if Length(S) > 0 then
    ls.Add(S);
end;    procedure TForm1.Button1Click(Sender: TObject);
var cox: integer;
    ls :Tstrings;
    s :String;
begin
  memo1.lines.clear;
  memo1.lines.Add('〔');
  memo1.lines.Add('test1 3 4 !!! for test');
  memo1.lines.Add('10 20 30 40 50');
  memo1.lines.Add('11 22 33');
  memo1.lines.Add('11');
  memo1.lines.Add('test2 56 7 !!! for run2');
  memo1.lines.Add('11 33 25 67');
  memo1.lines.Add('28 97');
  memo1.lines.Add('22');
  memo1.lines.Add(']');      ls := Tstringlist.create;
  try        for cox := 0 to memo1.lines.count - 1 do
    begin
      s := memo1.lines.strings[cox];
      if not (( s='〔') or (s=']')) then
      begin
        ls.clear;
        cutstr(s,' ', ls);
        showmessage(ls.text);
      end;
    end;
  finally
    ls.free;
  end;
end;    

------
熊的學習 http://huwk.blogspot.com

我是BCB初學者,真的有點吃力說, 因為我是寫fortran出身的 因為FORTRAN程式須要從檔案輸出入資料,用bcb來產生或接收其資料做後處理,產生我會寫但讀不規則檔我不會希望有bcb之大大能幫忙一下 謝謝樓上的幫忙喔  能否寫成BCB之語法  先謝啦