Hi!
Ich bins wieder O.o
Ich sitz hier jetzt schon ne Weile und denke über folgendes nach:

Ich habe ein Editfeld. Dort dürfen allerdings nur Zahlen zwischen 0-29 rein.
Allerdings dürfen die Zahlen 1,3,11,13,22,27 auch nicht da rein.

Also ersteres geht ja so

zusammenfalten · markieren

Delphi-Quellcode:

...
var
s:integer;
 begin
 s:= StrToInt(Edit1.text);
   begin
   if s < 29 then
    begin
    ...
   end
  else
  begin
  ...
  end;

Das funktioniert soweit auch ganz gut.
Nur wie "filtere" ich jetzt die oben genannten Zahlen da raus?
Hab schon versucht mit
if s = 11 or 27 or 13 or 1 or 3 or 14 or 22 then Aber ich bekomm dann immer ne Fehlermeldung von Wegen zugriffsverletzung usw.

Hat also jemand einen besseren Vorschlag, dies zu lösen?

mfG
Merchator

Hallo,

so, jetzt hab ich kurz einen kleinen Test gemacht und so gehts:

zusammenfalten · markieren

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  s: String;
  i: Integer;

begin
  s := Edit1.Text;
  i := StrToIntDef(s, 0); //Text in Integer wandeln

  If (i in [1, 3, 11, 13, 14, 22 , 27]) then //prüfen ob die Zahl drin ist
    ShowMessage(Format('%d ist drin!', [i]));
end;

Hey, vielen Dank, hat geklappt!


Einen schönen Tag noch!

Hallo Merchator,

deinen Ansatz hattest du so umsetzten können:
if ((s = 11) or (s = 27) or (s = 13) or (s = 1) or (s = 3) or (s = 14) or (s = 22)) then aber Helmis ist "schöner"


MfG,
Bug

Zitat von BUG:

Hallo Merchator,

deinen Ansatz hattest du so umsetzten können:
if ((s = 11) or (s = 27) or (s = 13) or (s = 1) or (s = 3) or (s = 14) or (s = 22)) then aber Helmis ist "schöner"


MfG,
Bug

Wenn dann so:
if ((s = '11') or (s = '27') or (s = '13') or (s = '1') or (s = '3') or (s = '14') or (s = '22')) then

Zitat von Merchator:

...Dort dürfen allerdings nur Zahlen zwischen 0-29 rein.
Allerdings dürfen die Zahlen 1,3,11,13,22,27 auch nicht da rein....

Um beide Bedingungen zu erfüllen würde ich das so machen:

markieren

Delphi-Quellcode:

procedure Button1Click(Sender: TObject);
var i: Integer;
     s: String;
begin
  s := Trim(Edit1.Text); // evtl. Leerstellen vor und nach dem Eingabetext abschneiden
  i := StrToIntDef(s, 0);

  if ( i in [0..29] ) and ( i not in [1,3,11,13,22,27] ) then
  ...
end;

Empfehlung für die EIngabe: Im ObjektInspektor für das Editfeld die Eigenschaft MaxLength auf 2 setzen, so dass maximal nur eine 2-stellige Zahl eingegeben werden kann.
Desweiteren würde ich alle anderen Zeichen abblocken, sprich nur Ziffern zulassen; entsprechende CodeSchnippsel gibt's hier im Forum zur Genüge

Hallo,

oft ist der möglichst frühzeitige Ausschluss von falschen Eingabewerten die beste Lösung. Bei einem zusammenhängenden Wertebereich 0..29 wäre ein SpinEdit sicher optimal. Da hier aber Lücken vorgegeben sind, würde ich eine ComboBox mit dem Style csDropDownList einsetzen.

Grüße vom marabu

@Helmi

Zitat:

Wenn dann so:
if ((s = '11') or (s = '27') or (s = '13') or (s = '1') or (s = '3') or (s = '14') or (s = '22')) then

Siehe ersten Beitrag von Merchator:

Zitat:

s:= StrToInt(Edit1.text);

MfG,
Bug

Hallo,

gibt es eine einfachere Methode, ALLE numerischen Werte eines Strings zu filtern,
als Zeichen für Zeichen zu betrachten?

Also:
C123F -> CF

MFG
Steffen

Hi Steffen,

wenn du so allgemein fragst, dann: Nein. Sobald du ein Muster hast, kann man das berücksichtigen. Aber selbst dann könnte die Überprüfung jedes einzelnen Zeichens noch wirtschaftlicher sein als ein intelligenter Algorithmus - besonders bei kurzen Strings.

Grüße vom marabu