virgule -> point [résolu]

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : virgule -> point [résolu]

amsterdam

Voilà je cherche à pouvoir utiliser le "." du pavé numérique à la place de la virgule sans me faire jeter par le compilo.
Je peut toujours remplacer le "." par une virgule après saisie mais il existe peut être une meilleure soluce, non ?

ps: je n'ai rien trouvé dans l'aide de delphi, mais ça ne prouve rien.

Merci d'avance.

Message édité par amsterdam le 17-06-2003 à 15:05:34

Publicité

skeye

Comprends pas.
Tu veux faire quoi exactement? Que dans ton appli quand tu tapes'.' ca affiche ','?

---------------
Can't buy what I want because it's free -

amsterdam

A l'heure actuelle si au pavé num je saisi par ex: 12.4 le compilo me jette alors que si je tape 12,4 pas de prob.

skeye

amsterdam a écrit :

A l'heure actuelle si au pavé num je saisi par ex: 12.4 le compilo me jette alors que si je tape 12,4 pas de prob.

Ma première idée serait de faire la modif tout seul après coup...mais je connais quasiment pas Delphi... [:ddr555]

---------------
Can't buy what I want because it's free -

amsterdam

Si ma mémoire est bonne en VB il existe la fonction replace, par contre pour DELPHI je n'ai pas trouvé.

Sinon tant pis je vais le faire à la main mais c'est plus long(lourd).

amsterdam

J'essaie ceci:

pospoint := strpos(s, txtfrancs);

Et le compilo me sort:

[Erreur] Unit1.pas(37): Types incompatibles : 'TEdit' et 'PChar'

QQun voit il ou est mon erreur ?

skeye

amsterdam a écrit :

J'essaie ceci:

pospoint := strpos(s, txtfrancs);

Et le compilo me sort:

[Erreur] Unit1.pas(37): Types incompatibles : 'TEdit' et 'PChar'

QQun voit il ou est mon erreur ?

Au hasard, tu ne fournis ps le bon type à la fction strpos?
Ou alors le résultat de strpos n'est du même type que pospoint...
Ca manque de précisions ton code là...

---------------
Can't buy what I want because it's free -

amsterdam

Je me doute bien que c'est un problème de type.

Apparement le strpos renvoit un PChar qui est utilisé pour les chaines à 0 terminal alors que je travaille sur des chaines "normales".
Mais je ne trouve rien pour remplacer strpos.

Message édité par amsterdam le 17-06-2003 à 14:07:00

amsterdam

Je vient de trouver la fonction stringreplace mais je n'y arrive toujours pas.

euros, francs, resultat : real;
pospoint : integer;
s : string ;

s := '.';
pospoint := stringreplace(s, txtfrancs);

[Erreur] Unit1.pas(37): Types incompatibles : 'String' et 'TEdit'

Pas beaucoup plus avancé quoi. :cry:

taureau

regarde dans l'aide en ligne du coté de DecimalSeparator

sinon pour ton problème c normal puisque tu passes un TEdit fait donc txtfrancs.text

Publicité

antp

Super Administrateur
Champion des excuses bidons

amsterdam a écrit :

Mais je ne trouve rien pour remplacer strpos.

Pos ?

---------------
mes programmes ·· les voitures dans les films ·· apprenez à écrire

amsterdam

Et une erreur débile une.
Bon maintenant il me met:

[Erreur] Unit1.pas(38): Pas assez de paramètres originaux

Sinon je vait voir pour décimal bidule.

antp

Super Administrateur
Champion des excuses bidons

Si c'est pour les FloatToStr et StrToFloat, je vois pas l'intérêt de forcer le point : Delphi utilise le symbole défini dans les options régionales de Windows.
Perso ça me gonfle les applications qui veulent des "." plutôt que la "," comme je l'ai définie, parce que sur mon clavier sur le pavé numérique j'ai une "," ...

---------------
mes programmes ·· les voitures dans les films ·· apprenez à écrire

antp

Super Administrateur
Champion des excuses bidons

amsterdam a écrit :

Et une erreur débile une.
Bon maintenant il me met:

[Erreur] Unit1.pas(38): Pas assez de paramètres originaux

dest := StringReplace(source, old, new, [rfReplaceAll]);

---------------
mes programmes ·· les voitures dans les films ·· apprenez à écrire

amsterdam

Donc si je comprend bien je suis censé faire ceci:

pospoint := stringreplace(txtfrancs.text, '.', ',');

Là il me sort:

[Erreur] Unit1.pas(38): Pas assez de paramètres originaux

antp

Super Administrateur
Champion des excuses bidons

il manque le 4e param : [rfReplaceAll]

---------------
mes programmes ·· les voitures dans les films ·· apprenez à écrire

amsterdam

Si je le met j'ai droit à:

[Erreur] Unit1.pas(38): Types incompatibles : 'Integer' et 'String'

Message édité par amsterdam le 17-06-2003 à 14:56:41

amsterdam

C'est bon ça passe, il suffisait de changer le type de la variable pospoint.

amsterdam

C'est bon ça fonctionne. :bounce:

Mais je vous préviens vous n'avez pas fini de me supporter. :lol:

Merci aux participants. :hello:

Message édité par amsterdam le 17-06-2003 à 15:04:54

FORUM HardWare.fr

Programmation

Delphi/Pascal

virgule -> point [résolu]

Sujets relatifs
Conversion [résolu]	[Résolu]disquette de boot
[PHP] Je ne trouve pas l'erreur ... [Résolu]	[Java] Librairies tierces supportant le HTML 4.0 ? [résolu en partie]
2 chiffres apres la virgule dans un Edit	runtime.exec() d'une fonction dans un autre répertoire ... [Résolu]
[Flash] Envoyer un E-mail ? [problème résolu]	Algo de génération de dégrade [RESOLU]
[html/css] caler une ligne de texte tout en haut de la page ? [résolu]	impossible de centrer [résolu]
Plus de sujets relatifs à : virgule -> point [résolu]

Page générée en 0.089 secondes