Kun indtaste bogstaver i en edit?

Tyvstjålet fra Borrisholt ;)


unit Unit1;

interface

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

type
  TCharSet = set of Char;

  TForm1 = class(TForm)
    Edit1: TEdit;
    procedure Edit1Change(Sender: TObject);
  private
    procedure ValidateEdit(Edit: TEdit; ValidChars: TCharSet);
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.ValidateEdit(Edit: TEdit; ValidChars: TCharSet);
var
  s: string;
  i: Integer;
begin
  s := Edit.Text;
  for i := 1 to length(s) do
    if not (s[i] in ValidChars) then
      Delete(s, i, 1);
  Edit.text := s;
  Edit.SelStart := length(s);
end;

procedure TForm1.Edit1Change(Sender: TObject);
begin
  ValidateEdit(Sender as TEdit, ['a'..'å', 'A'..'Å','æ','ø']);
end;

end.

oki, og hvis det kun må være tal?

Positive tal vel at mærke.

ValidateEdit(Sender as TEdit, ['0''..'9']);

Du kunne også køre det on KeyPressed(Key : char) - det hedder den vist

Tform.Edit1OnKeyPressed(aSender : TObject; aKey : char)
begin
  if not (aKey in ['0'..'9'] then
    key := #0;
end;

... lidt samme vin på andre flasker.

Tform.Edit1OnKeyPressed(aSender : TObject; aKey : char)
begin
  if not (aKey in ['0'..'9',chr(KEY_BACK)] then
    akey := #0;
end;

Nu sidder jeg ikke ved en Delphi så jeg improviserer lidt. KEY_BACK er koden for backspace.

HRC : http://www.eksperten.dk/spm/663045

Lige en sidste ting.... hvordan får jeg det til at virke med en maskedit med en maske som følger : __-__-___ ?

Jeg har lavet :
procedure TForm1.ValidateMaskEdit(Edit: TMaskEdit; ValidChars: TCharSet);
var
  s: string;
  i: Integer;
begin
  s := Edit.Text;
  for i := 1 to length(s) do
    if not (s[i] in ValidChars) then
      Delete(s, i, 1);
  Edit.text := s;
  Edit.SelStart := length(s);
end;

Men det laver et stack overflow når man taster tal ind..

løste det selv :)

Der er så lige endnu en anden ting... hvis man gerne må taste mellemrum?

har det... sorry.. jeg er ikke helt vågen endnu :)