今天看課本的時候看到一函數名 Read 其解釋為(從文件中讀取數據)...
名位可以解釋一下這個Read是怎么用的嗎!!感謝...小弟剛學Delphi不久,見笑了.

------
!!^_^..我愛Delphi*^_^*!!

Read reads data from a file.
Unit
System
Category
text file routines
Delphi syntax:
Typed files:
procedure Read(F , V1 [, V2,...,Vn ] );
Text files:
procedure Read( [ var F: Text; ] V1 [, V2,...,Vn ] );
Description
The Read procedure can be used in Delphi code in the following ways.
For typed files, it reads a file component into a variable.
For text files, it reads one or more values into one or more variables.
With a type string variable:
Read reads all characters up to, but not including, the next end-of-line marker or until Eof(F) becomes true; it does not skip to the next line after reading. If the resulting string is longer than the maximum length of the string variable, it is truncated.
After the first Read, each subsequent Read sees the end-of-line marker and returns a zero-length string.
Use multiple Readln calls to read successive string values.
When the extended syntax is enabled, Read can read null-terminated strings into zero-based character arrays.
With a type character variable:
Read reads one character from the file and assigns it to the variable. If CRLF mode is enabled and Eof(F) was true before Read was executed, the value Chr(26) (a Ctrl-Z character) is assigned to the variable. (To enable CRLF mode, use SetLineBreakStyle.)
With type integer or type real variables:
Read skips any blanks, tabs, or end-of-line markers preceding the numeric string.
If the numeric string does not conform to the expected format, an I/O error occurs; otherwise, the value is assigned to the variable.
The next Read starts with the blank, tab, or end-of-line marker that terminated the numeric string.
example :
var
F1, F2: TextFile;
Ch: Char;
begin
if OpenDialog1.Execute then begin
AssignFile(F1, OpenDialog1.Filename);
Reset(F1);
if SaveDialog1.Execute then begin
AssignFile(F2, SaveDialog1.Filename);
Rewrite(F2);
while not Eof(F1) do
begin
Read(F1, Ch);
Write(F2, Ch);
end;
CloseFile(F2);
end;
CloseFile(F1);
end;
end;

------
努力會更接近成功

雖然不是很明白,不過還是感謝你,我會把此段源碼搞清楚了.

------
!!^_^..我愛Delphi*^_^*!!