PPt4Web Хостинг презентаций

Главная / Информатика / Строковый калькулятор в Delphi. Строковые функции
X Код для использования на сайте:

Скопируйте этот код и вставьте его на свой сайт

X

Чтобы скачать данную презентацию, порекомендуйте, пожалуйста, её своим друзьям в любой соц. сети.

После чего скачивание начнётся автоматически!

Кнопки:

Презентация на тему: Строковый калькулятор в Delphi. Строковые функции


Скачать эту презентацию

Презентация на тему: Строковый калькулятор в Delphi. Строковые функции


Скачать эту презентацию



№ слайда 1 Департамент Западного окружного управления образования ГОУ СОШ № 714 Строковый к
Описание слайда:

Департамент Западного окружного управления образования ГОУ СОШ № 714 Строковый калькулятор в Delphi . Строковые функции Автор презентации: Комиссарова Е.Н. МОСКВА 2010-2011 уч. год.

№ слайда 2 Размещение элементов на форме
Описание слайда:

Размещение элементов на форме

№ слайда 3 Программный код. procedure TForm1.Button1Click(Sender: TObject); begin Label1.Ca
Описание слайда:

Программный код. 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:='Длина стр
Описание слайда:

procedure TForm1.Button2Click(Sender: TObject); begin Label1.Caption:='Длина строки = '+IntToStr(Length(Edit1.Text)); end;

№ слайда 5 procedure TForm1.Button3Click(Sender: TObject); var i: integer; begin i:=StrtoIn
Описание слайда:

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:='Код симво
Описание слайда:

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.Ca
Описание слайда:

Программный код. 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;

Скачать эту презентацию


Презентации по предмету
Презентации из категории
Лучшее на fresher.ru