Größer als bei Edit1.Text ?!?

[Gast]

Aha und wie sehe ich das ?

Code:

var
  Form1: TForm1;
  Key: Char;
  X: integer;

function RandName(Length : Integer):String;
var
  i : Byte;
begin
  randomize();
  result := '';
  SetLength(Result,Length);
  for i := 0 to Length do
  begin
    Result[i] := Char(Random(25)+65);
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Memo1.Lines[0] := RandName(X);
end;

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  if not (key in ['0' .. '9'])then
  key:=#0
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  X := 12
end;

procedure TForm1.Edit1Change(Sender: TObject);
begin
  if (Edit1.Text > 100) then
    StatusBar1.Panels[0].Text := 'Test';
  X := StrToInt(Edit1.Text);
end;

Was soll ich nun machen oder ändern ?



*edit* Wenn ich das so mache:

Code:

if (Edit1.Text > '100') then

dann geht irgendwie nur der Anfangsbuchstabe .. also bei 0 oder 1 passiert nix aber bei 2 ja .. dabei soll erst was bei 200 passieren.



Habe die 100 jetzt als Variable genommen und nun gehts !