Karakter kontrolü

[barutali]

Gerekli Namespace ler..

uses RegularExpressions, StrUtils;

Fonksiyonuzmuz

function SaydaGelGurbanOlam(const Value, Delim : String) : Byte;
var
 tmpStr : String;
begin
 tmpStr := TRegEx.Replace(Value, '\w|\d|\'+ IfThen((Delim = '.'), ',', '.'), '');
 result := Length(tmpStr);
end;

Nasıl Kullanılır?

 // SaydaGelGurbanOlam(<Neyin İçinde Arayacak>, 'Ne Arayacak Nokta mı? Virgül mü?')
 showmessage( SaydaGelGurbanOlam('10.10', ',').toString );