Et par spørgsmål

1) Brug den her til at validere dit edit felt med :

procedure ValidateEdit(Edit : TEdit; ValidChars : String ='0123456789');
var
  s : String;
  i : Integer;
begin
  s := Edit.Text;
  for i:= 1 to length(s) do
    if pos(s[i],ValidChars) = 0 then
      Delete(s,i,1);
  Edit.text := s;
  Edit.SelStart := length(s);
end;

2)
  Vej jeg ikke .. men kigger lidt på det

JEsn B

2) Prøv her: http://www.swissdelphicenter.ch/torry/showcode.php?id=263

hejhej: læg et svar..

Svar