Hilfe bei TMaskEdit

[Blamaster]

Hi,

Problem ist doch noch nicht ganz gelöst.

Für das Problem mit den Leerzeichen habe ich noch eine andere Lösung gefunden. Mit .EditText lässt sich der sichtbare Edittext inklusive der Nullen als Platzhalter auslesen.

Nun gibt es aber noch ein anderes Problem. Wenn ich alle Edit Felder lösche und der Focus nicht mehr auf dem Edit liegt kommt eine Exception "Invalid Input Value" nur wieso ?

Mfg Blamaster

[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 ?

[Blamaster]

Hab die Lösung gerade gefunden. Das Problem ist das wenn als Maske "0" gesetzt ist das Editfeld die Eingabe einer 0 immer als leerzeichen auffasst. Somit hat die obige Funktion nur leerzeichen durch leerzeichen ersetzt.

Abhilfe konnte ich schaffen indem ich das Maskenzeichen auf "_" gesetzt habe und im OnChange dann alle Leerzeichen sofort durch "0" ersetzen lasse. Somit bekommt keiner die "_" zu sehen.

Mfg Yannic