delphi一个很简单的问题，本人菜鸟

Posted 2023-04-23

procedure TForm1.Button1Click(Sender: TObject);
begin
showmessage('输入错误，请重新输入','提示',mb_ok+64);
end;

end.

这句怎么错了，

我想点，button1，弹出一个对话框就行了，

直接ShowMessage('输入错误，请重新输入')就可以了。只要一个参数。

如果你需要更加丰富的控制，可以用MessageDlg函数。
MessageDlg的参数如下：
第一个参数是要显示的内容，
第二个参数是图标类型： mtConfirmation = 确认，问号图标, mtWarning = 警告，感叹号图标，mtError =错误，叉叉图标。
第三个参数表示显示在对话框上的按钮，是一个数组，例如[mbYes, mbNo]就显示Yes和No两个按钮。可选择的还有mbOk, mbCancel, mbYesToAll, mbIgnore, mbIgnoreAll等等。
最后一个参数表示上下文帮助的标识，通常是0.

函数的返回值是TModalResult类型的，跟第三个参数提供的按钮有关，例如用户点了YES按钮返回值就是mrYes 参考技术A showmessage() 函数内部参数为一个，字符型的
如果用OK 可以用下面函数
if MessageDlg('输入错误，请重新输入“Yes”', mtConfirmation, [mbYes, mbNo], 0) = mrYes then 参考技术B procedure TForm1.Button1Click(Sender: TObject);
begin
showmessage('输入错误，请重新输入');
end;

end.

delphi 菜鸟问题,急救

我想把文件列表的文件复制进对应的文件夹
另外要判断该文件是否在使用,如果在使用EXIT，没有使用覆盖该文件并写进log文件
犹豫文件是数目是不确定的,如何判断啊？
for i := 0 to listbox.items.count -1 do
判断这个listbox.items[i]因该不行,因为我要判断这个文件是否使用,没使用就覆盖并写到log文件..另外复制多个文件的函数也没找到..
copyfile(a[i],b[i],false) 这个不行
我不是备份文件,是COPY文件到服务器去,服务器的某些文件长期被使用..我写到TIMER里去，每隔几分钟检测1次，发现在使用或已经覆盖的文件就EXIT，否则就覆盖并写好覆盖日志..
copy文件夹 ---文件未知(X)--需要拷贝到对应的目录
ss是判断文件是否使用的函数
if ss(str(i)) then
copy文件进相印的文件夹
大家只要给我思路就好了，其他的我会解决

copyfileA(pchar(ExtractFilePath(ParamStr(0))+'datewj\xmmzsf.mdb'),pchar(bflj),false);
这个函数我经常用它来备份ACCESS数据库，很好用的，按理说，被备份的数据应该是正在使用的文件。
这函数有三个参数，第一个：原文件路径，第二个复制到的路径；第三个，是一布
尔值变量，你写成false就行了。追问

大哥，你没搞懂我的意思，我是要复制指定的文件，比如文件夹A中有10个文件(未知数)
这是个文件就是str[i],我要把这是10个文件分别复制到不同的目录
最重要的是我要判断是否在使用中..
if 使用函数(str(i)) then
copy这10个文件到指定的文件夹
copyfile是不行的，这个是小问题，最主要是如何判断为正在使用时EXIT
没有使用该文件时,copy覆盖该文件，并写进log或写进memo

参考技术A 以独占方式打开要覆盖的文件，如果打开错误，就是在使用