max. wert von editboxen

[AlexanderBrade]

Wie kann ich in Delphi den max. bzw. minimalen Wert von editboxen(es sind ca. 50) angeben?
Beim Eintippen einer zu großen bzw. zu kleinen Zahl soll er eine Warnung ausgeben bzw. diejeweilige Box rot einfärben!
Wie bekomme ich das möglichst schnell hin?
Vielen Dank im voraus!!!

[mkinzler]

Reagiere uaf Eingabe und Teste die Grenzen ab.

[AlexanderBrade]

Und wie mache ich das?

[DeddyH]

Z.B. OnChange oder OnExit mit TryStrToInt oder StrToIntDef in eine Zahl wandeln und prüfen.

[AlexanderBrade]

Damit kann ich schon etwas anfangen, aber wie lege ich die editbox, bzw. deren "Nummer " variabel fest um nicht 50 selbige Programmabläufe schreiben zu müssen?

[DeddyH]

Du schreibst das einmalig für das erste Edit und stellst diese Methode im OI für alle Edits ein. Wichtig ist dabei aber, dass Du keine statischen Komponentennamen verwendest, sondern den Sender-Parameter auswertest.

[Noedel]

erzeug sie in der laufzeit ?!

Delphi-Quellcode:

var neuesEdit:Tedit;
begin
neuesEdit:=TEdit.create(Form1);
neuesEdit.bla_bla_bla:=Wert_von_bla_bla_bla;
...
end;

[AlexanderBrade]

Über Sender habe ich noch nicht so viel gehört:
Schreibe ich dann eine Prozedur, wie?

Delphi-Quellcode:

trystrtoint(Sender);
if Sender{usw}

[DeddyH]

Ein Beispiel hatte ich doch bereits hier gepostet (gut, da ging es um Checkboxen, aber das Prinzip ist ja dasselbe).

[AlexanderBrade]

Und wie nenn ich die Prozedur dann?

Ich hab mir mal was überlegt:

Delphi-Quellcode:

procedure TNotifyEvent(Sender: TObject);
begin
if Sender is Tedit then
  begin
    if TEdit(Sender)<0{???} or TEdit(Sender)>15 then
        begin
        Tedit(Sender).Color:=clred;
end;
end;

trystrtoint-->wohin?

[DeddyH]

Das ist doch vollkommen unerheblich, solange das eine Methode (genauer: TNotifyEvent) ist, d.h. es muss eine Methode Deines Formulars sein und einen Parameter vom Typ TObject erwarten.

[edit] Lies noch einmal, was ich hier geschrieben hatte. [/edit]

[Noedel]

kurz gesagt, der name ist egal, nur nicht vergessen, sonst musst du immer wieder nachgucken :D :D :D

[Edit] Naja nicht ganz egal! Es dürfen nur buchstaben des eng. alphabets benutzt werden und namen die delphi schon in beschlag hat ("and","tag" usw...) nicht
Das wars auch schon an Regelungen [/Edit]

Zitat:

Zitat von AlexanderBrade

Delphi-Quellcode:

procedure Pruefung (Sender: TObject); // HAB ICH MAL SO GENANNT, WEIL DAS JA SCHON SCHWER ZU SEIN SCHEINT, EINEN NAMEN ZU FINDEN :D
begin
if Sender is Tedit then
  begin
    if TEdit(Sender).Text<0{???} or TEdit(Sender)>15 then  //HIER FEHLT NOCH DAS "TEXT" =>Tedit(Sender).text
        begin
        Tedit(Sender).Color:=clred;
end;
end;

[DeddyH]

Noedel, das ist keine Methode ;)

[AlexanderBrade]

das mit dem Tedit(Sender).text klappt nicht! Ich will ja keine Strings sondern Zahlen vergleichen!
-->Irgendwie muss ich die Strings noch umwandeln...

[DeddyH]

:wall: Nochmal: lesen

[AlexanderBrade]

Aber wo schreibe ich das trystrtoint denn hin?

[DeddyH]

Wirf doch mal einen Blick in die Hilfe zu TryStrToInt. Ich helfe ja gerne, aber Denken musst Du schon selbst, das kann ich Dir nicht abnehmen.

[AlexanderBrade]

Das nutzt mir doch garnichts, ich will doch nicht wissen, ob die Eingabe einer Zahl entsprciht, sondern will festlegen, dass man minimal 0 bzw. maximal 15 als Werte eingeben kann! Wie kann ich denn strtoint für "Sender"/dieses allgemeine Prozedur festlegen?

Delphi-Quellcode:

strtoint(TEdit(Sender).text)<0

funktioniert nicht!

[DeddyH]

Doch, genauso, nur eben nicht nur mit StrToInt, sondern mit TryStrToInt prüfen, ob es sich überhaupt um eine Zahl handelt.

[AlexanderBrade]

Dabei fehlen ihm aber immer Parameter!Auch die Hilfe bringt mich da nicht weiter!

[DeddyH]

Ich habe gerade kein Delphi zur Verfügung, aber das müsste doch so gehen:

Delphi-Quellcode:

var Zahl: integer;
...
if not (TryStrToInt(TEdit(Sender).Text,Zahl) and (Zahl in [0..15])) then
  ShowMessage('Fehlerhafte Eingabe');

[edit] Da fehlten Klammern. [/edit]

[Fussball-Robby]

Erstmal an den Threadersteller: Du musst dringend mehr Eigeninitiative zeigen! Es geht so einfach nicht, dass du nach einem kurzen Blick in die Hilfe aufgibst, prober doch mal was aus. Lies nach, welchen Parameter TryStrToInt noch erwartet!
Lösen würde ich es dann so:

Delphi-Quellcode:

  Zahl := StrToIntDef(TEdit(Sender).Text, -1);//in Zahl umandeln, wenn es keine Zahl ist, kommt -1 raus (Nicht in 0..15)
  if not (Zahl in [0..15]) then//wenn die Zahl nicht zwischen 0 und 15 ist..
    ShowMessage('Fehlerhafte Eingabe');//.. ist es eine fehlerhafte Eingabe