Transformation Javascript en Delphi

Version imprimable

19/02/2009, 10h42
Charly910

Transformation Javascript en Delphi

Bonjour,

Est ce que quelqu'un connait un outil pour transformer du javascript (issu d'une page HTML) en Delphi ?

(les Switch() .... Case sont particulièrement difficiles à transformer)

Merci

Charly
19/02/2009, 11h31
anapurna

salut

les switch sont l'equivalent des case en delphi
les case valeur corresponde au valeur :
ensuite les ...break sont l'equivalent des begin...end
le else bin c'est la meme chose en delphi

voila en gros la traduction de tes switch avec de temps en temps des subtilite
mais tres franchement j'en ai rarement vu

@+ Phil
19/02/2009, 11h40
Paul TOTH

Citation:

Envoyé par Charly910

Bonjour,

Est ce que quelqu'un connait un outil pour transformer du javascript (issu d'une page HTML) en Delphi ?

(les Switch() .... Case sont particulièrement difficiles à transformer)

Merci

Charly

un cerveau et une paire de mains :)
19/02/2009, 12h36
Charly910

Eh oui, merci à tous les deux,

Mais si jamais un logiciel peux faire le travail pour moi ...

C'est d'ailleurs le principe de l'informatique ! :lol:

Cordialement

Charly
19/02/2009, 12h56
anapurna

salut

un editeur avec fonction remplacer devrais pour une grande parti suffir
...
tiens au hasard l'editeur de delphi ;)

tu as un exemple de code que tu n'arrive pas a transformer ?

@+ Phil

Bonjour Anapurna,

je pense y arriver, avec de l'huile de coude, mais les Switch ... case qui sont sur des chaines de caractères et non sur des entiers :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
 
		switch (UTM_Bande)
		{case "P" : var UTM_Ajout_Y = 1500000;
			break;
		case "R" : var UTM_Ajout_Y = 3500000;
			break;
		case "S" : var UTM_Ajout_Y = 3500000;
			break;
		case "U" : var UTM_Ajout_Y = 5500000;
			break;
		case "W" : var UTM_Ajout_Y = 7500000;
			break;
		case "X" : var UTM_Ajout_Y = 9500000;
			break;
		case "M" : var UTM_Ajout_Y = 400000;
			break;
		case "K" : var UTM_Ajout_Y = 2400000;
			break;
		case "H" : var UTM_Ajout_Y = 4400000;
			break;
		case "G" : var UTM_Ajout_Y = 4400000;
			break;
		case "E" : var UTM_Ajout_Y = 6400000;
			break;
		case "C" : var UTM_Ajout_Y = 8400000;
			break;
		default : var UTM_Ajout_Y = -1;
		}

J'ai déjà lu un truc la dessus, je vais chercher dans la FAQ

A+

Charly

ça y est, j'ai trouvé, il faut faire :
Code:

1 2 3 4 5 6 7 8 9 uses StrUtils; ... case AnsiIndexStr(Str, ['Chaîne1', 'Chaîne2', 'Chaîne3']) of 0 : // Str = 'Chaîne1' 1 : // Str = 'Chaîne2' 2 : // Str = 'Chaîne3' -1 : // Str ne vaut aucune de ces trois chaînes end;
C'est un peu moins lisible au niveau du code et cela demande pas mal de transformation (car j'en ai beaucoup !), mais je m'y attelle !

Merci à tous

Charly

19/02/2009, 13h47
Andnotor
Ton switch javascript est sur un caractère et non une chaîne.
En Delphi:
Code:

1 2 3 4 5 6 case UpCase(Str[1]) of 'P' : ... 'R' : ... 'S' : ... //etc. end;

Citation:
Envoyé par Charly910
Code:

1 2 3 4 5 6 7 8 9 uses StrUtils; ... case AnsiIndexStr(Str, ['Chaîne1', 'Chaîne2', 'Chaîne3']) of 0 : // Str = 'Chaîne1' 1 : // Str = 'Chaîne2' 2 : // Str = 'Chaîne3' -1 : // Str ne vaut aucune de ces trois chaînes end;
C'est valable dans quelle version de Delphi ?
Je suis en 6, et j'ai une erreur de syntaxe.

19/02/2009, 14h00
Charly910

ça marche en Delphi 7 (et c'est dans la FAQ Delphi) mais je vais tester la version de AndNotOr qui est plus pratique pour la conversion Java ==> Delphi
19/02/2009, 14h06
Charly910

Dans la FAQ c'est à l'adresse :

http://delphi.developpez.com/faq/?pa...e#caseofstring

Il est dit qu'il y a une autre méthode si cela ne fonctionne pas

Charly
19/02/2009, 16h55
Lung

Je vais voir.
Merci.