Discussion :

[gige47]

Bonjour,

Je suis débutant en Delphi, j'apprends sur le tas.
Je suis face à un problème qui a déjà été traité dans le forum ([Résolu] Séparateur de décimaux : virgule au lieu du point). Dans mon programme, je lis des données (qui sortent d'un executable fortran) mais le problème est évidemment que les réels sont formatés avec un point alors qu'en delphi, il faut une virgule.
J'ai bien entendu pensé à rechercher le point et le remplacer par une virgule, comme expliqué dans le forum. Mais je ne sais pas quelle instruction il faut utiliser. J'ai trouvé 'findtext' mais je n'ai pas vu d'exemple concret où il était utilisé. Peut-être cela existe-t-il sur le site et que je serais passé à côté?
Si pas, quelqu'un saurait-il me débloquer?

Merci d'avance.

[Laurent Dardenne]

Essaie simplement avec la procédure POS.
C'est écrit en Delphi .NET ?

[emmanuelc]

Voici une petite procédure que j'utilise pour convertir une valeur donnée par l'utilisateur dans un éditeur.

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
16
17
18
19
20
21
22
23
24
25
 
 
function StringToFloat(Text: string): double;
var
  i: integer;
  ch: char;
begin
  try
    Result := StrToFloat(Text);
  except
    for i:= 1 to Length(Text) do
    begin
      ch := Text[i];
      case ch of
        '.': ch := ',';
        ',': ch := '.';
      end;
      Text[i] := ch;
    end;
    if Length(Text) = 0 then
      Result := 0
    else
      Result := StrToFloat(Text);
  end;
end;

[ALWEBER]

Tu peux aussi changer la variable globale
'DecimalSeparator'
qui est décrite dans l'unité Sysutils. Le code ci dessous se compile aussi avec .NET

Code :

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

1
2
3
4
5
6
7
8
var
  n1, n2 : single ;
begin
  DecimalSeparator := '.' ;
  n1 := StrToFloat('123.45') ;
  DecimalSeparator := ',' ;
  n2 := StrToFloat('123,45') ;
  Label1.Caption := FloatToStr(N1+N2) ;

[gige47]

Merci à vous pour les conseils.
Je vais bien voir lequel je vais utiliser...

[domlagagne]

Bonjour,
il existe aussi

StringReplace,fonction

Renvoie une chaîne dans laquelle des occurrences d'une sous-chaîne sont remplacées par une autre sous-chaîne.

Unité

SysUtils

Catégorie

routines de gestion des chaînes

Syntaxe Delphi :

function StringReplace(constS,OldPattern,NewPattern:string;Flags:TReplaceFlags):string;

Syntaxe C++:

externPACKAGE AnsiString__ fastcall StringReplace(constAnsiStringS,constAnsiString
OldPattern,constAnsiStringNewPattern,TReplaceFlagsFlags);

Description

StringReplace remplace les occurrences de la sous-chaîne spécifiée par OldPattern,par la sous-chaîne spécifiée par NewPattern.StringReplace considère que la chaîne source peut contenir des caractères multi-octets.

S est la chaîne source dont les sous-chaînes sont modifiées.

OldPattern est la sous-chaîne àlocaliser et àremplacer par NewPattern.

NewPattern est la sous-chaîne qui remplace les occurrences de OldPattern.

Flags est un ensemble d'indicateurs qui définissent la façon dont StringReplace localise et remplace les occurrences de OldPattern.Si Flags n'inclut pas rfReplaceAll,StringReplace ne remplace que la première occurrence de OldPattern dans S.Sinon,StringReplace remplace toutes les instances de OldPattern par NewPattern.Si le paramètre Flags inclut rfIgnoreCase,la comparaison ne tient pas compte de la casse.