kun tal

jeg har en edit, hvor man kun kan skrive tal. Men desværre er det muligt at paste al mulig tekst ind. Hvordan kan jeg fjerne alle andre tegn end tal i en string?

i din forn kan du indsætte OnKeyPress="EnsureNumeric()" i de felter hvor der kun må være tal, det er det nemmeste

----EDIT----
dammit.... jeg må lære at læse hvilket forum det er før jeg skriver....!

[Redigeret d. 16/06-04 12:37:35 af Mark]

jeg har en edit, hvor man kun kan skrive tal. Men desværre er det muligt at paste al mulig tekst ind. Hvordan kan jeg fjerne alle andre tegn end tal i en string?

Dette kan klare det:

function RemoveNonNumbers(S: String): String;
var
  I: Integer;
begin
  Result := '';
  for I := 1 to Length(S) do begin
    if S[I] in ['0'..'9'] then
      Result := Result + S[I]
  end;
end;

MH.

The-Freak

Livet er for kort til at kede sig.

[Redigeret d. 16/06-04 14:30:40 af The-Freak]