Merci, ça répond à la question.
Quand je regarde le code ça me rappèle plus TurboPascal 5 que Delphi 2010
Ceci dit le source est complet. Reste à revoir le composant visuel qui n'est pas géré de la même manière dans Lazarus à priori.
Le plus étrange est cette fonction appelée pour tous les If xxx Then du programme :
1 2 3 4
| function IsTrue(aBoolean: Boolean): Boolean;
begin
Result:=aBoolean;
end; |
Exemple :
if IsTrue(IsTrue((symbol^.option_2 >= 1)) AND IsTrue((symbol^.option_2 <= 30))) then
Ca rend la lecture lourde et je n'ai pas bien compris pourquoi cette notation. Même en CPP (qui semble être le langage de base de zint) les booléens sont gérés directement.
Bon et bien je sens que je vais passer un bon week-end à tester ça.
Partager