delphi-xe

2热度

1回答

写作德尔福西雅图10 的数据存储在XML文件中使用FireMonkey一个多平台的手机应用程序的目录。屏幕上有显示民族名称的ListView和显示名称，地址，电话等＃秒一个细节选项卡当名称：DOE，约翰&简显示它是在两个组件区别对待。 The ListView shows: Doe, John & Jane The NameLabel shows: Doe, John Jane 如果我

8热度

2回答

如何获取任何类型集变量的元素数量？

AFAIK没有内置的功能。在网上搜索我发现这function它适用于我，但我不喜欢它，因为它是组装，我不明白它在做什么。所以我写了这个功能也可以工作： function Cardinality(const PSet: PByteArray; const SizeOfSet(*in bytes*): Integer): Integer; const Masks: array[0

1热度

1回答

如何在不加载图像的情况下使用扫描线进行绘制？

我试图做到以下几点： bmp := TBitmap.Create; bmp.Width := FWidth; bmp.Height := FHeight; for y := 0 to FHeight - 1 do begin sl := bmp.ScanLine[y]; for x := 0 to FWidth - 1 do begin //dra

1热度

1回答

德尔福SQLite插入到一个表中，主键为自动增量

我想将我的应用程序从mySQL迁移到SQLite，为了做到这一点，我在SQLite中重新创建了所有mySQL表。我读了关于AUTOINCREMENT不推荐用于声明实际自动增量字段的事实。而不是我应该只声明我的autoincrement字段为PRIMARY KEY NOT NULL，并且SQLite会自动增加它。一切都很好，除非它不起作用或我不能使用它。我使用Delphi XE用的Zeos和S

-1热度

1回答

在某些电脑上无法正确显示PNG图像

我在我的应用程序中使用了一些PNG图像，在大多数电脑中显示图像时没有问题，但在某些电脑图像中显示不正确！正确的表示是这样的：在这样示出的一些电脑应用：或这样的：我使用Delphi XE6 我已经使用Delphi的TImage显示图像，一些图像已经拉伸，一些没有，背景图像Align是allClient，FormStyle是bsSingle，没有其他特殊的东西！似乎有些图像已放大和其他一些人

0热度

2回答

如何才能找到字符串中的前两个字

Hy！找到字符串中前两个单词的最佳方法是什么？例如，我的字符串是一个像下面这样的地址：十字键十三，我只需要'十字键'。我应该计算字符串中的单词还是有更好的解决方案？我可以轻松获得第一个和最后一个单词。我是Delphi的新手。感谢您的建议。 procedure SampleForm.ButtonClick(Sender: TObject); var st: string; m

3热度

1回答

绘制透明缩放PNG

我有一个大的（300x300px）PNG图像，我需要重新缩放。在其他SO question我读了关于StretchBlt和HALFTONE为了更好的缩放。我的问题是我如何绘制PNG图像透明，或至少涂黑的角落白色？正如你所附加的图像上看到我得到黑色的角落。这里是原始图像：这是我到目前为止尝试过的。 unit MainU; interface uses Windows, Me

1热度

1回答

将文件上传到Web服务器的Delphi + PHP

我工作的一个程序，我需要通过HTTP 我已经搜查，并得到了这一个“的log.txt”上传到网络服务器..： - 德尔福XE： procedure TForm1.Button1Click(Sender: TObject); begin idhttp1.Post('http://127.0.0.1/GET2.php', 'C:\Users\Someone\Desktop\log.txt') en

3热度

1回答

如何防止ListView标题遮挡第一组的顶部？

我使用Delphi XE，我想使标准ListView的行为看起来像我想要的。我想列表视图是vsReport，所以我可以为我的项目组。在设计时，我为每个组创建了列（名为Topic的一列），两个组和几个项目。在设计时，ListView看起来不错，但是在运行时，我的第一组在某种程度上隐藏在列标题下。以下是图像：在设计时：在运行时：，这里是我的DFM object Form2: TForm2

-2热度

2回答

在POS打印机上打印图像

好的。过了一段时间我有一个工作的maded程序。下面是Delphi代码： procedure TNativePrint.DoPrintBitmap(const ABitmap : TBitmap; const BitsPerSlice : byte); const Threshhold = 127; type TBitArray = array of boolean;