如何阅读文件版本,产品版本等exe文件的详细信息以及该文件的"属性"窗口中"详细信息"选项卡中存储的其他内容?谢谢.
我已经用Delphi编程了很长时间,我专注于桌面应用程序.我决定进入网页编程世界.我怎样才能拥有像Delphi这样的界面,但是有一个用于Web编程的脚本环境?有没有任何版本的Delphi我可以制作网页?
IntraWeb创建的应用程序可以作为整个站点上传吗?
您熟悉此块:
Var
mySet: Set Of Char;
C: Char;
begin
mySet := ['a', 'b', 'c'];
If C In mySet Then ShowMessage('Exists');
end;
Run Code Online (Sandbox Code Playgroud)
有没有办法申报Set Of STRING
?或者是否有类似的代码我可以使用?这个块的重要部分是If C In mySet Then ShowMessage('Exists');
我想使用类似于一组字符串的东西.
谢谢.
我的应用程序需要删除一些文件,但这应该发生,直到下一次启动Windows.
我现在正在做的是在RunOnce注册表项中写入此字符串值:
Command.com /c del c:\some file.ext
Run Code Online (Sandbox Code Playgroud)
但我发现嵌入空间的路径存在问题.我不得不说我也试过这个:
Command.com /c del "c:\some file.ext"
Run Code Online (Sandbox Code Playgroud)
但这并不能解决问题,但最糟糕的是:不管删除任何文件,无论嵌入空间如何!
从我的程序中删除文件延迟到下次重启的正确方法是什么?
谢谢.
重启机器后,我使用以下命令删除一些文件:
MoveFileEx(PChar(File_Address), Nil, MOVEFILE_DELAY_UNTIL_REBOOT);
Run Code Online (Sandbox Code Playgroud)
如何取消执行此命令并防止重启后删除文件?
我使用此代码来过滤我的表格:
Table.Filtered := False;
Table.Filter := '[' + Field_Search + '] LIKE ''%' + Edit_Search.Text + '%''';
Table.Filtered := True;
Run Code Online (Sandbox Code Playgroud)
但它引发了这个例外:
"操作不适用."
哪里有问题?
简短版本:是否可以单独控制或修改LisBox项目?例如,将其Visible 属性分别设置为False。在搜索时,我在Fire Monkey中找到了一个TListBoxItem类,但我不想使用Fire Monkey,而又希望在VCL中使用它。
详细版本:我尝试使用两个TStringList和一个Edit过滤ListBox,一个StringList是全局的,以保留原始列表(list_files_global
),另一个StringList是帮助过滤过程的(list_files_filter
),而我的主要文件列表是ListBox(list_files
)。我在onCreate
程序开始存储原始列表时在事件中创建了全局StringList :
procedure Tfrm_main.FormCreate(Sender: TObject);
Begin
list_files_global := TStringList.Create;
list_files_global.Assign(list_files.Items);
End;
Run Code Online (Sandbox Code Playgroud)
并使用Edit onChange
事件进行过滤:
procedure Tfrm_main.edit_files_filterChange(Sender: TObject);
Var
list_files_filter: TStringList;
i: Integer;
Begin
list_files_filter := TStringList.Create;
list_files_filter.Assign(list_files.Items);
list_files.Clear;
for i := 0 to list_files_filter.Count - 1 do
if pos(edit_files_filter.text, list_files_filter[i]) > 0 then
list_files.Items.Add(list_files_filter[i]);
End;
Run Code Online (Sandbox Code Playgroud)
而要关闭过滤器,只需从我最初创建的全局列表中恢复列表即可:
list_files.Items := list_files_global;
Run Code Online (Sandbox Code Playgroud)
到目前为止,一切正常,但是问题是当我尝试编辑/重命名/删除过滤列表中的项目时,例如,我更改了一个项目:
list_files.Items[i] := '-- Changed Item --';
Run Code Online (Sandbox Code Playgroud)
列表将被编辑,但是当我关闭过滤器时,原始列表将返回,所有更改都将丢失。所以我想知道是否有解决此问题的适当方法?诸如单独隐藏项目或更改项目可见性等之类的东西,因此我可以更改过滤算法并摆脱所有多余的列表。我上网搜索了整整一天的Delphi帮助文件,没有发现有用的信息。
我使用listview来存储和显示数据.如何在listview中隐藏和显示列?不要告诉我将列宽设置为0请!!!!