例如我想將 test.txt 的第二行的第 ３ ～ ４ 個字讀出 該作麼做呢 ?? thanks ！

var Openfile : Textfile; ls , Cs : string; begin Assignfile(openFile,'FileName'); Reset(openfile); Readln(openfile , ls); Readln(openfile , ls); CS := LS[2] LS[3]; CloseFile(openfile); End;

或者

var ss:TStringList;
    str:string;
begin
  ss:=TStringList.Create;
  try
    ss.LoadFromFile('test.txt');
    str:=Copy(ss[1],3,2); {取出到str裡}
  finally
    ss.Free;
  end;
end;

crlin你好: //--這是找字串的 procedure TMainFrm.AbcClick(Sender: TObject); var pos,leng:integer; begin RichEdit2.Lines.LoadFromFile('test.txt'); if RichEdit1.SelLength<>0 then pos:=RichEdit1.selstart RichEdit1.SelLength else pos:=0; leng:=length(RichEdit1.Text)-pos; if RichEdit1.FindText('字串名稱',pos,leng,[stMatchCase])<>-1 then begin RichEdit1.SetFocus; RichEdit1.SelStart:=RichEdit1.FindText('字串名稱',pos,leng,[stMatchCase]); RichEdit1.SelLength:=length('字串名稱'); end else MessageDlg('已到最後一筆。',mtInformation, [mbok], 0); end; //----如果要指定第n行的第幾個字 copy(RichEdit1.Lines.String[2](這裡代表第幾行從0開始),3(這裡代表從第幾個字開始),1(這裡代表要幾格))

------
======================
昏睡~
不昏睡~
不由昏睡~

請問我該如何知道是否己指到檔案的結尾呢 ? Eoln 這個 function 如何使用（該給什麼參數呢 ?） ? thanks ！ Assignfile(openFile,'FileName'); Reset(openfile); while Eoln ??? do begin Readln(openfile , ls); ...... end;

引言: 請問我該如何知道是否己指到檔案的結尾呢 ? Eoln 這個 function 如何使用（該給什麼參數呢 ?） ? thanks ！ Assignfile(openFile,'FileName'); Reset(openfile); while Eoln ??? do begin Readln(openfile , ls); ...... end;

While not SeekEof(openfile) do
begin
  Readln(openfile , ls);
  ......
end;

procedure TForm1.Button3Click(Sender: TObject); var Openfile : Textfile; ls ,Cs1,Cs2,Cs3,Cs4:string; begin Assignfile(openFile,'D:\Delphi K_Top討論區\1234.txt'); Reset(openfile); Readln(openfile , LS); Readln(openfile , ls); RichEdit2.Lines.add(Ls); //顯示參考字串 CS1 := LS[1] LS[2]; //取得第一字串 CS2 := LS[3] LS[4]; //取得第二字串 CS3 := LS[5] LS[6]; //取得第三字串<====你要的字串 CS4 := LS[7] LS[8]; //取得第四字串<====你要的字串 RichEdit2.Lines.add(Cs1);//列出取得字串 RichEdit2.Lines.add(Cs2); RichEdit2.Lines.add(Cs3); RichEdit2.Lines.add(Cs4); CloseFile(openfile); End;