Скачать презентацию
Идет загрузка презентации. Пожалуйста, подождите
Презентация была опубликована 10 лет назад пользователемЯн Бахорин
1 СТРОКОВЫЙ КАЛЬКУЛЯТОР В DELPHI. СТРОКОВЫЕ ФУНКЦИИ
3 Программный код. procedure TForm1.Button1Click(Sender: TObject); begin Label1.Caption:=Copy(Edit1.Text, StrToInt(Edit2.Text),StrToInt(Edit3.Text )); end;
4 procedure TForm1.Button2Click(Sender: TObject); begin Label1.Caption:='Длина строки = '+IntToStr(Length(Edit1.Text)); end;
5 procedure TForm1.Button3Click(Sender: TObject); var i: integer; begin i:=StrtoInt(InputBox('Ввод кода','Введите код от 0 до 255',' ')); Label1.Caption:='Символ кода '+IntToStr(i)+' равен '+chr(i); end;
6 procedure TForm1.Button4Click(Sender: TObject); begin Label1.Caption:='Код символа '+ 'a'+' равен '+IntToStr(ord('a')); end; procedure TForm1.Button5Click(Sender: TObject); begin close; end;
7 Программный код. procedure TForm1.Button1Click(Sender: TObject); begin Label1.Caption:=Copy(Edit1.Text, StrToInt(Edit2.Text),StrToInt(Edit3.Text)); end; procedure TForm1.Button2Click(Sender: TObject); begin Label1.Caption:='Длина строки = '+IntToStr(Length(Edit1.Text)); end; procedure TForm1.Button3Click(Sender: TObject); var i: integer; begin i:=StrtoInt(InputBox('Ввод кода','Введите код от 0 до 255',' ')); Label1.Caption:='Символ кода '+IntToStr(i)+' равен '+chr(i); end; procedure TForm1.Button4Click(Sender: TObject); begin Label1.Caption:='Код символа '+ 'a'+' равен '+IntToStr(ord('a')); end; procedure TForm1.Button5Click(Sender: TObject); begin close; end;
Еще похожие презентации в нашем архиве:
© 2024 MyShared Inc.
All rights reserved.