Conseils - Utilitaires

Un article de Wikipedia.

(Différences entre les versions)
(Conseils - Utilitaires)
(Nombre de secondes écoulées)
Ligne 13 : Ligne 13 :
<code pascal>
<code pascal>
{$i PalmAPI.pas}
{$i PalmAPI.pas}
-
 
+
...
debut := TimGetSeconds();
debut := TimGetSeconds();
-
....
+
...
duree_ecoulee := TimGetSeconds() - debut;
duree_ecoulee := TimGetSeconds() - debut;
 +
...
 +
</code>
 +
 +
== Convertir une chaîne de caractères en entier ==
 +
La fonction StrAToI(const:String):integer des API Palm permet de convertir une chaîne de caractères en entier.
 +
 +
<code pascal>
 +
{$i PalmAPI.pas}
 +
 +
var chaine : string;
 +
entier : integer;
 +
...
 +
chaine := "1234";
 +
entier := StrAToI(chaine);
 +
...
</code>
</code>

Version du 13 mars 2008 à 13:08

Sommaire

Conseils - Utilitaires

Voir Liaison entre Pascal et les API Palm et ses sources.

Inclure un fichier source

La commande suivante permet d'inclure un fichier source.

{$i fichier_source.pas}

Nombre de secondes écoulées

La fonction TimGetSeconds des API Palm permet d'obtenir le nombre de secondes écoulées à partir d'une certaine date.

{$i PalmAPI.pas}
...
debut := TimGetSeconds();
...
duree_ecoulee := TimGetSeconds() - debut;
...

Convertir une chaîne de caractères en entier

La fonction StrAToI(const:String):integer des API Palm permet de convertir une chaîne de caractères en entier.

{$i PalmAPI.pas}
 
var chaine : string;
entier : integer;
...
chaine := "1234";
entier := StrAToI(chaine);
...