nach Eingabe von Komma, Edit mit Null UND Komma füllen

[juergen]

Hallo zusammen,
bin gerade am knobeln und komme da nicht wirklich weiter. :( Ich finde wohl auch nicht den richtigen Suchbegriff...

Ich möchte, dass wenn man in einem Edit als erstes Zeichen ein Komma eingibt, dann im Edit erst eine Null und dann das Komma erscheint...
Kann sowas direkt während der Eingabe gelöst werden (wäre mir am liebsten)?
Ansonsten auch nach dem Verlassen des Edits.


Für eure Hilfe schon mal Danke vorab!

[3_of_8]

Ja: Bei OnChange einfach überprüfen:

Delphi-Quellcode:

if edit1.text[1]=',' then edit1.text:='0'+edit1.text;

[Sharky]

Zitat:

Zitat von 3_of_8

Ja: Bei OnChange einfach überprüfen:

Ganz so einfach ist es dann aber doch nicht ;-)
Was macht denn der Code wenn man den Inhalt des Edits löscht? :stupid:

[marabu]

Noch nicht perfekt, aber umsonst:

Delphi-Quellcode:

procedure Normalize(e: TEdit);
var
  iSelStart, iSelLength: Integer;
begin
  with e do
    if Copy(Text, 1, 1) = DecimalSeparator then
    begin
      iSelStart := SelStart;
      iSelLength := SelLength;
      Text := '0' + Text;
      SelStart := Succ(iSelStart);
      SelLength := iSelLength;
    end;
end;

procedure TDemoForm.EditChange(Sender: TObject);
begin
  Normalize(Sender as TEdit);
end;

Grüße vom marabu

[juergen]

Danke @Manuel und marabu!

Ich nutze schon "einige" Funktionen und OnKeyPress Events für mein Edit.
Ich werde hier aber nun bestimmt auch weiter kommen.

Einen schönen Abend noch!

Grüsse
Jürgen

[ibp]

Zitat:

Zitat von marabu

Noch nicht perfekt, aber umsonst:...

ich hoffe doch kostenfrei und nicht umsonst! :wink:

[marabu]

Hi,

die Redewendung "umsonst, aber nicht vergeblich" scheint mir ein Indiz für die vorrangige Bedeutung des Wortes im Sinne von "kostenfrei" zu sein. Wenn aber nicht, dann berufe ich mich auf meinen Hessen-Bonus.

Freundliche Grüße vom marabu