Калькулятор - Общие вопросы Delphi

Djeka(c) · 18.05.2012, 00:02

Код:

procedure TForm1.btn1Click(Sender: TObject);
var
  s12:string;
  pom:Boolean;
  i:integer;
begin
 if (Pos(' :ЗАДАНИЕ: ',s12)<>0) and pom  then
  begin
   i:=pos(' :ЗАДАНИЕ: ',s12)+10;
 edt1.Text:=Calculate(Copy(s12,i,Length(s12)),0);
end;
 end;
end.

поясните процедурку ))) пожалуйста

GunSmoker · 18.05.2012, 00:15

http://www.delphikingdom.ru/asp/view...p?catalogid=10
http://www.delphikingdom.ru/asp/view...?catalogid=633
http://www.delphikingdom.ru/asp/view...?catalogid=517
http://www.delphikingdom.ru/asp/view...p?catalogid=11

Djeka(c) · 18.05.2012, 01:52

Цитата:

Сообщение от GunSmoker

http://www.delphikingdom.ru/asp/view...p?catalogid=10
http://www.delphikingdom.ru/asp/view...?catalogid=633
http://www.delphikingdom.ru/asp/view...?catalogid=517
http://www.delphikingdom.ru/asp/view...p?catalogid=11

очкарик ты чё тыкаешь сам учи

Shouldercannon · 18.05.2012, 02:25

Если в s12 найдена позиция и pom = True, то в i указываем позицию начала найденного слова + 10 символов. Далее в Edit, очевидно, через процедуру Calculate выводятся данные.

Stilet · 18.05.2012, 07:26

Цитата:

поясните процедурку

А чего тут пояснять?
Код работать корректно не будет. Из-за одной ма-а-а-ленькой переменной.
А вот какой, я скажу автору, когда он научится общаться с людьми.

Utkin · 18.05.2012, 07:35

Цитата:

очкарик ты чё тыкаешь сам учи

Зря, он хорошие вещи тебе показал.

FaTaL · 18.05.2012, 10:56

Забаньте ТС.

18.05.2012, 00:02	#1
Djeka(c) Пользователь Регистрация: 18.07.2010 Сообщений: 64	Калькулятор Код: `procedure TForm1.btn1Click(Sender: TObject); var s12:string; pom:Boolean; i:integer; begin if (Pos(' :ЗАДАНИЕ: ',s12)<>0) and pom then begin i:=pos(' :ЗАДАНИЕ: ',s12)+10; edt1.Text:=Calculate(Copy(s12,i,Length(s12)),0); end; end; end.` поясните процедурку ))) пожалуйста Djeka(c) Последний раз редактировалось Stilet; 18.05.2012 в 07:22.

18.05.2012, 00:15	#2
GunSmoker Старожил Регистрация: 13.08.2009 Сообщений: 2,581	http://www.delphikingdom.ru/asp/view...p?catalogid=10 http://www.delphikingdom.ru/asp/view...?catalogid=633 http://www.delphikingdom.ru/asp/view...?catalogid=517 http://www.delphikingdom.ru/asp/view...p?catalogid=11 Опытный программист на C++ легко решает любые не существующие в Паскале проблемы.

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
калькулятор!!!!	maratos	Помощь студентам	9	22.04.2011 06:48
калькулятор на с++	-=Andriushka=-	Помощь студентам	3	04.03.2011 21:21
калькулятор	zorra123	C# (си шарп)	5	16.02.2011 19:15
Калькулятор	Kasper1	PHP	5	15.02.2011 07:58
Калькулятор на с++	Banner	Помощь студентам	2	07.02.2011 11:42

18.05.2012, 02:25	#4
Shouldercannon Участник клуба Подтвердите свой е-майл Регистрация: 26.01.2008 Сообщений: 1,897	Если в s12 найдена позиция и pom = True, то в i указываем позицию начала найденного слова + 10 символов. Далее в Edit, очевидно, через процедуру Calculate выводятся данные.

18.05.2012, 10:56	#7
FaTaL Участник клуба Регистрация: 09.11.2007 Сообщений: 1,761	Забаньте ТС.