Merge pull request #408 from OH1KH/label_print

Fix for qsl label printing.
This commit is contained in:
Petr Hlozek 2021-03-06 10:11:57 +01:00 committed by GitHub
commit 7c064c7c93
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
2 changed files with 3 additions and 1 deletions

View File

@ -3243,6 +3243,8 @@ end;
function TdmUtils.IsQSLViaValid(Text: string): boolean;
begin
Result :=false;
if Text='' then exit; //do not allow empty RegExp
reg.InputString := Text;
reg.Expression := '\A\w{1,2}\d[A-Z]{1,3}\Z';
Result := reg.ExecPos(1);

View File

@ -10,7 +10,7 @@ const
cRELEAS = 2;
cBUILD = 1;
cBUILD_DATE = '2021-02-20';
cBUILD_DATE = '2021-03-05';
implementation