Feld Formatieren

[Kuster Peter]

Danke, nun habe ich aber kein dbmaskedit gefunden. Gibts das in Delphi 7 oder in Lazarus, habe nur diese beiden Tools? Ansonsten ist mir endlich der Groschen gefallen.

Gruss
Peter

[mkinzler]

Sollte aber bei D7 dabei sein. sonst schau dir mal die VCl an, dort gibt es auch eine Variante davon.

[Kuster Peter]

Ja, das Maskedit habe ich gefunden, doch kein dbmaskedit. Oder kann man diese verbinden?

Peter

[mkinzler]

Ja, wenn du den Wert manuell aus dem Datenbankfeld in das Control und nach der Eingabe zurück in Feld überträgst

[Kuster Peter]

Darf ich Dich noch ein letztes Fragen: Du kennst Dich ja auch in Lazarus aus: Dort hat es beim DBEdit feld ein EditMask im Objektinspektor. Könnte man dort was machen?

Danke für Deine Hilfe. Ansonsten werde ich editmask nehmen und dann mit dbeditmask verbinden, also ich muss es versuchen, denn habe noch keine Ahnung wie ich das löse. Doch üben üben.

Peter

[mkinzler]

Ich nehme an ja. Bei D2009 ist das auch so

[Kuster Peter]

Danke, muss nur noch schauen, dass ich herausfinde, wie man das macht. Solltest Du einen Tipp haben was ich ausfüllen soll, bin dankbar.

Peter

[mkinzler]

Was meinst du mit ausfüllen? Setzte doch mal eine Maske und überprüfe, ob sie verwendet wird

[Kuster Peter]

Ja das ist ja mein Problem, ich google und google und suche, doch eine Anleitung, was ich dort eingeben muss, damit das Feld richtig erscheint habe ich nicht gefunden.

Peter

[DeddyH]

Nimm mal ein "normales" Edit. In dessen "OnExit"-Event schreibst Du

Delphi-Quellcode:

SetNumberFormat(Sender as TEdit);

Die aufgerufene Prozedur sieht so aus:

Delphi-Quellcode:

procedure SetNumberFormat(const aEdit: TEdit; const sFormat: string = '%.2f');
var Zahl: Extended;
begin
  Zahl := StrToFloatDef(aEdit.Text,0);
  aEdit.Text := Format(sFormat,[Zahl]);
end;