[Delphi] Trasformare una stringa in array

[Uccio_Duri]

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:

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:

if ValoriOk(EditBox, Max) = False then
    begin
      EditBox.Text := '';
    end
  else
  begin
...

Che ne dite?