Originariamente inviato da Uccio_Duri
Un'altra cosa... Io ho dei TMaskEdit io cui devono essere inseriti SOLO dei numeri. Come faccio a impedire che vengano inseriti altri caratteri? E se si può posso fare in modo che quando vengono inseriti altri caratteri la propietà Text diventi vuota?
Problema risolto!!!
Dato che ogni file lo decido io (e non l'utente) e che il numero il questione si riferisce alla riga del file ho usato questo codice:
codice:
function ValoriOk(EditBox: TMaskEdit; Max: Integer): boolean;
var
i : Integer;
begin
i := 0;
Result := False;
repeat
begin
if EditBox.Text = IntToStr(i) then
begin
Result := True ;
end;
if EditBox.Text = '0' + IntToStr(i) then
begin
Result := True ;
end;
i := i + 1;
end;
until i = Max;
end;
Dove Max è il massimo numero di righe (una costante che assegno io) e EditBox e il TMaskEdit che viene modificato... Poi ho messo:
codice:
if ValoriOk(EditBox, Max) = False then
begin
EditBox.Text := '';
end
else
begin
...
Che ne dite?
Rispondi quotando
