QBS Slogan
QBS Slogan
You are not currently logged in

Delux  by QBS Publishing

Delux Standard Edition
Delux Professional Edition
Delux # Standard Edition
Delux # Professional Edition

Delux Standard Edition

Features include:
  • VB program control structures are converted to functionally identical code in Delphi
  • Control arrays translated completely including all event procedures
  • Variable typeing and scoping is reproduced
  • VB on error goto structure is replaced with try...except...end; clauses
  • User defined types are converted to Delphi Record types
  • Standard functions are replaced by their Delphi equivalents if they exist
  • Argument lists in standard functions are amended if required
  • External function declarations are converted
  • File handling code using VBs open, print, input etc is converted Delphi equivalents
  • Compiler conditional directives (#if ... etc) are translated to {$ifdef
  • ... etc}
  • VB projects are translated to Delphi projects.


Delux Professional Edition

Features include:
  • Visual Basic to Delphi name mappings may be changed or extended as required
  • Visual Basic program control structures are converted to functionally identical code in Delphi
  • Variable typing and scoping is reproduced
  • The Visual Basic on error goto structure is replaced with try...except...end; clauses
  • User defined types are converted to Delphi Record types
  • Control arrays translated completely including all event procedures
  • Standard functions are replaced by their Delphi equivalents if they exist
  • Argument lists in standard functions are amended if required
  • External function declarations are converted
  • File handling code using VBs open, print, input etc is converted Delphi equivalents
  • The VB data control is mapped to three Delphi controls: TTable, TDBNavigator and TDatasource to provide the same functionality
  • Bound controls are mapped to their Delphi DB equivalents
  • Obsolete DAO code is upgraded to ADO code and controls
  • Compiler conditional directives (#if ... etc ) are translated to {%ifdef ... etc}
  • VB projects are translated to Delphi projects
  • VB to Delphi name mappings may be changed or extended as required.


Name Mapping

Name mapping is an important part of the translation process for re-naming control classes, types and standard functions etc. Delux attempts to find the VB term in its dictionary anywhere that a different word is used in Delphi and replaces it with the mapped word. Delux maintains a dictionary, referred to as the class map to assist in the name translation. The mapping process is on two levels and allows different property maps to be used for different classes. The same mappings are used for translating forms and code although the interpretation of the dictionary entries differs between the processes. Delux attempts the class-specific mapping during translation; the default mapping is used if there is no map in the class entry. The default mappings are collected in the dummy class 0Default.

Program Control

... Do/While/For loops

While k < 5
Univ = Univ + 1
k = k + 1
GArray((k - 1), Univ) = 0
Wend


while k<5 do begin
Univ := Univ+1;
k := k+1;
GArray[( k-1 ) , Univ ] := 0;
end;


Do
k = k + GArray(k + 1, Univ)
Loop Until True


repeat
k := k+GArray[ k+1 , Univ ];
until True ;


Do
k = k + 1
Loop While k = 3


repeat
k := k+1;
until not (k = 3 );


Do While k < 3
If k = 5 Then Exit Do
k = k + 1
Loop


while k<3 do begin
if (k = 5 ) then
break;
k := k+1;
end;


Do Until k < 3
If k = 5 Then Exit Do
k = k + 1
Loop


while not (k<3 ) do begin
if (k = 5 ) then
break;
k := k+1;
end;


If bname = "" Then Exit Sub
If bname = "b" Then
Univ = GArray(1, 12)
ElseIf bname = "a" Then
Univ = -1
Else
Univ = 0
End If


if (bname = ) then
exit;
if (bname = b ) then begin
Univ := GArray[ 1 , 12 ];
end
else if (bname = a ) then begin
Univ :=-1;
end
else begin
Univ := 0;
end;


Select Case k
Case 21
….
Case 0
….
Case Else
….
End Select


case k of
21 :
begin
….;
end;
0 :
begin
….;
end;
Else :
begin
….;
end;
end;


For i = 0 To 100 for loop
j = k * k
GArray(k, 0) = 12.4
continuation line
b = _
"this was continued …"
Next

-
for i := 0 to 100 do begin
j := k * k;
GArray[ k , 0 ] := 12.4;
file:// continuation line
b := this was continued …;
end;



Simple types

The default mapping is shown below and can be changed.

Visual BasicDelphi
integerlongint
longlongint
datetdate
doubledouble
stringstring
singledouble
booleanboolean
bytebyte
Currencydouble
objectTObject
variantvariant


Scope

VB has three levels of scope: procedure, module and project. In VB a form module cannot contain globally scoped variables or procedures and so all globals are placed in code modules (.BAS). In Delphi any module can contain global and module variables. Delux makes all global variables into module variables that are visible in
Code Description Excl VAT Incl VAT
107473 Standard v2.X (ESD) Immediate delivery. information button
Version: 2.X. Automatic Electronic Software Delivery: Our website will process this order and email you download instructions. There is no delivery charge for this item. Normally delivered immediately. Service is provided for 1 year.
£150.00 £180.00
107474 Professional v2.X (ESD) Immediate delivery. information button
Version: 2.X. Automatic Electronic Software Delivery: Our website will process this order and email you download instructions. There is no delivery charge for this item. Normally delivered immediately. Service is provided for 1 year.
£250.00 £300.00
110228 Pro Upgrade from Standard v2.X (ESD) Delivery same day. information button
Version: 2.X. Electronic Software Delivery: We manually process this order and then email you download instructions. There is no delivery charge for this item. Normally delivered same day. This is an Upgrade. Your existing Licence number for the product you are upgrading or crossgrading from is required on checkout - please enter it in Special Instructions. Service is provided for 1 year.
£100.00 £120.00

Code Description Excl VAT Incl VAT
117922 # Standard v1.X (ESD) Immediate delivery. information button
Version: 1.X. Automatic Electronic Software Delivery: Our website will process this order and email you download instructions. There is no delivery charge for this item. Normally delivered immediately. Service is provided for 1 year.
£150.00 £180.00
117921 # Professional v1.X (ESD) Immediate delivery. information button
Version: 1.X. Automatic Electronic Software Delivery: Our website will process this order and email you download instructions. There is no delivery charge for this item. Normally delivered immediately. Service is provided for 1 year.
£250.00 £300.00
117923 # Pro Upgrade from Standard v1.X (ESD) Delivery same day. information button
Version: 1.X. Electronic Software Delivery: We manually process this order and then email you download instructions. There is no delivery charge for this item. Normally delivered same day. This is an Upgrade. Your existing Licence number for the product you are upgrading or crossgrading from is required on checkout - please enter it in Special Instructions. Service is provided for 1 year.
£100.00 £120.00

Code Description Excl VAT Incl VAT
135898 VBNET Professional v1.X (ESD) Immediate delivery. information button
Version: 1.X. Automatic Electronic Software Delivery: Our website will process this order and email you download instructions. There is no delivery charge for this item. Normally delivered immediately. Service is provided for 1 year.
£250.00 £300.00

Code Description Excl VAT Incl VAT
128298 2005 Pro v1.X (ESD) Immediate delivery. information button
Version: 1.X. Automatic Electronic Software Delivery: Our website will process this order and email you download instructions. There is no delivery charge for this item. Normally delivered immediately. Service is provided for 1 year.
£250.00 £300.00

Code Description Excl VAT Incl VAT
130090 # Standard crossgrade from Standard v1.X (ESD) Immediate delivery. information button
Version: 1.X. Automatic Electronic Software Delivery: Our website will process this order and email you download instructions. There is no delivery charge for this item. Normally delivered immediately. This is an Upgrade. Your existing Licence number for the product you are upgrading or crossgrading from is required on checkout - please enter it in Special Instructions. Service is provided for 1 year.
£75.00 £90.00
130091 # Pro crossgrade from Standard v1.X (ESD) Immediate delivery. information button
Version: 1.X. Automatic Electronic Software Delivery: Our website will process this order and email you download instructions. There is no delivery charge for this item. Normally delivered immediately. This is an Upgrade. Your existing Licence number for the product you are upgrading or crossgrading from is required on checkout - please enter it in Special Instructions. Service is provided for 1 year.
£175.00 £210.00
130089 2005 crossgrade from Standard v1.X (ESD) Immediate delivery. information button
Version: 1.X. Automatic Electronic Software Delivery: Our website will process this order and email you download instructions. There is no delivery charge for this item. Normally delivered immediately. This is an Upgrade. Your existing Licence number for the product you are upgrading or crossgrading from is required on checkout - please enter it in Special Instructions. Service is provided for 1 year.
£175.00 £210.00

Spacer