Edit Text die richtigen Zeichen

[MichaG42]

Hallo DP-ler,

hier also nun doch mein erster Beitrag

Ich hätte da auch noch zwei kleine Vorschläge zum Thema.


Frage 1:

Wenn nichts weiter "gefiltert" werden soll (z.B.Sonderzeichen) ginge auch ein Trim() mit dem die Leerzeichen vorne und hinten elegant verschwinden.

Frage 2:

eigentlich bereits schon beantwortet, aber dennoch ...

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
begin
  SpinEdit1.Text:= Format('%0.2d',[strToIntDef(SpinEdit1.text,00)]);
end;

procedure TForm1.SpinEdit1Change(Sender: TObject);
begin
  SpinEdit1.Text:= Format('%0.2d',[strToIntDef(SpinEdit1.text,00)]);
end;

Hoffe das ist so auch richtig. Bei mir funktioniert´s und sollte das Problem in der Darstellung lösen.


cu Micha