打算讀一text file,若第一碼是空白,則填入'B'值,再寫回text file, 可是要Writeln時,會出現 I/O error 105 的錯誤訊息,    為什麼?    寫法如下: var FileName:string;     F1:TextFile;     sLine: string;     sLenght:integer; begin   FileName:='\\SERVER\TEMP\TEST.TXT';   AssignFile(F1, FileName);   try     Reset(F1);     while not Eof(F1) do begin       ReadLn(F1, sLine);       sLenght:=Length(sLine);       if copy(sLine,1,1)=' ' then begin          sLine:='B'+copy(sLine,2,sLenght-1);          Writeln(sLine);       end;     end;   finally     CloseFile(F1);   end; end;

Reset is for read only access, you need to use Rewrite for writing. In your case I suggest using TFileStream or BlockRead/BlockWrite since rewrite will make a file write only.

若將Reset 改為ReWirte 時,不就重建了\\SERVER\TEMP\TEST.TXT 反而變成空檔了, 有去查了一下,BlockRead/BlockWrite , 發現是不是要來源檔及目的檔兩個檔案作業, 不能直接在同一檔案做修改,    致於TFileStream 好像沒有提供直接可讀取一行的資料, 因為我希望可以,一次讀一行資料,因為我還要去拆解資料,做處理.  有沒有TFileStream 的範例??

BlockRead and BlockWrite can be used on the same file. Although it is the faster way to read/write a file, it is more difficult to use compared with file stream. If your file is small enough, could it be easier to load the whole file into a TStringList and then do you replacement and write it back later?    For a file stream, e.g.

var
    f: TFileStream;
    c: char;
{....}
f := TFileStream.Create('xxx.txt');
try
    while f.Position < f.Size do begin
        f.Read(c,SizeOf(c));
        if c=' ' then begin    
            f.Seek(-SizeOf(c),soFromCurrent);
            c := 'B';
            f.Write(c,SizeOf(c));
        end;
    end;
finally
    f.Free;
end;

Of course this is not what you want since there is no checking of line break. It is just an example (not tested ).

我會建議妳使用 1. TRichEdit(PlainText = True) RichEdit1.Lines.LoadFromFile(text file name); 取得第一行資料 S := RichEdit1.Lines[0]; 取得第五行資料 S := RichEdit1.Lines[4]; 2. TMemo (win 2000 可 > 64k) Memo1.Lines.LoadFromFile(text file name); 取得第一行資料 S := Memo1.Lines[0]; 取得第五行資料 S := Memo1.Lines[4]; 3. 使用 TStringList var I: Integer; S: String; SL: TStringList; begin SL := TStringList.Create; try SL.LoadFromFile(text file name); for I := 0 to SL.Count-1 do begin S := SL.Strings[I]; // 取得一行資料 // 處理過程 // 處理完畢 SL.Strings[I] := S; end; finally SL.SaveToFile(text file name); SL.Free; end;