editbox

[AlexanderBrade]

Hallo liebe Community,
ich habe noch ein kleines Problem zu umschiffen.
Ich habe 20 editFelder, nun kann man darin Zahlen von 1-15 eingeben.
Delphi soll eine Meldung ausgeben, wenn in 7 dieser Boxen ein Wert kleiner als 5 steht. Wie geht sowas?

[Blackheart]

Mit FindComponent

[craash]

spontan würd ich das so lösen

Delphi-Quellcode:

var editfelder: array [1..20] of TEdit = (edit1, edit2, ...);

procedure deinevent;
var i,zaehler:integer;
begin
zaehler:= 0;

for i:=1 to 20 do
  begin
  if ( strtoint(editfelder[i].text) < 5 ) then zaehler:= zaehler +1;
  end;

if zaehler >=7 then showmessage('bla');

end;

[jaenicke]

Es gibt saubere und unsaubere Varianten.

Du könntest bei Änderungen einen Zähler aktualisieren, der das schon vorher mitzählt, du kannst aber auch einfach jedesmal in einer Schleife alle Edits durchgehen und zählen.

Vielleicht gibt dir das angehängte Projekt einen Hinweis dazu, dort wird beim An- oder Abwählen von CheckBoxen geschaut, dass nur maximal 5 ausgewählt werden können. In deinem Fall müsstest du den Inhalt des Edits in OnChange prüfen, aber das prinzipielle Vorgehen ist gleich.

[AlexanderBrade]

Ja damit habe ich schon mal gearbeitet.
Ich weiß aber net wirklich wie ich die Schleife aufbauen soll, so wie das craash vorschlägt wirds problematisch!

[craash]

wieso denn?

[AlexanderBrade]

Naja sowas geht ja garnicht: var editfelder: array [1..20] of TEdit = (edit1, edit2, ...); Sollte ich mich irren sag es mir, aber so nimmt er es nicht an!

[Blackheart]

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
 i:Integer;
begin
    for i:= 1 to 20 do
    if StrToInt(TEdit(FindComponent('Edit'+IntToStr(i))).Text) < 5 then
    inc(j);
    if j = 7 then ShowMessage('In '+IntToStr(j)+' Edits ist der Wert kleiner als vier');
end;

[craash]

Dass es nicht läuft, wenn du das genau so in den Code hineinkopierst ist doch klar...

Sollte ja nur das Prinzip darlegen, dass du (bei diesem Lösungsweg) die Editfelder zuerst in ein Array zusammenfassen musst.

[AlexanderBrade]

Ja aber wie funktioniert das? Denn bei mir ergebne sich auch nach dem Anpassen Probleme!