[Lazarus] My Island_maker D5/7 port test code - Error: Incompatible type for arg no. 1: Got "TTranslateString", expected "QWord"

[Peter E Williams]

Hi Vannus and all,
-- 
Love and Friendship, Peter Eric Williams 
+61 3 6236-9675 (home or leave a message) Mobile 044-99-256-50
Proudly created in Australia. Quality Cross-Platform Games since 1970
with a Commodore PET 4016 with 16 Kilobytes of RAM (not Megabytes).

On Sat, 2010-05-22 at 00:52 +0100, Vannus wrote:
> thats the lpi file youve quoted, could you quote/attach the lpr file?
> 
I had a look in the folder for the project and there was not .lpr file
present.

I created a new project and modified it as follows:

program island_maker1;

{$MODE Delphi}

uses
  Forms,
  Unit1 in 'set_max.pas' {Form1},
  Unit2 in 'main_island.pas' {Form2},

{$R *.res}

begin
  Application.Title:='DTM Island Maker';
  Application.Initialize;
  Application.CreateForm(Tmain_island_form, Form2);
  Application.Run;
end.  

Now I am getting 2 different errors:

Hint: Start of reading config file /etc/fpc.cfg
Hint: End of reading config file /etc/fpc.cfg
Free Pascal Compiler version 2.4.0-2 [2010/03/06] for i386
Copyright (c) 1993-2009 by Florian Klaempfl
Target OS: Linux for i386
Compiling project1.pas
Compiling set_max.pas
Compiling main_island.pas

>line 71
    procedure FormCreate(Sender: TObject);
main_island.pas(71,26) Hint: Parameter "Sender" not used

>line 72
    procedure CreateaNewIsland1Click(Sender: TObject);
main_island.pas(72,38) Hint: Parameter "Sender" not used

>line 73
    procedure SaveIslandtoFile1Click(Sender: TObject);
main_island.pas(73,38) Hint: Parameter "Sender" not used

var
  main_island_form : Tmain_island_form;
  island : island_type;
  max_x, max_y : integer;

procedure Tmain_island_form.SetHorizontalMaxSize1Click(Sender: TObject);
begin
  set_max_form := tset_max_form.create( nil );
  with set_max_form do
  begin
  try
>line 270
    max_x := inttostr( max_x_param.text );
//                     ^^^^^^^^^^^ it is a TEdit
main_island.pas(270,41) Error: Incompatible type for arg no. 1: Got
"TTranslateString", expected "QWord"
Hint: Found declaration: IntToStr(QWord):AnsiString;
Hint: Found declaration: IntToStr(Int64):AnsiString;
Hint: Found declaration: IntToStr(LongInt):AnsiString;
>line 271
    max_y := inttostr( max_y_param.text );
//                     ^^^^^^^^^^^ it is a TEdit
main_island.pas(271,41) Error: Incompatible type for arg no. 1: Got
"TTranslateString", expected "QWord"
Hint: Found declaration: IntToStr(QWord):AnsiString;
Hint: Found declaration: IntToStr(Int64):AnsiString;
Hint: Found declaration: IntToStr(LongInt):AnsiString;
    if showmodal = mrOK then
    begin
      try

main_island.pas(308) Fatal: There were 2 errors compiling module,
stopping

in Unit set_max.pas
  Tset_max_form = class(TForm)
    max_x_param: TEdit;
    max_y_param: TEdit;  

Selecting Help from the message window gives this error. The path to the
Help Help was blank even tho' it has apparently been installed. I don't
know where to set the path to (default location). I tried the online
help but got lost :-(((

Help not found
No help found for "main_island.pas(270,41) Error: Incompatible type for
arg no.
1: Got "TranslateString", expected "QWord""
[Cancel]

> 
> 
> HTH
> 
> 
> - V

Peter