Código Delphi [-] var Tmp: String; begin Tmp:=Copy(Matriz[Posicion,5],0,Pos(',',Matriz[Posicion,5])-1) + '.' + Copy(Matriz[Posicion,5],Pos(',',Matriz[Posicion,5])+1,31);
var Tmp: String; begin Tmp:=Copy(Matriz[Posicion,5],0,Pos(',',Matriz[Posicion,5])-1) + '.' + Copy(Matriz[Posicion,5],Pos(',',Matriz[Posicion,5])+1,31);