Discussion :

[Simara1170]

Bonsoir,
Je me doute que ma question est très conne, et j'ai déjà plus ou moins un piste, mais j'arrive pas à concrétiser l'idée (on est en rupture de café, alors ça carbure plus très fort )
J'ai besoin d'avoir une fonction qui attrape en paramètre une chaîne de caractères pour pouvoir renvoyer une chaîne ou nil.
(mon souci c'est que ifthen de l'Unit Math ne permet pas de le faire en fait)

un truc du genre

Code :

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

1
2
3
4
if machaine = '' then
result := nil
else
result := machaine

sauf que j'ai du mal à
1/ créer la signature de la fonction (Delphi me traîte globalement de tout les noms...)
2/ ensuite, je suppose qu'il faudra que je joue avec les pointeurs/adresses pour exploiter le résultat. Me trompé-je?

Je pensais en fait renvoyer un Tobject, et le caster on purpose dans le code appelant. Quelqu'un aurait-it une solution?
Merci d'avance!

[Ph. B.]

Bonjour,
Il faut passer par des pointeurs, des PChar par exemple.

Code :

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

1
2
3
4
5
6
7
function MaFonction(MaChaine: String): PChar;
begin
  if MaChaine = '' then
    Result := nil
  else
    Result := PChar(MaChaine);
end;

[Andnotor]

Une chaîne vide égale un pointeur nil. Pas besoin de fonction pour ça, transtype simplement en PChar ou pointer

Si tu veux vraiment une fonction, simplement :

Code :

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

1
2
3
4
function MaFonction(MaChaine: String): PChar;
begin
  Result := PChar(MaChaine);
end;

[Simara1170]

Merci, pour les réponses.
En fait l'idée est de passer le résultat de cette fonction à une autre fonction qui habille TIBO, pour envoyer les paramètres, et les noms correspondants en une seule fois...
C'est pour ça que j'ai besoin d'une fonction qui teste la nullité de la chaîne, et le cas échéant renvois nil...
Je regarde un peu ce que vous m'avez donné, et je vous fait savoir ce que j'ai réussi à sortir

[Simara1170]

Bon, bah du coup, j'ai trouvé une autre solution pour mon problème:
plutôt que d'utiliser la sur-couche foireuse de mon prédécesseur sur le composant IBO, je suis passé directement par les fonctions du composant et j'ai pu arriver à mes fins avec un bête if-then-else

merci à tous pour votre aide!