aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions

September 2017 Update

Browse source
This commit is contained in:
Ingy döt Net 2017-09-23 10:01:46 +02:00
parent bba7bfd280
commit ba8067c3b7
14570 changed files with 153136 additions and 63871 deletions
Download patch file Download diff file Expand all files Collapse all files

13
Task/GUI-component-interaction/Delphi/gui-component-interaction-2.delphi
View file

@ -28,18 +28,19 @@ implementation
{$R *.dfm}
procedure TForm1.EditInputFieldChange(Sender: TObject);
Var
Value: Integer;
begin
TRY
StrToInt(EditInputField.Text);
EXCEPT
ShowMessage('Error! The Input Value is not numeric!');
if not TryStrToInt(EditInputField.Text, value) then
begin
ShowMessage('Error! The Input Value is not numeric!');
EditInputField.Text := '0';
END;
end;
end;
procedure TForm1.ButtonIncrementClick(Sender: TObject);
begin
EditInputField.text := IntToStr(StrToInt(EditInputField.Text) + 1);
EditInputField.text := IntToStr (StrToInt(EditInputField.Text) + 1);
end;
procedure TForm1.ButtonRandomClick(Sender: TObject);