Problema con el TEdit y las comas

[Alfredo]

Lo que quieres que se pueda ingresar una sola coma? Pero que vas a meter en edit? Explicame para ver si te puedo ayudar....

[[Ohcan]]

Hola alfredosg19
¿Lo que quieres es que el contenido del edit sea numérico (integer o float)?
Si es así, puedes definirte una función de este estilo:

Código Delphi [-]
function ComprobarNumerico(Texto: String; Key:Char): Char;
begin
  if Key <> Char(VK_BACK) then
    begin
      try
        if Key in[',','.'] then Key := DecimalSeparator;
        StrToFloat(Texto + Key + '0');
      except
        Result:=#0;
        Exit;
      end;
    end;
  Result := Key;
end;

Estoy escribiendo de memoria...
A esta funcion la llamas desde el evento onKeyPress del Edit de esta forma:

Código Delphi [-]
Key := ComprobarNumerico(MiEdit.Text; Key:Char);

Espero que te sirva...

[alfredosg19]

Hola, he aplicado el ejemplo que me dejaste pero me sigue dando error, aprovecho para explicar el problema mejor. Tengo un Tedit en el que solo quiero permitir entrar numeros, hasta aquí todo está bien porque pongo este coódigo en el
procedure

   FrmCanvi.edPagatKeyPress(Sender: TObject; var Key: Char);
 begin
 
   If (contarcomes(edPagat.Text)=0) then
 	If Not (Key IN ['0'..'9',#8,',']) then
 	key := #0;
 
   if (contarcomes(edPagat.Text)>0) or (key=',')then
 	If Not (Key IN ['0'..'9',#8]) then
 	key := #0;
   end;

Donde contarcomes es una función que he hecho yo para contar las comas del Tedit pero que no funciona el código es:

 function TfrmCanvi.contarcomes(n:string): integer;
 var
 car: string;
 i,coma: Integer;
 begin
 coma:=0;
   For I:=0 to Length(n) do
   car:=copy(n,i,1);
   if car=',' then
   coma:=coma+1;
 
   result:=coma;
 end;

El problema es que quiero que me acepte una coma en el Tedit, en la posición que la ponga el usuario menos en el primer carácter (daria error por el Float) y en el último caràcter. Además quiero que en los carácteres del medio sólo pueda haber una coma. Todo esto se complica más porque tengo una función que hace una resta con este número con cada carácter que se introduce en el edit, quiero decir que si la coma está mal puesta o si hay más de una coma el programa da error y esto es lo que quiero evitar.

[[Ohcan]]

No estoy muy seguro de entenderte...

Con lo que te he pasado evitas:
- Que se introduzcan letras o espacios o cualquier cosa que no sea un número o el DecimalSeparator.
- No permite que la primera sea una coma (o el separador decimal que sea)
- No permite más de una coma (o el separador decimal que sea)
Puede que tú problema (si me he enterado) esté en esa cuenta que haces según se introducen los dígitos... y sobre todo en el momento en el que el usuario inserta la coma...
¿Y si, cuando haces esa cuenta, si la última es la coma no la "obvias"?
Me explico (estoy espeso): si cuando vas a hacer la cuenta, el número introducido es, por ejemplo, "12334,"...
Quítale la "," y usa "12334" para la operación

¿Es eso?

[alfredosg19]

Gracias Ohcan por tu ayuda, a ver el problema está en que me da error y no podido si quiera ver si lo que me dijiste funciona (que seguro que sí, quiero decir que no lo he podido probar), el fallo es que algo falta en la función y me dice esto:
[Error] UFRMCanvi.pas(111): Not enough actual parameters

[[Ohcan]]

¡Ah!
Bueno... el error.. ¿en qué línea (dinos el código) te salta?
En esa línea debes estar haciendo una llamada a una función o un procedimiento,
pero te falta incluir algún/os parámetro/s...
O algo por el estilo...

[alfredosg19]

El error me da aquí:

procedure TfrmCanvi.edPagatKeyPress(Sender: TObject; var Key: Char);
begin

Key := ComprobarNumerico(EdPagat.Text; Key:Char);

Ayyy....