Деление edit'в - Общие вопросы Delphi - Страница 2

Neeter · 24.05.2009, 13:17

Я про этот код имел ввиду.

Код:

var v1,v2:integer;
procedure TForm1.Button1Click(Sender: TObject);
begin
if TryStrToInt(edit1.Text, v1) and TryStrToInt(edit2.Text, v2) then
edit3.text:=inttostr(strtoint(edit1 .text) div strtoint(edit2.text));

Но зачем вам это? Это целочисленное деление.

Matters · 24.05.2009, 13:40

ладно пока без округления сделаем

24.05.2009, 13:17	#11
Neeter Форумчанин Регистрация: 22.02.2009 Сообщений: 875	Я про этот код имел ввиду. Код: `var v1,v2:integer; procedure TForm1.Button1Click(Sender: TObject); begin if TryStrToInt(edit1.Text, v1) and TryStrToInt(edit2.Text, v2) then edit3.text:=inttostr(strtoint(edit1 .text) div strtoint(edit2.text));` Но зачем вам это? Это целочисленное деление. Чтобы обнаруживать ошибки, программист должен иметь ум, которому доставляет удовольствие находить изъяны там, где, казалось, царят красота и совершенство.

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Ltktybt edit'в	Matters	Общие вопросы Delphi	1	24.05.2009 12:53
Деление	\|{ot	Assembler - Ассемблер (FASM, MASM, WASM, NASM, GoASM, Gas, RosAsm, HLA) и не рекомендуем TASM	4	24.03.2009 01:50
деление строки	Joy	Паскаль, Turbo Pascal, PascalABC.NET	3	24.01.2009 16:14
Деление на ноль!	Hacker19_90	Паскаль, Turbo Pascal, PascalABC.NET	7	01.10.2008 22:59
деление	natasha	Общие вопросы Delphi	6	22.01.2007 12:39

24.05.2009, 13:40	#12
Matters Регистрация: 24.05.2009 Сообщений: 5	ладно пока без округления сделаем