Registriert seit: 10. Sep 2003
402 Beiträge
|
Re: Wie erstelle ich eine Maske für Währung?
10. Mai 2004, 01:36
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.
Muh macht die kUh
|
|
Zitat
|