Что такое findslide.org?

FindSlide.org - это сайт презентаций, докладов, шаблонов в формате PowerPoint.


Для правообладателей

Обратная связь

Email: Нажмите что бы посмотреть 

Яндекс.Метрика

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

Размещение элементов на форме
СТРОКОВЫЙ КАЛЬКУЛЯТОРВ DELPHI. СТРОКОВЫЕ ФУНКЦИИАвтор презентации: Комиссарова Е.Н.МОСКВА2010-2011 уч. год.Департамент Западного окружного Размещение элементов на форме Программный код.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',' procedure TForm1.Button4Click(Sender: TObject);begin Label1.Caption:='Код символа '+ 'a'+' равен '+IntToStr(ord('a'));end;procedure TForm1.Button5Click(Sender: TObject);begin close;end; Программный код.procedure TForm1.Button1Click(Sender: TObject);beginLabel1.Caption:=Copy(Edit1.Text, StrToInt(Edit2.Text),StrToInt(Edit3.Text));end;procedure TForm1.Button2Click(Sender: TObject);beginLabel1.Caption:='Длина строки = '+IntToStr(Length(Edit1.Text));end;procedure TForm1.Button3Click(Sender: TObject);var
Слайды презентации

Слайд 2 Размещение элементов на форме

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

Слайд 3 Программный код.
procedure TForm1.Button1Click(Sender: TObject);
begin
Label1.Caption:=Copy(Edit1.Text, StrToInt(Edit2.Text),StrToInt(Edit3.Text));
end;

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

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('Ввод кода','Введите код

procedure TForm1.Button3Click(Sender: TObject);var i: integer;begin i:=StrtoInt(InputBox('Ввод кода','Введите код от 0 до

от 0 до 255',' '));
Label1.Caption:='Символ кода '+IntToStr(i)+' равен

'+chr(i);
end;

Слайд 6 procedure TForm1.Button4Click(Sender: TObject);
begin
Label1.Caption:='Код символа '+ 'a'+' равен

procedure TForm1.Button4Click(Sender: TObject);begin Label1.Caption:='Код символа '+ 'a'+' равен '+IntToStr(ord('a'));end;procedure TForm1.Button5Click(Sender: TObject);begin close;end;

'+IntToStr(ord('a'));
end;


procedure TForm1.Button5Click(Sender: TObject);
begin
close;
end;


  • Имя файла: strokovyy-kalkulyator-v-delphi-strokovye-funktsii.pptx
  • Количество просмотров: 169
  • Количество скачиваний: 0