Hallo,
falls es nur darum geht aus einem numerischen DisplayString einen EditString zu machen, dann reduziert sich das Problem ja auf das Entfernen des Kolonnentrennzeichen (Tausenderpunkt):
Delphi-Quellcode:
function Without(const s: string; charSet: TSysCharSet): string;
var
i, iDel: Integer;
begin
Result := s;
iDel := 0;
for i := 1 to Length(s) do
if not (s[i] in charSet)
then Result[i - iDel] := s[i]
else Inc(iDel);
SetLength(Result, Length(s) - iDel);
end;
// Without('1.234.567,89', [ThousandSeparator])
Nach Entfernung der Lesehilfe lässt sich das Ergebnis mittels StrToFloat() wieder für Berechnungen verwenden, insofern ist der Verbleib des Dezimaltrenners nicht ganz ungeschickt.
Grüße vom marabu