有必要这样做吗?是不是相反了?应该在程序中控制联接才对啊
解决方案 »
- 各位大俠﹐幫我看看出了什么問題﹐晚上睡不著覺啊﹕(
- delphi中如何將MENO清空,賦值
- 二进制问题:如何根据给出的编码(如UCS2编码)得到sqlserver数据库的varbiny字段的字符串信息
- 請問各位大俠﹕如何在Dll中調用另一個Dll?
- 高分求能向左展开的TreeView控件!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
- 我的报表和程序不在一个目录,怎么会产生这样的问题???能解决吗
- 一个问题
- sql server中如何使用处理IIF函数?
- 关于打印问题。高手请进?
- 各位大侠用Delphi大约月薪多少啊!
- 关于用DELPHI和MSSQL做一个C/S的简单数据库管理系统的问题!!
- 消息传递的问题???高手来看!!!!
或者改目录名也可以,我没做过,请各位指点
var f : file;
begin
Rename(f, 'file new name');
end;
2.搜索目录查找指定文件的函数
FindFirst, FindNext, FindClose
事例程序:
procedure TForm1.Button1Click(Sender: TObject);var
sr: TSearchRec;
FileAttrs: Integer;
begin
StringGrid1.RowCount := 1;
if CheckBox1.Checked then
FileAttrs := faReadOnly
else
FileAttrs := 0;
if CheckBox2.Checked then
FileAttrs := FileAttrs + faHidden;
if CheckBox3.Checked then
FileAttrs := FileAttrs + faSysFile;
if CheckBox4.Checked then
FileAttrs := FileAttrs + faVolumeID;
if CheckBox5.Checked then FileAttrs := FileAttrs + faDirectory;
if CheckBox6.Checked then
FileAttrs := FileAttrs + faArchive;
if CheckBox7.Checked then FileAttrs := FileAttrs + faAnyFile; with StringGrid1 do
begin
RowCount := 0; if FindFirst(Edit1.Text, FileAttrs, sr) = 0 then begin
repeat
if (sr.Attr and FileAttrs) = sr.Attr then
begin
RowCount := RowCount + 1;
Cells[1,RowCount-1] := sr.Name;
Cells[2,RowCount-1] := IntToStr(sr.Size);
end;
until FindNext(sr) <> 0;
FindClose(sr);
end;
end;
end;
3.只要这一步能够实现,那么修改修改mysql数据库中指向这个文件的链接,就比较简单了.