各位前輩，想請教一下如何不把一個文字檔案完全載入下只讀取第一列的前10個文字？
檔案如果很小，我是可以完全讀取進來後再擷取第一列的前10個文字用來判讀下一步的執行程序，但是檔案如果很大的時候，等待讀取的時間就會變長，不知是否有什麼方法可以只讀取該檔的前10個字，而不用把檔案全讀進來。

語意不詳之處請見諒!!謝謝大家

[code delphi]

procedure TForm1.Button2Click(Sender: TObject);
const
SrcFileName = 'C:\TEST.TXT';
var
fh: Integer;
P: array[0..9] of Char;
begin
if not FileExists(SrcFileName) then EXIT;

fh := FileOpen(SrcFileName, fmOpenRead);
if fh <> -1 then
begin
try
if FileRead(fh,P,SizeOf(P)) = SizeOf(P) then ShowMessage(P);
finally
FileClose(fh);
end;
end;

with TFileStream.Create(SrcFileName, fmOpenRead) do
try
if Read(P,SizeOf(P)) = SizeOf(P) then ShowMessage(P);
finally
Free;
end;


end;

[/code]

謹供參考

謝謝大大!!