Borland Delphi 7 - Страница 3

AlexZir · 09.01.2010, 21:52

Положительный знак можно не реализовывать, все сводится к отслеживанию минуса в начале выражения. Если 1 символ выражения = '-' тогда он удаляется (вырезка), иначе же дописывается командой Edit1.text:='-'+Edit1.text;

MrSTEP, конечно, предложил альтернативный вариант, только вот ведь незадача - при подобном преобразовании число может принять вид числа с плавающей точкой или с мантиссой, а это несколько неудобно.

MrSTEP · 09.01.2010, 21:57

Ну в моем калькуляторе все работало нормально. Сотни, тысячи, сотые, тысячные считались абсолютно верно

AlexZir · 09.01.2010, 22:05

Дайте свой исходник человеку, чтобы не мучился зря

У меня просто сейчас нет реализованного калькулятора под рукой, поделиться не могу

WOLF007 · 09.01.2010, 22:05

и последнее вот такая проблема сделал обработку кнопок для увелчения и уменшения картинки

Код:

procedure TForm3.SpeedButton1Click(Sender: TObject);
begin
Image1.Width:=Image1.Width +1;
Image1.Height:=Image1.Height +1;

end;

procedure TForm3.SpeedButton2Click(Sender: TObject);
begin
Image1.Height:=Image1.Height -1;
Image1.Width:=Image1.Width -1;
end;

при stretch=true кнопки работают при stretch=false кнопки не работают.

WOLF007 · 09.01.2010, 22:06

Цитата:

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

Дайте свой исходник человеку, чтобы не мучился зря

калькулятор доделан. всем спасибо)))

MrSTEP · 09.01.2010, 22:28

При Stretch=true изображение (сама картинка) подгоняется под размер компонента image. В противном случае картинка остается в исходном размере, но размер компонента при этом изменяется

WOLF007 · 09.01.2010, 22:46

это я все понимаю. может исходник выложить или архив приврепить с тем твореньем что начудил?

MrSTEP · 09.01.2010, 22:59

Ну давайте исходник. Можно и весь проект

WOLF007 · 09.01.2010, 23:05

Вот плиз

MrSTEP · 09.01.2010, 23:26

А в чем проблема на данный момент?

09.01.2010, 21:52	#21 (permalink)
AlexZir support Регистрация: 19.08.2007 Адрес: Зея Сообщений: 15,797 Записей в дневнике: 71 Сказал(а) спасибо: 166 Поблагодарили 203 раз(а) в 86 сообщениях Репутация: 75760	Положительный знак можно не реализовывать, все сводится к отслеживанию минуса в начале выражения. Если 1 символ выражения = '-' тогда он удаляется (вырезка), иначе же дописывается командой Edit1.text:='-'+Edit1.text; MrSTEP, конечно, предложил альтернативный вариант, только вот ведь незадача - при подобном преобразовании число может принять вид числа с плавающей точкой или с мантиссой, а это несколько неудобно. __________________ Убить всех человеков!

09.01.2010, 22:05	#23 (permalink)
AlexZir support Регистрация: 19.08.2007 Адрес: Зея Сообщений: 15,797 Записей в дневнике: 71 Сказал(а) спасибо: 166 Поблагодарили 203 раз(а) в 86 сообщениях Репутация: 75760	Дайте свой исходник человеку, чтобы не мучился зря У меня просто сейчас нет реализованного калькулятора под рукой, поделиться не могу __________________ Убить всех человеков!

09.01.2010, 22:05	#24 (permalink)
WOLF007 Member Регистрация: 24.02.2009 Сообщений: 806 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 563	и последнее вот такая проблема сделал обработку кнопок для увелчения и уменшения картинки Код: procedure TForm3.SpeedButton1Click(Sender: TObject); begin Image1.Width:=Image1.Width +1; Image1.Height:=Image1.Height +1; end; procedure TForm3.SpeedButton2Click(Sender: TObject); begin Image1.Height:=Image1.Height -1; Image1.Width:=Image1.Width -1; end; при stretch=true кнопки работают при stretch=false кнопки не работают.

09.01.2010, 21:57	#22 (permalink)
MrSTEP 一步一步地会到目的 Регистрация: 09.05.2009 Адрес: Черноземье Сообщений: 10,939 Записей в дневнике: 10 Сказал(а) спасибо: 140 Поблагодарили 80 раз(а) в 33 сообщениях Репутация: 28362	Ну в моем калькуляторе все работало нормально. Сотни, тысячи, сотые, тысячные считались абсолютно верно

Ads
Яндекс Member Регистрация: 31.10.2006 Сообщений: 40200 Записей в дневнике: 0 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 55070

09.01.2010, 22:28	#26 (permalink)
MrSTEP 一步一步地会到目的 Регистрация: 09.05.2009 Адрес: Черноземье Сообщений: 10,939 Записей в дневнике: 10 Сказал(а) спасибо: 140 Поблагодарили 80 раз(а) в 33 сообщениях Репутация: 28362	При Stretch=true изображение (сама картинка) подгоняется под размер компонента image. В противном случае картинка остается в исходном размере, но размер компонента при этом изменяется

09.01.2010, 22:46	#27 (permalink)
WOLF007 Member Регистрация: 24.02.2009 Сообщений: 806 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 563	это я все понимаю. может исходник выложить или архив приврепить с тем твореньем что начудил?

09.01.2010, 22:59	#28 (permalink)
MrSTEP 一步一步地会到目的 Регистрация: 09.05.2009 Адрес: Черноземье Сообщений: 10,939 Записей в дневнике: 10 Сказал(а) спасибо: 140 Поблагодарили 80 раз(а) в 33 сообщениях Репутация: 28362	Ну давайте исходник. Можно и весь проект

09.01.2010, 23:26	#30 (permalink)
MrSTEP 一步一步地会到目的 Регистрация: 09.05.2009 Адрес: Черноземье Сообщений: 10,939 Записей в дневнике: 10 Сказал(а) спасибо: 140 Поблагодарили 80 раз(а) в 33 сообщениях Репутация: 28362	А в чем проблема на данный момент?