Delphi组件或库来显示数学表达式（delphi 组件）

25-01-24 26

这篇文章主要围绕Delphi组件或库来显示数学表达式和delphi组件展开，旨在为您提供一份详细的参考资料。我们将全面介绍Delphi组件或库来显示数学表达式的优缺点，解答delphi组件的相关问题，

这篇文章主要围绕Delphi组件或库来显示数学表达式和delphi 组件展开，旨在为您提供一份详细的参考资料。我们将全面介绍Delphi组件或库来显示数学表达式的优缺点，解答delphi 组件的相关问题，同时也会为您带来Delphi for iOS开发指南(8):在iOS应用程序中使用Tab组件来显示分页、delphi – 在FireMonkey中锚定GUI组件、DELPHI 正则表达式、Delphi 正则表达式之 TPerlRegEx 类的属性与方法 (2): 关于子表达式的实用方法。

本文目录一览：

Delphi组件或库来显示数学表达式（delphi 组件）
Delphi for iOS开发指南(8):在iOS应用程序中使用Tab组件来显示分页
delphi – 在FireMonkey中锚定GUI组件
DELPHI 正则表达式
Delphi 正则表达式之 TPerlRegEx 类的属性与方法 (2): 关于子表达式

Delphi组件或库来显示数学表达式（delphi 组件）

我正在寻找一个在Delphi中显示数学表达式的简单组件。当我开始的时候，我觉得很容易在网上找到东西，但事实证明它比预期的要困难得多。有很多很多的组件将解析数学表达式，但很少(无？)将显示它们。

理想情况下，我希望一个组件像TLabel一样简单，我可以在这里设置一些表达式的标题，并且可以正确显示，但是让我将表达式绘制到画布上的某种库也足以满足我的需要。

更新：

我不是在谈论绘制函数或类似的图形。我想显示(例如)

(X^2+3)/X

喜欢这个：

解：

MBo的答案就是我正在寻找的。有些人可能被推翻，所有的意见和文件都是俄文的，但不要让你吓到你。这真的很容易使用。

安装：将文件(至少“ExprMake.pas”和“ExprDraw.pas”)解压缩到库路径中的目录。而已。

使用：我没有进行广泛的实验，但这几行表明它是多么容易。

procedure TForm1.Button1Click(Sender: TObject);
var
  vExprC : TExprClass;
  vExprB : TExprBuilder;
begin
  vExprB := TExprBuilder.Create;
  try
    vExprC := vExprB.BuildExpr('(X^2+3)/X');
    vExprC.Canvas := Canvas;
    vExprC.Font.Size := 50;
    vExprC.Draw(10,10,ehLeft,evTop);
  finally
    vExprC.Free;
    vExprB.Free;
  end;
end;

解决方法

Native Delphi module作者Anton Grigoriev绘制数学表达式。助理计划 – 俄语。 This is how it looks。

关于学分的补充：模块是免费的。作者只提到(AboutBox等)数学表达式是通过ExprDraw和ExprMake模块绘制的，由Anton Grigoriev(从readme.txt原始翻译)

Delphi for iOS开发指南(8):在iOS应用程序中使用Tab组件来显示分页

总结

以上是小编为你收集整理的Delphi for iOS开发指南(8):在iOS应用程序中使用Tab组件来显示分页全部内容。

如果觉得小编网站内容还不错，欢迎将小编网站推荐给好友。

delphi – 在FireMonkey中锚定GUI组件

刚刚开始测试FireMonkey,无法找到制作动态大小/定位组件的方法.

VCL有Anchor属性,FM没有.

有人看到我错过的东西

更新：

FM中没有简单的锚定功能.您必须创建TLayouts并对齐它们,然后将控件放在面板中以使它们“粘住”.如果您使用的是旧版本的Builder或Delphi,这将与我们以前与TPanels相同.

解决方法

这是你的问题的答案. VCL中的锚属性显然已被边距和填充所取代(由于性能方面的考虑),我在XE2 wiki( http://docwiki.embarcadero.com/RADStudio/en/FireMonkey_Application_Design)上找到了一些文档.我怀疑锚是否会在以后投入使用.要在右侧的表单底部锚定两个按钮(确定和取消),请执行以下操作.请参阅下面的图像以获取确定和取消按钮.

在表格上放置一个与底部对齐的小面板,比如大约40个高度.设置底部面板上的“边距”以创建一个较小的空间,按钮将在该空间中生效,请确保将按钮设置为alRight.例如,窗体右边缘和最右边按钮之间的间隙边距为15.顶部和底部边距设置为12.固定最右边的按钮.

‘填充’与边距相反,填充将空间置于控件之外.在最右侧的按钮中,我在左侧添加了20个填充,这将是两个按钮之间的空间.对于第一个左边的第二个按钮,我们需要做的是将align属性设置为alRight,不需要调整填充或边距.

DELPHI 正则表达式

1）下载源码

官方网站: http://www.regular-expressions.info/delphi.html
直接下载: http://www.regular-expressions.info/download/TPerlRegEx.zip

2）改编译开关

pcre.pas 文件，到 {$DEFINE PCRE_LINKDLL} ，把它注释掉，即改为 //{$DEFINE PCRE_LINKDLL} 。注意：这点非常重要，如果不这样改的话，在软件开发完成后，

分发到其他电脑上的时候，软件就会提示 “缺少 pcre3.dll 错误”。这样修改的原因，是把正则直接封包到 exe 文件里，而不需要链接 pcre3.dll 了；封包进 exe，

付出的代价是软件增大了 100KB 左右的大小，当然比起必须携带 pcre3.dll 来说，这是有意义的付出。

3）代码演示

//查找是否存在
var
  reg: TPerlRegEx;
begin
  reg := TPerlRegEx.Create(nil);
  reg.Subject := ''CodeGear Delphi 2007 for Win32'';
  reg.RegEx   := ''\d'';
  if reg.Match then
    ShowMessage(''找到了'')
  else
    ShowMessage(''没找到'');
  FreeAndNil(reg);
end;

//替换一般字符串
var
reg: TPerlRegEx;
begin
reg := TPerlRegEx.Create(nil);
reg.Subject := ''我爱DELPHI, 但Delphi不爱我!'';
reg.RegEx   := ''Delphi'';
reg.Replacement := ''◆'';
reg.ReplaceAll;
ShowMessage(reg.Subject); //返回: 我爱DELPHI, 但◆不爱我!          
FreeAndNil(reg);
end;

//分别显示找到的每一个和总数
var
  reg: TPerlRegEx;
  num: Integer; //用 num 来计数
begin
  reg := TPerlRegEx.Create(nil);  
  reg.Subject := ''CodeGear Delphi 2007 for Win32'';
  reg.RegEx   := ''\d'';  
  num := 0;
  while reg.MatchAgain do  //MatchAgain 是下一个
  begin
    ShowMessage(reg.MatchedExpression); //将分别显示: 2 0 0 7 3 2
    Inc(num);
  end;
    ShowMessage(IntToStr(num)); //6  FreeAndNil(reg);
end;

//目标字符串的位置与长度
var
  reg: TPerlRegEx;
begin
  reg := TPerlRegEx.Create(nil);  reg.Subject := ''CodeGear Delphi 2007 for Win32'';
  reg.RegEx   := ''Delphi'';  while reg.MatchAgain do  //很明显: 本例只能找到一个结果
  begin
    ShowMessage(reg.MatchedExpression); //找到的字符串: Delphi
    ShowMessage(IntToStr(reg.MatchedExpressionOffset)); //它所在的位置: 10
    ShowMessage(IntToStr(reg.MatchedExpressionLength)); //它的长度: 6
  end;  FreeAndNil(reg);
end;
// Matchedexpression_r 与Subexpression_rs[0]
var
reg: TPerlRegEx;
begin
reg := TPerlRegEx.Create(nil);
reg.Subject := ''CodeGear Delphi 2007'';
reg.RegEx   := ''Delphi'';
while reg.MatchAgain do
begin
   ShowMessage(reg.Matchedexpression_r); //Delphi; 这是匹配到的内容
   ShowMessage(reg.Subexpression_rs[0]); //Delphi; 也可以这样显示匹配到的内容
end;
{
Subexpression_rs 是一个数组:
Subexpression_rs[1] 储存第 1 个表达式匹配的内容;
Subexpression_rs[2] 储存第 2 个表达式匹配的内容;
Subexpression_rs[n] 储存第 n 个表达式匹配的内容;
Subexpression_rs[0] 储存整个表达式匹配的内容;
Matchedexpression_r 表示的不过是 Subexpression_rs[0].
}
FreeAndNil(reg);
end;
//提取子表达式匹配到的内容
var
reg: TPerlRegEx;
begin
reg := TPerlRegEx.Create(nil);
reg.Subject := ''abc A1111 BB222 CCC33 DDDD4'';
reg.RegEx   :=''\b([A-D]+)([1-4]+)\b''; //这个表达式有两个子表达式构成
while reg.MatchAgain do
begin
   ShowMessage(reg.Subexpression_rs[0]); //将分别显示: A1111 BB222 CCC33DDDD4
   ShowMessage(reg.Subexpression_rs[1]); //将分别显示: A BB CCC DDDD
   ShowMessage(reg.Subexpression_rs[2]); //将分别显示: 1111 222 33 4
   {另外:
     reg.Subexpression_rCount     是子表达式的个数;
     reg.Subexpression_rLengths[n] 是第 n 个表达式返回的字符串的长度;
     reg.Subexpression_rOffsets[n] 是第 n 个表达式返回的字符串在源字符串中的位置
    }
end;
FreeAndNil(reg);
end;
//子表达式不能超过 MAX_SUBexpression_rS = 99 个, MAX_SUBexpression_rS 是TPerlRegEx 的内置常数.
//设定搜索范围: Start、Stop
var
reg: TPerlRegEx;
begin
reg := TPerlRegEx.Create(nil);
reg.Subject := ''ababab'';
reg.RegEx   := ''ab'';
reg.Replacement := ''◆'';
reg.Start := 1;
reg.Stop := 2;
while reg.MatchAgain do
begin
   reg.Replace;
end;
ShowMessage(reg.Subject); //返回: ◆abab

reg.Subject := ''ababab'';
reg.Start := 3;
reg.Stop := 4;
while reg.MatchAgain do
begin
   reg.Replace;
end;
ShowMessage(reg.Subject); //返回: ab◆ab

reg.Subject := ''ababab'';
reg.Start := 5;
reg.Stop := 6;
while reg.MatchAgain do
begin
   reg.Replace;
end;
ShowMessage(reg.Subject); //返回: abab◆
FreeAndNil(reg);
end;

// Replace
var
reg: TPerlRegEx;
begin
reg := TPerlRegEx.Create(nil);
reg.RegEx   := ''ab'';
reg.Replacement := ''◆'';
reg.Subject := ''ababab'';
reg.ReplaceAll;
ShowMessage(reg.Subject); //返回: ◆◆◆

reg.Subject := ''ababab'';
//下面四行程序, 相当于 reg.ReplaceAll;
while reg.MatchAgain do
begin
   reg.Replace;
end;
ShowMessage(reg.Subject); //返回: ◆◆◆
FreeAndNil(reg);
end;
{
ReplaceAll 函数返回的是 Boolean;
Replace 函数返回的是 Replacement 的值, 当然是不能赋值的, 它仅仅是返回值.
}

// Compile、Study
var
reg: TPerlRegEx;
begin
reg := TPerlRegEx.Create(nil);
reg.RegEx   := ''ab'';
reg.Options := [preCaseLess];
reg.Compile; {编译表达式}
reg.Study; {Study 方法会检查是否编译, 如果没有编译则执行 Compile}
reg.Replacement := ''◆'';
reg.Subject := ''abAbaB'';
reg.ReplaceAll;
ShowMessage(reg.Subject); {返回: ◆◆◆}
FreeAndNil(reg);
end;
{
编译表达式, 会加快执行速度、降低启动速度;
如果表达式比较复杂而又多次执行, 应该先编译;
编译内容包括表达式选项.
}
// EscapeRegExChars 函数可以自动为特殊字符加转义符号 \
var
reg: TPerlRegEx;
begin
reg := TPerlRegEx.Create(nil);
reg.Subject := ''C++Builer'';
reg.RegEx   :=reg.EscapeRegExChars(''C+'') + ''{2}''; {相当于 ''C\+{2}''}
reg.Replacement := ''◆'';
reg.ReplaceAll;
ShowMessage(reg.Subject); {返回: ◆Builer}
FreeAndNil(reg);
end;
//字符串分割: Split
var
reg: TPerlRegEx;
List: TStrings;
begin
List := TStringList.Create;
reg := TPerlRegEx.Create(nil);
reg.Subject := ''aaa,bbb,ccc,ddd'';
reg.RegEx   := '','';{这里可是运行相当复杂的分割符啊}
reg.Split(List,MaxInt); {第一个参数读入的是 Subject; 第二个参数是分成多少份}
{ 输入一个最大整数, 表示能分多少就分多少}
ShowMessage(List.Text);
{返回:
    aaa
    bbb
    ccc
    ddd
}
FreeAndNil(reg);
List.Free;
end;
DEMO：
#!/usr/bin/perl
 
use strict;
use warnings;
 
my @array;
open(my $fh, "<", "file3")
  or die "Failed to open file: $!\n";
while(<$fh>) {
    chomp;
    push @array, $_;
}
close $fh;
 
foreach my $line(@array)
{
    if($line =~ /.*([0-9][0-9][0-9][0-9]-[0-9][0-9]-[0-9][0-9]).*logged in\((.*)\).*/gi)
    {
       print $1,",", $2,"\n";
    }
 
}

Delphi 正则表达式之 TPerlRegEx 类的属性与方法 (2): 关于子表达式

// MatchedExpression 与 SubExpressions[0]
var
  reg: TPerlRegEx;
begin
  reg := TPerlRegEx.Create(nil);

  reg.Subject := ''CodeGear Delphi 2007'';
  reg.RegEx   := ''Delphi''; 

  while reg.MatchAgain do
  begin
    ShowMessage(reg.MatchedExpression); //Delphi; 这是匹配到的内容
    ShowMessage(reg.SubExpressions[0]); //Delphi; 也可以这样显示匹配到的内容
  end;
{
  SubExpressions 是一个数组:
  SubExpressions[1] 储存第 1 个表达式匹配的内容;
  SubExpressions[2] 储存第 2 个表达式匹配的内容;
  SubExpressions[n] 储存第 n 个表达式匹配的内容;

  SubExpressions[0] 储存整个表达式匹配的内容;

  MatchedExpression 表示的不过是 SubExpressions[0].
}

  FreeAndNil(reg);
end;

 
 
 
 
 

 

 

  
  

//提取子表达式匹配到的内容
var
  reg: TPerlRegEx;
begin
  reg := TPerlRegEx.Create(nil);

  reg.Subject := ''abc A1111 BB222 CCC33 DDDD4'';
  reg.RegEx   := ''\b([A-D]+)([1-4]+)\b''; //这个表达式有两个子表达式构成

  while reg.MatchAgain do
  begin
    ShowMessage(reg.SubExpressions[0]); //将分别显示: A1111 BB222 CCC33 DDDD4
    ShowMessage(reg.SubExpressions[1]); //将分别显示: A BB CCC DDDD
    ShowMessage(reg.SubExpressions[2]); //将分别显示: 1111 222 33 4

    {另外:
      reg.SubExpressionCount      是子表达式的个数;
      reg.SubExpressionLengths[n] 是第 n 个表达式返回的字符串的长度;
      reg.SubExpressionOffsets[n] 是第 n 个表达式返回的字符串在源字符串中的位置
    }
  end;

  FreeAndNil(reg);
end;

 
 
 
 
 

 

 

  
  

//子表达式不能超过 MAX_SUBEXPRESSIONS = 99 个, MAX_SUBEXPRESSIONS 是 TPerlRegEx 的内置常数.

我们今天的关于Delphi组件或库来显示数学表达式和delphi 组件的分享就到这里，谢谢您的阅读，如果想了解更多关于Delphi for iOS开发指南(8):在iOS应用程序中使用Tab组件来显示分页、delphi – 在FireMonkey中锚定GUI组件、DELPHI 正则表达式、Delphi 正则表达式之 TPerlRegEx 类的属性与方法 (2): 关于子表达式的相关信息，可以在本站进行搜索。

本文标签：