Discussion :

[jodan33]

Bonjour,
un petit souci pour convertir une chaine, j'ai un prog tactille qui accepte le chiffre '01'pour designer un employé , qui est défini dans une base Firebird en VarChar, dans le prog la variableb est _server:string; mon probleme est que si l'on saisi 01 on le nom de la bonne personne et si l'on saisi 1 il ne se passe rien, je souhaiterai que les deux passent.

[Cl@udius]

Salut

Bon résumons car je suis pas sûr d'avoir bien compris.

Tu disposes dans ta BDD d'un champ VarChar désignant le code employé. Ces codes sont stockés sous la forme '01', '02', '03', etc...
Ensuite dans ton programme tu travailles avec une variable _serveur de type string.

Tu souhaites donc lorsque tu stockes '1' dans cette variable pouvoir retrouver le code correspondant dans la BDD soit '01'.

C'est bien ça ?

@+ Claudius

[jodan33]

oui , en effet ces cela , quand je selectionne 01 sur mon tactille pas de probleme , mais lorsque je saisi 1 il ne passe rien

[Archimède]

ta variable _server string, tu la convertis en integer, tu rentres ça dans une variable val de type integer et tu refais la démarche inverse.
val:=strtoint(_server);
_server:=inttostr(val);

si _server est '01' ou '1' =>val reçoit 1
et après _server recevra toujours '1' avec _server:=inttostr(val);

je ne sais pas si j'ai tout capté...
mais c'est une astuce.

[Archimède]

ah, je n'avais pas encore vu le post de claudius, donc, ça ne va pas ...

[Archimède]

donc maintenant, tu gardes le val qui va contenir le chiffre sans le 0 et tu fais
_server:='0'+inttostr(val);

[Cl@udius]

Re,

Soit tu convertis ta variable _serveur en Int et adopte la solution d'Archimède.
Ou bien si tu veux rester avec une variable string tu peux utiliser cette petite fonction, qui complète à droite ou à gauche une chaine de caractères avec le caractère de ton choix sur une longueur donnée:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
type
  TPadPosition = (ppLeading, ppTrailing);
 
function Pad(const AText: string; ALength: Integer; AFillChar: Char;
  PadPosition: TPadPosition = ppLeading): string;
begin
  if (Length(AText) >= ALength) or (ALength < 1) then
    Result := AText
  else if PadPosition = ppLeading then
    Result := StringOfChar(AFillChar, ALength - Length(AText)) + AText
  else
    Result := AText + StringOfChar(AFillChar, ALength - Length(AText));
end;

Exemple d'utilisation:

Code :

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

1
2
3
4
5
 
  Pad('1', 4, '*'); // renvoie '***1'
  Pad('01', 5, '*', ppTrailing); // renvoie '01***'
  // pour ton cas
  Pad('1', 2, '0'); // renvoie '01'

Voilou. C'est une fonction générique qui pourra te resservir dans des cas similaires.

@+ Claudius

[jodan33]

Merci , Cl@udius et Archiméde , j'avais commencé qque chose de similaire seulement je n'avais pas utilisé strtoint dans le if , je pensais qu'il ne le prendrai pas merci de m'avoir remis sur la bonne piste , je vais utiliser un 'for' pour cerner tous les cas de 1 à 9 à convertir en 01 à 09.
je dois auusi gerer les non existant dans la base exemple j'ai 4 serveurs :
01,02,12,15 (pour info:à chaque N° est associé un prénom) si j'essaie de rentrer 16 je dois afficher un message disant , ce N° n'est pas attirbué ..ou autre.
en attendant cette partie de code est OK.

Code :

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

1
2
3
4
5
6
7
8
_server:=trim(FTA_PaveSvTa.lserver.caption);
    val:=strtoint(_server);
    if (strtoint(_server)=1) or (strtoint(_server)=01) then
    val:=1;
    if (strtoint(_server)=2) then
    val:=2;
 
    _server:='0' + inttostr(val);