Programación General > Delphi

 Division Con Decimales

<< < (2/2)

Enko:
Probá convertir el '.' en ',' o al revés.


--- Código: Text --- var  F1,F2: Real;  S1, S2: string;  i: integer;begin   S1 := '2.25'; // esta me da problema  S2 := '2,25';   //***********************************  for i:= 1 to Length(S1) do      if S1[i] = '.' then S1[i] := ',';  //***********************************   F1 := StrToFloat(S1);  F2 := StrToFloat(S2);   WriteLn(F1, ' ', F2);  ReadLn;  { TODO -oUser -cConsole Main : Insert code here }end.  
Si lo pones en una función que te devuelva la cadena  con la coma, será mucho mas facil.

--- Código: Text --- function sacarComa(S: string): string;// el resto está claro  

JMAlonso:
Muchas gracias a tod@s.

Navegación

[0] Índice de Mensajes

[*] Página Anterior