各位delphi朋友 有一問題發問: 我有一文字檔，其內容為111,555,456,49,88,77,123,..., 問題:怎樣寫才有效讀到陣列a[i]當中呢? 如a[1] :=111; a[2] :=555; a[3] :=456; a[4] :=49; a[5] :=88; a[i] :=...; 這有各界delphi朋友解決，感激感激 jl 平常心活著

------
平常心活著

jl您好 您可以用一個TStringList讀取檔案進來 然後參考下面的技巧, 便能把逗號拆解開來

var
  sl:TStringList;
begin
  sl:=TStringList.Create;
  sl.CommaText:=Memo1.Lines.Text;
  memo2.Lines.Assign(sl);
  sl.Free;
end;

memo1裡頭的內容就是您所提的111,555,456,..... memo2裡頭的就是拆解之後的內容 使用迴圈就可以把這些內容塞入到一維陣列 發表人 - pedro 於 2004/04/05 08:39:03

ji您好 小弟都是用POS函數來作 給您參考    procedure TForm1.Button1Click(Sender: TObject); Var  s: String;  i,j: integer;  a: array[0..100] of String; begin  i:=0;  s:=edit1.text;//這邊隨你輸入字串,用逗號做分隔  while pos(',',s)>0 do   begin    a[i]:= copy(s,1,pos(',',s)-1);    s:=copy(s,pos(',',s)+1,length(s));    i:=i+1;   end;   a[i]:= s;     for j:=0 to i do begin   showmessage('a['+inttostr(j)+']='+a[j]);  end; end;    ~悠遊法國號~

先謝謝兩位的回覆，問題已得到解決 pedro方法及yachanga都能解決問題, 但對於小弟的程式，yachanga方式較為合用。 jl 平常心活著

------
平常心活著