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

[himitsu]

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;

var s: String;

s := lk14.Text;
intcheck(s);
lk14.Text := s;

oder du übergist direkt das Edit

Delphi-Quellcode:

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

intcheck(lk14);

[add] jetzt hat sich jaenicke vorgeschlichen