tusindtalsseperatorerne igen.

Du laver vel "bare" en ny TEdit komponent der har de egenskaber du ønsker.

Jeg laver normalt ikke componenter selv så dette kan helt sikkert forbedres men det virker, hvis jeg har gættet rigtig mht. detaljerne.

Text vil give dig det som du ser i edit boksen mens CurrText vil give dig teksten uden tusindtalsseperator.

------------------------

unit DBExtEdit;

interface

uses
  Windows, Messages, SysUtils, Classes, Controls, StdCtrls, Mask, DBCtrls;

type
  TCurrEdit = class(TEdit)
  private
    { Private declarations }
        function RemoveDots : TCaption;
    function GetCurrText: TCaption;
  protected
    { Protected declarations }
    procedure DoExit; override;
    procedure DoEnter; override;
  public
    { Public declarations }
  published
    { Published declarations }
        property CurrText: TCaption read GetCurrText;
  end;

procedure Register;

implementation

procedure Register;
begin
  RegisterComponents('MineEditComp', [TCurrEdit]);
end;

function TCurrEdit.RemoveDots : TCaption;
begin
    Result:=Text;
    while pos('.',Result)>0 do
      Delete(Result,pos('.',Result),1);
end;

procedure TCurrEdit.DoExit;
begin
    Text:=RemoveDots;
    Text:=FormatFloat('#,##0.00',StrToFloatDef(Text,0));
  inherited;
end;

procedure TCurrEdit.DoEnter;
begin
    Text:=RemoveDots;
    Text:=FormatFloat('0.00',StrToFloatDef(Text,0));
  if AutoSelect then
      SelectAll;
  inherited;
end;

function TCurrEdit.GetCurrText: TCaption;
begin
    Result:=FormatFloat('0.00',StrToFloatDef(RemoveDots,0));
end;

end.

Hvad med denne her:
  Edit.Text := CurrToStrF(FloatToCurr(123912873),ffNumber,2);

Bruger du ffCurrency så skriver den "kr." foran tallet

Hej Kroning.

Mit svar til din første kommentar: Tja, det er vel ens kunnen og formåen, der sætter grænserne og her er det, at evnerne for mit vedkommende sagde fra. Og heldigvis er man jo ikke forpligtet udover sine egne evner ;o)

Derfor siger jeg mange tak til dig. Udover at du i kommentar 2 har vist en på papiret (jeg har nemlig ikke prøvet det endnu) fremragende løsning, så har du også vist mig, hvordan et komponent mere eller mindre kan skrives. Det har været et lærerigt indlæg, som jeg gerne vil give mine points til.

Så får du et svar