ein Edit-Feld über eine Funtion/Procedure ändern

[himitsu]

Wenn ein Parameter veränderbar sein voll, dann mußt du diesen als solchen kennzeichnen

Code:

procedure IntCheck([b]var[/b] LabelName: String);

[edit] man kann das Ganze aber auch kürzen

Delphi-Quellcode:

procedure intcheck(var LabelName: String);
var i: integer;
begin
  i := StrToIntDef(LabelName, -1);
  if (i < 0) or (i > 15) then begin   
    showmessage('bitte Zahlen bis 15 eingeben');
    LabelName := '';
  end;
end;

// bzw.

procedure intcheck(var LabelName: String);
var i: integer;
begin
  if not TryStrToInt(LabelName, i) 
      or (i < 0) or (i > 15) then begin   
    showmessage('bitte Zahlen bis 15 eingeben');
    LabelName := '';
  end;
end;

PS: wenn du mit der ersten Schleife eine Exception in StrToInt verhindern wolltest, dann versuch mal '1234567890123456789' an StrToInt zu übergeben