Wie erstelle ich eine Maske für Währung?

[mojo777]

hier ist die lösung...
falls man preisangaben mal so haben möchte, wie eine stinknormale kasse die sanbietet dann kann man keine Maske oder so gebrauchen.

hier ist der code:

Delphi-Quellcode:

unit kasseneingabe;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
    procedure Edit1Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;
  Text, Ausgabe_str: String;

implementation

{$R *.dfm}



procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
var   s:String;
i,d:Integer;
begin
if Length(Edit1.Text)=0 then begin Text:=''; Ausgabe_str:=''; end;
if (Key in ['0'..'9']) then
        begin
        Text:=Text+Key;
        Ausgabe_str:=Text;
        for d:=1 to 3-Length(Text) do
        begin
        Ausgabe_str:='0'+Ausgabe_str;
        end;
        s:=',';
        i:=Length(Ausgabe_str)-1;
        Insert (s, Ausgabe_str, i);
        Edit1.Text:=Ausgabe_str;
        Edit1.SelStart := Length(Edit1.Text);
        Key:=#0;

        end else if (Key in[#8]) then
                begin
                Text:='';
                Edit1.Text:='';
                Ausgabe_str:='';
                end;



end;



procedure TForm1.Edit1Click(Sender: TObject);
begin
Edit1.SelStart := Length(Edit1.Text);
end;

end.