fehler in label ausgeben.

[Flips]

Wenn ich das richtig verstehe willst du die 5 Edits alle darauf überprüfen lassen, ob die zahl in dem bereich is...

wenn du sie durchgehend benennst (Edit1, Edit2, Edit3,...) dann würd ich das so machen.

Delphi-Quellcode:

for i := 1 to 5 do
  begin
    case StrToInt(TEdit(FindComponent('Edit'+IntToStr(i))).Text) of
      -1000..-1 : Showmessage('Zahl in Edit'+IntToStr(i)+' zwischen -1000 und -1');
      0..1000   : Showmessage('Zahl in Edit'+IntToStr(i)+' zwischen 0 und 1000');
    end;
  end;

Müsst gehn, ungetestet