各位先進 小弟在程式上遇到trouble 煩請指導 文字檔內容: // [Users_1234] Pri=2 Enabled=1 Name=H Pwd= PT= [Users_4687] Pri=2 Enabled=1 Name=H Pwd= PT= . . . // 請問我要如何把Users_後的四碼數字讀入一為陣列 想了幾天 找不到解決方法

procedure TForm1.FormActivate(Sender: TObject);
var
  AppIni: TIniFile;
  SecLst: TStringList;
  i: Integer;
begin
  SecLst := TStringList.Create;
  AppIni := TIniFile.Create('Your_File_Path');
  AppIni.ReadSections(SecLst);
  for i:=0 to SecLst.Count-1 do
  begin
    if Copy(SecLst[i],1,5)='Users' then
      Save Copy(SecLst[i],7,5) to Array....
  end;
  AppIni.Free;
  SecLst.Free;
end;

First, New a Console Program(Console Application)

program Cvt001;    {$APPTYPE CONSOLE}    uses
  SysUtils, Strutils;    const arraysize=5120;
var
  f : textfile;
  str:string;
  a_chr : array[1..arraysize] of char;
  i : integer;
begin
  //Initial   array a_chr    <=   Insert code here
  assignfile(f, paramstr(1)); // <==文字檔名
  reset(f);      while not eof(f) do
  begin
    readln(f,str);        if pos('[Users_' ,str)>0 then
    begin
      str:=copy(str,pos('[Users_', str) 7,4);
      a_chr[strtoint(str)] :='1';
      writeln(str);
    end      end;      closefile(f);      for i:=1 to arraysize do
    if a_chr[i] = '1' then
      writeln('Here we got:' inttostr(i));
end.
 

執行: CVT001.exe 文字檔名 Try it!

------
What do we live for if not to make life less difficult for each other?

提問者您好:


以上回應是否已得到滿意的答覆？


若已得到滿意的答覆，請在一週內結案，否則請在一週內回覆還有什麼未盡事宜，不然，
將由版主(尚無版主之區域將由副站長或站長)採自由心證,選擇較合適之解答予以結案處理，
被選上之答題者同樣會有加分獎勵，同時發問者將受到扣 1 分的處分。不便之處，請見諒。


有問有答有結案，才能有良性的互動，良好的討論環境需要大家共同維護，感謝您的配合。

------
我是機器人,我不接受簡訊.