Hello all,
This program compiles, but it gives a wrong output.
program ertext;
{$mode objfpc}{$H+}
uses
Sysutils, regexpr;
var
r: TRegexpr;
i: integer;
BEGIN
r := TRegexpr.create;
try
r.expression := '^(x\s+)*(\([A-E]\))*(\s*.*\.)+(\s+\+.*\b)*(\s+@.*\b)*$';
if r.exec('x (A) Write a report. +AB
Hello everybody,
A project of mine was forked and adapted to Delphi by a programmer. Now we're
working to join both branches.
He did change the enumerations, he did use "=" instead of ":=" in assignments.
I've read FPC's documentation (Reference guide - 3.1.1 Ordinal types -
Enumeration types)
Thanks for sharing. Your code is working fine. But did you notice
deadlocks (randomly)? For example if I use thread for signals
listening. And then main thread (e.g. button click) want to call some
method from same dbus interface. Even if try to use different
connection by calling dbus_bus_get(DBUS
