Hmm,
das einfachste ist wohl im OnChange des Edit alle Leerzeichen durch Nullen zu ersetzen.
Delphi-Quellcode:
procedure TForm1.medtChange(Sender: TObject);
var
i: integer;
value: string;
begin
value := medt1.Text;
for i := 0 to length(value) do
if value[i] = ' ' then value[i] := '0';
medt1.Text := value;
ShowMessage(medt1.Text);
end;
Das ganze funktioniert so leider nicht es werden keine leerzeichen durch 0´en ersetzt. Mit StringReplace tritt das gleiche Problem auf.
Jemand eine Idee was falsch ist ?