⑴ DELPHI 復制 黏貼 循環
下面這程序能把memo1里知晌伏面的拷到memo2裡面搭攜,點擊一次復制一行,謹沖2次就復2行,你修改成你要的吧...
procere TForm1.Button1Click(Sender: TObject);
var
n:integer;
m:string;
begin
memo2.Clear;
i := i+1;
Button1.Caption := inttostr(i);
for n:=0 to i do
begin
m := memo1.Lines[n-1];
memo2.Lines.Insert(n-1,m);
end;
memo2.SelectAll;
memo2.CopyToClipboard;
end;
⑵ Delphi實現復制粘貼功能
procere TForm1.Button1Click(Sender: TObject);
begin
Memo1.SelectAll;
Memo1.CopyToClipboard;
Memo1.SetFocus;
end;
procere TForm1.Button2Click(Sender: TObject);
begin
Memo1.SelectAll;
Memo1.PasteFromClipboard;
Memo1.SetFocus;
end;
⑶ delphi中,把某一目錄下所有的JPG文件移動到另一個目錄下,怎麼做實現呢,求大神指教
可以這么考慮!用FindFirst和FindNext可以遍歷文件夾,將所有文件都列出來,然後通過ExtractFileExt這個函數判斷文山尺件手旁類型,再然後用CopyFile函數復制就可以了
CopyFile函數F1里的函數原型
.
BOOLCopyFile(
LPCTSTRlpExistingFileName,//pointertonameofanexistingfile
LPCTSTRlpNewFileName,//pointertofilenametoto
BOOLbFailIfExists//flagforoperationiffileexists
);
參數定義1.源文件2.要復制畢唯橡到的目錄+文件名3.是否覆蓋
這里列到的函數在delphi自帶的幫助文檔里都有很詳細的介紹和使用說明(快捷鍵F1)
⑷ Delphi 怎麼製作復制文件夾程序
如問題所描述的,將C:abc 做成變數,迅蠢代碼可以如下編寫:
procereTForm1.btn1Click(Sender:TObject);
varsSource,sTarget:string;
begin
sSource:='c:abc';
sTarget:='d:abc';
WinExec('x'+sSource+''+sTarget+跡稿'姿昌孝/s/e',SW_HIDE);
end;
⑸ delphi如何復制文件夾
可以分步做嘛,先建立文件夾,再把文件復制到新的文件夾下,不是也能實現你的功能嗎?
⑹ 用delphi復制文件夾
procere findAll(tmp:string;ss:TStrings);
var
sc:TSearchRec;
begin
if FindFirst(tmp+'\*.*',faAnyFile,sc)=0 then
begin
repeat
if (sc.Attr and faDirectory)=sc.Attr then
if sc.Name[1]<>'.' then
findAll(tmp+'\'+sc.Name+'\*.*',ss)
else
else
ss.Append(tmp+'凱鉛\'+ sc.Name);
until FindNext(sc)<>0;
end;
FindClose(sc)
end;
這個函數是找tmp目錄下面的所有文件,然後生成一個文件路徑列激爛表。
有了路徑列表
for i:=0 to sl.count-1 do
begin
file(sl[i],目盯鉛好標路徑+extractfilename(sl[i]));
end;
好了 have fun
⑺ 如何在delphi中快速復制文件
pascal式文件復制:
var
f,ff:file;
NumRead,NumWritten:Word;
buf:array[1..8192]ofbyte;
begin
assign(f,'a.jpg');
Reset(F,1);
assign(ff,'b.jpg');
Rewrite(ff,1);
repeat
BlockRead(F,buf,SizeOf(buf),NumRead);
blockWrite(ff,buf,NumRead,NumWritten);
until(NumRead=0)or(NumWritten<>NumRead);
CLOSE(FF);
Close(F);
end.
⑻ 怎麼用delphi拷貝excel的時候,把格式也復制
1.如圖,將單元格區域復制,並粘貼到另外的區域,很明顯,粘貼後並沒有所有的格式復制過來。特別是行高列寬。要重稿拍新調整很麻煩。
2.其在粘貼選項里選擇保持「保留源列寬」就可以了。
3.第二種方法是選擇性粘貼的方法鍵清羨,
正鎮點滑鼠右鍵→「選擇性粘貼」命令,在對話框中選擇「列寬」。
4.復制單元格保留單元格行高和列寬方法:
整行復制可以保留行高,整列復制可以保留列寬,都要保留就只有整表復制。
所以大家如何要同時保持行高和寬的話,要同是選擇區域所在的行和列
⑼ delphi中如何實現文件的復制
用
CopyFile('c:\123.txt','d:\123-備份.txt',False);
最後那個false,如果設置成true就是如果d盤存在123-備份.txt則不替換源文件,設置成false則替換
⑽ delphi6dataset復制
delphi6dataset復制方法如下。
1、要對Delphi6dataset進行復制,可以使用Delphi6自帶的數據復譽謹制功能。
2、也可以使用第三方的數據復制工具來完成。
3、Delphi6dataset是一個由Delphi公司製作的數據集,它包含多個數據文件芹哪,其中包括歷史交易慶首基數據、客戶信息、市場資產等。