因為會利用 rave 報表產生 html 並會顯示jpg 圖檔
而產生時, 會依單號產生一暫存圖檔的目錄,
但jpg 圖檔的檔名會自動產生, 如 0000.jpg 0001,jpg 個數不定
但為了防止, 使用者重覆產生, 留下舊資料, 使得jpg 一直產生新的
找到了一個檔案目錄操作的副程式, 想在產生前, 將目錄下的檔案全刪掉

http://delphi.ktop.com.tw/board.php?cid=30&fid=67&tid=71428

但裡面有一段
FromDir : String; {From directory}
ToDir : String {To directory}
): Boolean;
var
SHFileOpStruct : TSHFileOpStruct;
FromBuf, ToBuf: Array [0..255] of Char;

StrPCopy(FromBuf, FromDir);
StrPCopy(ToBuf, ToDir);

pFrom := @FromBuf; //<---compiler 時 說不合法的型態 array and char
pTo := @ToBuf;

是那裡沒指定? =.=??
查一本基礎的書, 並沒寫到 @ 的用法 =.=||
我的版本是 delphi 7 XP

麻煩各位大大 救救我這半路出家的吧

改成以下的方式試試
{$T-}
pFrom := @FromBuf;
pTo := @ToBuf;
{$T }
===================引 用 ttring 文 章===================
因為會利用 rave 報表產生 html 並會顯示jpg 圖檔
而產生時, 會依單號產生一暫存圖檔的目錄,
但jpg 圖檔的檔名會自動產生, 如 0000.jpg 0001,jpg 個數不定
但為了防止, 使用者重覆產生, 留下舊資料, 使得jpg 一直產生新的
找到了一個檔案目錄操作的副程式, 想在產生前, 將目錄下的檔案全刪掉

http://delphi.ktop.com.tw/board.php?cid=30&fid=67&tid=71428

但裡面有一段
FromDir : String; {From directory}
ToDir : String {To directory}
): Boolean;
var
SHFileOpStruct : TSHFileOpStruct;
FromBuf, ToBuf: Array [0..255] of Char;

StrPCopy(FromBuf, FromDir);
StrPCopy(ToBuf, ToDir);

pFrom := @FromBuf; //<---compiler 時 說不合法的型態 array and char
pTo := @ToBuf;

是那裡沒指定? =.=??
查一本基礎的書, 並沒寫到 @ 的用法 =.=||
我的版本是 delphi 7 XP

麻煩各位大大 救救我這半路出家的吧

------
先查HELP
再查GOOGLE
最後才發問

沒人有義務替你解答問題
在標題或文章中標明很急
並不會增加網友回答速度

Developing Tool:
1.Delphi 6
2.Visual Studio 2005
3.Visual Studio 2008
DBMS:
MS-SQL

編輯記錄

@@??
剛試不行....大括號不是註解嗎 ?


===================引 用 eaglewolf 文 章===================
改成以下的方式試試
{T$-}
pFrom := @FromBuf;
pTo := @ToBuf;
{T$ }
===================引 用 ttring 文 章===================
因為會利用 rave 報表產生 html 並會顯示jpg 圖檔
而產生時, 會依單號產生一暫存圖檔的目錄,
但jpg 圖檔的檔名會自動產生, 如 0000.jpg 0001,jpg 個數不定
但為了防止, 使用者重覆產生, 留下舊資料, 使得jpg 一直產生新的
找到了一個檔案目錄操作的副程式, 想在產生前, 將目錄下的檔案全刪掉

http://delphi.ktop.com.tw/board.php?cid=30&fid=67&tid=71428

但裡面有一段
FromDir : String; {From directory}
ToDir : String {To directory}
): Boolean;
var
SHFileOpStruct : TSHFileOpStruct;
FromBuf, ToBuf: Array [0..255] of Char;

StrPCopy(FromBuf, FromDir);
StrPCopy(ToBuf, ToDir);

pFrom := @FromBuf; //<---compiler 時 說不合法的型態 array and char
pTo := @ToBuf;

是那裡沒指定? =.=??
查一本基礎的書, 並沒寫到 @ 的用法 =.=||
我的版本是 delphi 7 XP

麻煩各位大大 救救我這半路出家的吧

sorry
是 {$T-} 跟 {$T } 才對

If X is a variable, @X returns the address of X. The type of @X is Pointer if the default {$T-} compiler directive is in effect. In the {$T } state, @X is of type ^T, where T is the type of X.

A comment that contains a dollar sign ($) immediately after the opening { or (* is a compiler directive.

------
先查HELP
再查GOOGLE
最後才發問

沒人有義務替你解答問題
在標題或文章中標明很急
並不會增加網友回答速度

Developing Tool:
1.Delphi 6
2.Visual Studio 2005
3.Visual Studio 2008
DBMS:
MS-SQL

編輯記錄

哇, 真的是ya
真是太感謝你了,
解決問題, 又學到了 ^^

===================引 用 eaglewolf 文 章===================
sorry
是 {$T-} 跟 {$T } 才對

If X is a variable, @X returns the address of X. The type of @X is Pointer if the default {$T-} compiler directive is in effect. In the {$T } state, @X is of type ^T, where T is the type of X.

A comment that contains a dollar sign ($) immediately after the opening { or (* is a compiler directive.