Discussion :

[Marc_3]

Bonjour,

J'ai un problème avec un shortstring que je dois travailler, mais j'ai quelque chose de bizarre avec le char TAB

Avec le code de fonction suivant:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
function    FSB_import2_compute_complete_date(orig_date  :  shortstring)  :  shortstring;
 
   var tmp_str    :  shortstring;
       month_str  :  shortstring;
 
   begin
 
   orig_date := WSTRINGS_compr(orig_date);    // Fonc. interne au framework, supprime les char vide avant et après, ici orig_date contient #9'01.08.'
   tmp_str   := Copy ( orig_date, 2, 6);            // wstring ne fait rien et je suis obligé de faire la copie pour supprimer le #9
   month_str := Copy ( orig_date,5, 2);
   if WSTRINGS_int_value(month_str) < 12
      then Result := tmp_str + '2014'
      else Result := tmp_str + '2015';
   end;  // end FSB_import2_compute_complete_date

Est-ce qu'il y a un moyen de faire mieux que cela?
Je trouve bizarre que ce TAB soit si contraignant.
Est-ce qu'il y aurait un moyen du coté de Delphi pour résoudre cela??

D'avance merci

[ShaiLeTroll]

Pourquoi ne pas utiliser Trim si le #9 est au début ?

[Marc_3]

Merci pour la réponse, que je vais essayer à la fin de ce post.

Parce que que je suis resté coincé sur l'idée d'une fonction dont le nom
n'existe pas et qui fait la même chose que trim dans mes rêves

Voila