Conseils - Utilitaires

(Différences entre les versions)

Version du 15 mars 2008 à 09:58

La commande suivante permet d'inclure un fichier source.

{$i fichier_source.pas}

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;
...

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);
...

Ce source PPlib.pas disponible sur PP Compiler contient un ensemble d'utilitaires Pascal (voir Ressources).

Les fonctions contenuent sont les suivantes :

```
BoolToInt(B:boolean):integer;
```
```
IntToBool(N:integer):boolean;
```
```
IntToHexChar(H:integer):char;
```
```
IntToString(N:integer):string;
```
```
Max(A,B:integer):integer;
```
```
Min(A,B:integer):integer;
```
```
RealToFix(X:real;D:integer):string;
```
```
RealToString(R:real):string;
```
```
Spc(N:integer):string;
```
Retourne une chaîne de caractères constituée de N espaces.
```
StringToInt(const S:string):integer;
```
```
StringToReal(S:string):real;
```

SubString(const S:String;iStart,iEnd:integer):string;

@@ Ligne 47 : / Ligne 47 : @@
 * <code pascal>Max(A,B:integer):integer;</code>
 * <code pascal>Min(A,B:integer):integer;</code>
-* <code pascalRealToFix(X:real;D:integer):string;</code>
+* <code pascal>RealToFix(X:real;D:integer):string;</code>
-* <code pascalRealToString(R:real):string;</code>
+* <code pascal>RealToString(R:real):string;</code>
-* <code pascalSpc(N:integer):string;</code> '''Retourne une chaîne de caractères constituée de N espaces.'''
+* <code pascal>Spc(N:integer):string;</code> '''Retourne une chaîne de caractères constituée de N espaces.'''
-* <code pascalStringToInt(const S:string):integer;</code>
+* <code pascal>StringToInt(const S:string):integer;</code>
-* <code pascalStringToReal(S:string):real;</code>
+* <code pascal>StringToReal(S:string):real;</code>
-* <code pascalSubString(const S:String;iStart,iEnd:integer):string;</code>
+* <code pascal>SubString(const S:String;iStart,iEnd:integer):string;</code>
 = Ressources =