如何使用FileStream ?? 有沒有如何寫入方式 ?? 移動到第幾行?? 修改第幾行?? 如何使用參數?? 等.... 謝謝各位大德

------
願
南無藥師琉璃光如來
保佑您

你好： 如果你已經知道要使用什麼元件，看 Help 不是比較快嗎希望你能好好運用 > < class="code"> 屬性 Position 可取得目前指標的位置，也可指定目前位置。 Size Stream 資料的大小，可以修改 方法 function Seek(const Offset: Int64; Origin: TSeekOrigin): Int64; override; Offset : 移動的量，可為負數。 Origin : 位移開始的位置。 soBeginning 由最初的位置 soCurrent 由目前指標的位置 soEnd 由最後的位置 result : 移動後的位置 移動指標由 Origin 移動 Offset 量 function Read(var Buffer; Count: Longint): Longint; override; Buffer : 要放置資料的目地的變數實體。 Count : 取出的數量(byte) result : 實際取出的數量 由 Stream 目前指標的位置，將資料複製 Count 的數量到 Buffer。 function Write(const Buffer; Count: Longint): Longint; override; Buffer : 要取出資料來源的變數實體。 Count : 取出的數量(byte) result : 實際取出的數量 由 Buffer 變數實體，將資料複製 Count 的數量到 Stream。 只要是由 TStream 所繼承的類別，這是最基本的操作方式。下面解釋何謂 變數實體。 var s : TFileStream; aaa : Integer; bbb : PInteger; begin bbb := @aaa; s := TFileStream.Create; try s.write (aaa, SizeOf (Integer)); s.write (bbb^, SizeOf (Integer)); s.read (aaa, SizeOf (Integer)); s.read (bbb^, SizeOf (Integer)); finally FreeAndNil (s); end; end;

要直接判斷行的話, 用 TStringList 方便一點點

var
  sl: TStringList;
begin
  sl := TStringList.Create;
  try
    sl.LoadFromFile('C:\xx.txt');
    sl.Strings[0] := 'First Line'; // 修改第一行
    sl.Delete(0); // 刪除第一行
    sl.SaveToFile('C:\xx.txt');
  finally
    sl.Free;
  end;
end;

--- --<-<-<@

謝謝二位的解答 ^^ TStringList 真的看起來真是方便好用!! 但是我要用FileStream 來做一些比較複雜的判斷， 可否給我一個例子!! EX..檔案開啟，增加行數，修改行數，刪除行數， 移動到第幾行第幾個字更換， Tsk... 謝謝各位大哥的幫忙....

------
願
南無藥師琉璃光如來
保佑您

你好： 如果你是處理文字檔，則使用 hagar 版主的建議是最適當的。 如果你的檔案是 Binary 資料，再來考慮使用 TFileStream 。但依 你的需求來看，你應改選擇 TStringList 才對喔 < src="http://sourceprovide.deepen.com.tw/K_Top/bp.gif">