小编non*_*one的帖子

创建一个常量字符串数组

Delphi中是否有一种方法可以声明一个字符串数组,例如跟随一个字符串?

{'first','second','third'}
Run Code Online (Sandbox Code Playgroud)

arrays delphi const

38
推荐指数
3
解决办法
6万
查看次数

寻找Excel的.xlsx XML格式的清晰描述

Microsoft Excel的".xlsx"文件是zip文件,每个文件都包含一组文件.

有人可以提供一个链接,简明地描述嵌入.xml文件的完整结构/语法/标记/格式(标题不太有趣)?

例如,很难找到什么网上的解释c,t以及s元素表示.

xml format syntax excel xlsx

35
推荐指数
2
解决办法
3万
查看次数

ms sql xml数据类型转换为文本

在MS Sql中有delphi 7不支持的数据类型,xml数据类型就是一个例子.

我希望将XML数据类型转换为Text数据类型,以便我可以在delphi中处理它.

有没有办法从xml转换为文本?

xml sql-server delphi text delphi-7

24
推荐指数
2
解决办法
8万
查看次数

德尔福是数字

Delphi中是否有方法检查字符串是否为数字而不引发异常?

它用于int解析.

如果一个人使用,则会引发异常

try
  StrToInt(s);
except
  //exception handling
end;
Run Code Online (Sandbox Code Playgroud)

delphi delphi-7

21
推荐指数
4
解决办法
7万
查看次数

将无限数量的参数传递给过程

在Delphi中,程序写入可以处理:

write(TF,st1)
Run Code Online (Sandbox Code Playgroud)

write(TF,st1,st2,st3,st4);
Run Code Online (Sandbox Code Playgroud)

我想声明一个也可以这样做的程序,语法是什么?

和选项:

write(TF,[st1,st2,st3])
Run Code Online (Sandbox Code Playgroud)

虽然我知道如何做到这一点,但是不太可取.

主要目的是将ShortStrings 传递给函数,它将从文件进行读取调用,并将shortString按照定义的长度读取.然而,在将它作为变体或在开放数组中传递之后,它shortString失去了它的"大小"并变为255,这使得这个传递对我来说无法使用.但如果你想传递开放数组,答案仍然存在.

delphi parameters delphi-2009

16
推荐指数
3
解决办法
1万
查看次数

哪个Delphi数据结构可以包含唯一整数列表?

当我处理Java问题时,我使用集合模式.但是,在Delphi中执行它是一个噩梦,因为没有Integer对象来处理事情.

我需要一个包含数字的数据结构.我希望能够添加数字,删除数字,并检查集合的内容,每个数字必须是唯一的.

我对自己需要实现和测试bug的解决方案不感兴趣.是否有像Java的HashTable这样的现成对象?

delphi collections data-structures

10
推荐指数
5
解决办法
2万
查看次数

在delphi中自动滚动备忘录

delphi是否包含允许从db加载的自动滚动文本的组件,比如在新闻站点中?

这是一个delphi 7应用程序,需要垂直滚动.

delphi delphi-7

10
推荐指数
3
解决办法
3万
查看次数

如何在Windows桌面上创建文件快捷方式(*.lnk文件)?

function GetDesktopFolder: string;
var
  buf: array[0..MAX_PATH] of Char;
  pidList: PItemIDList;
begin
  Result := StrNoDesktopFolderFo;
  SHGetSpecialFolderLocation(Application.Handle, CSIDL_DESKTOP, pidList);
  if (pidList <> nil) then
    if (SHGetPathFromIDList(pidList, buf)) then
      Result := buf;
end;

procedure p;
var
  i: Integer;
  IObject: IUnknown;
  ISLink: IShellLink;
  IPFile: IPersistFile;
  PIDL: PItemIDList;
  InFolder: array[0..MAX_PATH] of Char;
  TargetName: string;
  LinkName: string;
begin
  TargetName := 'c:\folder\exeFile.exe';//hardcoded example

  IObject := CreateComObject(CLSID_ShellLink) ;
  ISLink := IObject as IShellLink;
  IPFile := IObject as IPersistFile;

  with ISLink do
  begin
    SetDescription('what ever');
    SetPath(pChar(TargetName)) ;
    SetWorkingDirectory(pChar(ExtractFilePath(TargetName))) ; …
Run Code Online (Sandbox Code Playgroud)

delphi delphi-2009

10
推荐指数
1
解决办法
9243
查看次数

DUnit比较两个文本文件并显示Diff

有没有办法比较两个文本文件,并显示差异,如果他们在dunit不相同?

简单的开始是将它们读取到TStringList,但是用于比较两个文本文件的代码要复杂得多,而且DUnitGui中的gui对此不够.

任何的想法?建议?

windows delphi diff user-interface dunit

9
推荐指数
1
解决办法
2055
查看次数

将xml存储在xml中

使用OmniXML包,是否可以将XML代码存储在具有自己的XML数据的另一个XML文件中?

像这样:

<?xml version="1.0" encoding="UTF-8" standalone="yes"?>
<root>
<data>
   <?xml version="1.0" encoding="UTF-8" standalone="yes"?>
      <otherxml>data</otherxml>
</data>
Run Code Online (Sandbox Code Playgroud)

在标签数据里面,一切都应该是数据.是否存在防止解析器将下一个数据解析为XML数据结构的转义字符?

或者OmniXML是否支持这种情况的序列化?

任何其他简单的想法也欢迎.

xml delphi xml-serialization delphi-2009 omnixml

9
推荐指数
1
解决办法
2731
查看次数