<html xmlns:v="urn:schemas-microsoft-com:vml" xmlns:o="urn:schemas-microsoft-com:office:office" xmlns:w="urn:schemas-microsoft-com:office:word" xmlns:m="http://schemas.microsoft.com/office/2004/12/omml" xmlns="http://www.w3.org/TR/REC-html40">
<head>
<meta http-equiv=Content-Type content="text/html; charset=us-ascii">
<meta name=Generator content="Microsoft Word 12 (filtered medium)">
<style>
<!--
/* Font Definitions */
@font-face
{font-family:Wingdings;
panose-1:5 0 0 0 0 0 0 0 0 0;}
@font-face
{font-family:"Cambria Math";
panose-1:2 4 5 3 5 4 6 3 2 4;}
@font-face
{font-family:Calibri;
panose-1:2 15 5 2 2 2 4 3 2 4;}
/* Style Definitions */
p.MsoNormal, li.MsoNormal, div.MsoNormal
{margin:0cm;
margin-bottom:.0001pt;
font-size:11.0pt;
font-family:"Calibri","sans-serif";}
h3
{mso-style-priority:9;
mso-style-link:"Rubrik 3 Char";
mso-margin-top-alt:auto;
margin-right:0cm;
mso-margin-bottom-alt:auto;
margin-left:0cm;
font-size:13.5pt;
font-family:"Times New Roman","serif";}
a:link, span.MsoHyperlink
{mso-style-priority:99;
color:blue;
text-decoration:underline;}
a:visited, span.MsoHyperlinkFollowed
{mso-style-priority:99;
color:purple;
text-decoration:underline;}
span.E-postmall17
{mso-style-type:personal-compose;
font-family:"Calibri","sans-serif";
color:windowtext;}
span.Rubrik3Char
{mso-style-name:"Rubrik 3 Char";
mso-style-priority:9;
mso-style-link:"Rubrik 3";
font-family:"Times New Roman","serif";
font-weight:bold;}
span.mw-headline
{mso-style-name:mw-headline;}
.MsoChpDefault
{mso-style-type:export-only;}
@page WordSection1
{size:612.0pt 792.0pt;
margin:70.85pt 70.85pt 70.85pt 70.85pt;}
div.WordSection1
{page:WordSection1;}
/* List Definitions */
@list l0
{mso-list-id:183252294;
mso-list-template-ids:-1835268130;}
@list l0:level1
{mso-level-number-format:bullet;
mso-level-text:\F0B7;
mso-level-tab-stop:36.0pt;
mso-level-number-position:left;
text-indent:-18.0pt;
mso-ansi-font-size:10.0pt;
font-family:Symbol;}
@list l1
{mso-list-id:353305246;
mso-list-template-ids:770055636;}
@list l2
{mso-list-id:846676806;
mso-list-template-ids:559990722;}
@list l2:level1
{mso-level-number-format:bullet;
mso-level-text:\F0B7;
mso-level-tab-stop:36.0pt;
mso-level-number-position:left;
text-indent:-18.0pt;
mso-ansi-font-size:10.0pt;
font-family:Symbol;}
@list l3
{mso-list-id:1228226087;
mso-list-template-ids:761428216;}
@list l4
{mso-list-id:1473869351;
mso-list-template-ids:-484550;}
@list l4:level1
{mso-level-number-format:bullet;
mso-level-text:\F0B7;
mso-level-tab-stop:36.0pt;
mso-level-number-position:left;
text-indent:-18.0pt;
mso-ansi-font-size:10.0pt;
font-family:Symbol;}
ol
{margin-bottom:0cm;}
ul
{margin-bottom:0cm;}
-->
</style>
<!--[if gte mso 9]><xml>
<o:shapedefaults v:ext="edit" spidmax="1026" />
</xml><![endif]--><!--[if gte mso 9]><xml>
<o:shapelayout v:ext="edit">
<o:idmap v:ext="edit" data="1" />
</o:shapelayout></xml><![endif]-->
</head>
<body lang=SV link=blue vlink=purple>
<div class=WordSection1>
<div style='mso-element:para-border-div;border:none;border-bottom:solid windowtext 1.0pt;
padding:0cm 0cm 1.0pt 0cm'>
<p class=MsoNormal style='border:none;padding:0cm'>Hi,<o:p></o:p></p>
<p class=MsoNormal style='border:none;padding:0cm'><o:p> </o:p></p>
<p class=MsoNormal style='border:none;padding:0cm'><span lang=EN-US>Although I’m
a Lazarus beginner, I hope the following can be of use for others who want to convert
code and for the improvement of the converter in Lazarus.<o:p></o:p></span></p>
<p class=MsoNormal style='border:none;padding:0cm'><span lang=EN-US><o:p> </o:p></span></p>
<p class=MsoNormal style='border:none;padding:0cm'><span lang=EN-US>After
having converted my Delphi 4 project with Lazarus 0.9.28.2 beta, Lazarus could
build a working executable, but an error message about duplicate resource would
show up when I ran my .exe file. The text below, which I found on <a
href="http://wiki.lazarus.freepascal.org/Code_Conversion_Guide#Converting_Delphi_projects.2Fforms.2Funits_to_Lazarus">http://wiki.lazarus.freepascal.org/Code_Conversion_Guide#Converting_Delphi_projects.2Fforms.2Funits_to_Lazarus</a>,
was helpful to solve the problem. I manually edited the converted files
according to the parts highlighted with yellow below (hope that the yellow will
be visible to all readers) and <i>deleted one of the two lines with {$i unitname.lrs}
near the end of the .pas file</i>. Then I could build again and now my new .exe
file runs without the error message.<o:p></o:p></span></p>
<p class=MsoNormal style='border:none;padding:0cm'><span lang=EN-US><o:p> </o:p></span></p>
<p class=MsoNormal style='border:none;padding:0cm'><span lang=EN-US>In the
beginning, it was also a bit confusing that I could not see the unit and form
of the converted project, but had to click View…<o:p></o:p></span></p>
<p class=MsoNormal style='border:none;padding:0cm'><span lang=EN-US><o:p> </o:p></span></p>
<p class=MsoNormal style='border:none;padding:0cm'><span lang=EN-US>Sven<o:p></o:p></span></p>
<p class=MsoNormal style='border:none;padding:0cm'><span lang=EN-US><o:p> </o:p></span></p>
</div>
<p class=MsoNormal><span lang=EN-US><o:p> </o:p></span></p>
<p class=MsoNormal style='mso-margin-top-alt:auto;mso-margin-bottom-alt:auto'><b><span
lang=EN style='font-size:13.5pt;font-family:"Times New Roman","serif"'>Another
method to convert a Delphi or Kylix project to Lazarus<o:p></o:p></span></b></p>
<ul type=disc>
<li class=MsoNormal style='mso-margin-top-alt:auto;mso-margin-bottom-alt:auto;
mso-list:l0 level1 lfo1'><span lang=EN style='font-size:12.0pt;font-family:
"Times New Roman","serif"'>Rename or copy all .dfm or .xfm files to .lfm
(Early Delphi versions do not produce a text-based .dfm file. The convert
utility, if present in the \bin folder can be used to covert the .dfm
first)) <o:p></o:p></span></li>
<li class=MsoNormal style='mso-margin-top-alt:auto;mso-margin-bottom-alt:auto;
mso-list:l0 level1 lfo1'><span lang=EN style='font-size:12.0pt;font-family:
"Times New Roman","serif"'>Rename or copy .dpr file to .lpr <o:p></o:p></span></li>
<li class=MsoNormal style='mso-margin-top-alt:auto;mso-margin-bottom-alt:auto;
mso-list:l0 level1 lfo1'><span lang=EN style='font-size:12.0pt;font-family:
"Times New Roman","serif"'>Make necessary changes to .lpr file: <o:p></o:p></span></li>
</ul>
<ol start=1 type=1>
<li class=MsoNormal style='mso-margin-top-alt:auto;mso-margin-bottom-alt:auto;
mso-list:l1 level1 lfo2'><span lang=EN style='font-size:12.0pt;font-family:
"Times New Roman","serif"'>Add {$mode delphi}<span style='background:yellow;
mso-highlight:yellow'>{$H+}</span> or {$mode objfpc}{H+} directives <o:p></o:p></span></li>
<li class=MsoNormal style='mso-margin-top-alt:auto;mso-margin-bottom-alt:auto;
mso-list:l1 level1 lfo2'><span lang=EN style='font-size:12.0pt;font-family:
"Times New Roman","serif"'>Add 'Interfaces' to uses clause <o:p></o:p></span></li>
<li class=MsoNormal style='mso-margin-top-alt:auto;mso-margin-bottom-alt:auto;
mso-list:l1 level1 lfo2'><span lang=EN style='font-size:12.0pt;font-family:
"Times New Roman","serif"'>Comment out or <span style='background:yellow;
mso-highlight:yellow'>delete {$R *.res}</span> or directive <o:p></o:p></span></li>
</ol>
<ul type=disc>
<li class=MsoNormal style='mso-margin-top-alt:auto;mso-margin-bottom-alt:auto;
mso-list:l4 level1 lfo3'><span lang=EN style='font-size:12.0pt;font-family:
"Times New Roman","serif"'>Make necessary changes to all .pas unit files: <o:p></o:p></span></li>
</ul>
<ol start=1 type=1>
<li class=MsoNormal style='mso-margin-top-alt:auto;mso-margin-bottom-alt:auto;
mso-list:l3 level1 lfo4'><span lang=EN style='font-size:12.0pt;font-family:
"Times New Roman","serif"'>Add {$mode delphi}<span style='background:yellow;
mso-highlight:yellow'>{$H+}</span> or {$mode objfpc}{H+} directives <o:p></o:p></span></li>
<li class=MsoNormal style='mso-margin-top-alt:auto;mso-margin-bottom-alt:auto;
mso-list:l3 level1 lfo4'><span lang=EN style='font-size:12.0pt;font-family:
"Times New Roman","serif"'>Add 'LResources', and if the form has buttons,
add '<span style='background:yellow;mso-highlight:yellow'>Buttons</span>'
to uses clause <o:p></o:p></span></li>
<li class=MsoNormal style='mso-margin-top-alt:auto;mso-margin-bottom-alt:auto;
mso-list:l3 level1 lfo4'><span lang=EN style='font-size:12.0pt;font-family:
"Times New Roman","serif"'>Comment out or delete {$R *.dfm} or {$R *.xfm}
directive <o:p></o:p></span></li>
<li class=MsoNormal style='mso-margin-top-alt:auto;mso-margin-bottom-alt:auto;
mso-list:l3 level1 lfo4'><span lang=EN style='font-size:12.0pt;font-family:
"Times New Roman","serif"'>Add 'Initialization' section at the end of each
unit file, and add {$I unitname.lrs} directive in it <o:p></o:p></span></li>
</ol>
<ul type=disc>
<li class=MsoNormal style='mso-margin-top-alt:auto;mso-margin-bottom-alt:auto;
mso-list:l2 level1 lfo5'><span lang=EN style='font-size:12.0pt;font-family:
"Times New Roman","serif"'>Select Project->New Project from file <o:p></o:p></span></li>
<li class=MsoNormal style='mso-margin-top-alt:auto;mso-margin-bottom-alt:auto;
mso-list:l2 level1 lfo5'><span lang=EN style='font-size:12.0pt;font-family:
"Times New Roman","serif"'>Select the .lpr file <o:p></o:p></span></li>
<li class=MsoNormal style='mso-margin-top-alt:auto;mso-margin-bottom-alt:auto;
mso-list:l2 level1 lfo5'><span lang=EN style='font-size:12.0pt;font-family:
"Times New Roman","serif"'>At 'Create a new project' window, choose
'Application' <o:p></o:p></span></li>
<li class=MsoNormal style='mso-margin-top-alt:auto;mso-margin-bottom-alt:auto;
mso-list:l2 level1 lfo5'><span lang=EN style='font-size:12.0pt;font-family:
"Times New Roman","serif"'>Build project and make further necessary
corrections to get proper compilation, at this point the .lpi file is
generated automaticaly. You may also get 'Error reading Form' messages,
click on 'Continue Loading' if you do. <o:p></o:p></span></li>
<li class=MsoNormal style='mso-margin-top-alt:auto;mso-margin-bottom-alt:auto;
mso-list:l2 level1 lfo5'><span lang=EN style='font-size:12.0pt;font-family:
"Times New Roman","serif"'>Save all, and you have a Lazarus
project :-) <o:p></o:p></span></li>
</ul>
<p class=MsoNormal><span lang=EN><o:p> </o:p></span></p>
</div>
</body>
</html>