如何實現指定路徑下的文件存取 |
|
尚未結案
|
|
perry722
一般會員   發表：27 回覆：11 積分：7 註冊：2004-05-05 發送簡訊給我 |
|
|
hagar
版主   發表：143 回覆：4056 積分：4445 註冊：2002-04-14 發送簡訊給我 |
|
|
perry722
一般會員 發表：27 回覆：11 積分：7 註冊：2004-05-05 發送簡訊給我 |
|
|
likush
高階會員 發表：5 回覆：235 積分：103 註冊：2002-10-08 發送簡訊給我 |
以COPYFILE來說
IF CopyFile('C:\Test.txt', 'D:\Test.txt', False) Then
showmessage('複製完成')
else
showmessage('失敗');
Filesize來說，直接轉貼help。
procedure TForm1.Button1Click(Sender: TObject);
var
f: file of Byte;
size: Longint;
S: string;
y: Integer;
begin
if OpenDialog1.Execute then
begin
AssignFile(f, OpenDialog1.FileName);
Reset(f);
try
size := FileSize(f);
S := 'File size in bytes: ' IntToStr(size);
y := 10;
Canvas.TextOut(5, y, S);
y := y Canvas.TextHeight(S) 5;
S := 'Seeking halfway into file...';
Canvas.TextOut(5, y, S); y := y Canvas.TextHeight(S) 5;
Seek(f, size div 2);
S := 'Position is now ' IntToStr(FilePos(f));
Canvas.TextOut(5, y, S);
finally
CloseFile(f);
end;
end;
end; =========================
讀萬卷書~不如來K.TOP走一遭
=========================
|
|
perry722
一般會員 發表：27 回覆：11 積分：7 註冊：2004-05-05 發送簡訊給我 |
發表時間：2004-09-15 12:53:52
IP:202.175.xxx.xxx 未訂閱
系統時間：2024-06-29 16:40:28
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |