hi,
Zitat:
procedure TForm1.Button1Click(Sender: TObject);
begin
if strtoint(edit1.Text) = 85 then form1.Color:=clblack;
end;
das würde ich nicht so machen. was, wenn keine zahl im edit steht?
ich würde es so machen:
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
begin
if edit1.Text = '85' then form1.Color:=clblack;
end;
oder so:
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
begin
if edit1.Text = inttostr(85) then form1.Color:=clblack;
end;