Stack Overflow

[Daniel B]

Moin Christian,

Delphi-Quellcode:

  protected 
    procedure Change; override;

Delphi-Quellcode:

procedure TRealEdit.Change;
//Tausendertrennzeichen automatisch setzen
var
  iFor: Integer;
begin
  if Length(Text) > 0 then
  begin
    for iFor := 0 to Length(Text) -1 do
    begin
      ;
    end;
  end;
  inherited Change;
end;

Grüsse, Daniel