Hilfe bei TMaskEdit

[Blamaster]

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 ?