Antichat снова доступен.
Форум Antichat (Античат) возвращается и снова открыт для пользователей.
Здесь обсуждаются безопасность, программирование, технологии и многое другое.
Сообщество снова собирается вместе.
Новый адрес: forum.antichat.xyz
 |
|
15.02.2010, 22:25
|
|
Новичок
Регистрация: 16.11.2008
Сообщений: 27
Провел на форуме:
104236
Репутация:
6
|
|
Сообщение от fenixelite
DimkO, странно то как у тебя вообще TP на Win7 запустился Оо. Я только из под VM могу работать.......
а я и не говорил что у меня сейчас win7!я висту перебил на хр,считаю что программистам намного важнее увеличить производительность своей системы,а не улучшить "визуальные эффекты" 
|
|
|
15.02.2010, 22:29
|
|
Участник форума
Регистрация: 07.02.2010
Сообщений: 189
Провел на форуме:
870084
Репутация:
79
|
|
DimkO, ой, я твой пост случайно спутал с постом Nizhegorodets. Ну виста это вообще отдельная тема  А вот Вин7 приятно удивила, все работает быстро, без нареканий.
Nizhegorodets. Расскажи пж как это ты TP на Win7 запустил? DosBox или VM? |
|
|
|
16.02.2010, 00:38
|
|
Постоянный
Регистрация: 12.05.2009
Сообщений: 395
Провел на форуме:
4761503
Репутация:
229
|
|
Есть стринг переменная вида: x*x-x-5
Как вырезать третий X и поместить в другую переменную (вида стринг)? (т.е. который между минусами) (ах да, знаки в "уравнении" могут быть любыми!)
|
|
|
|
16.02.2010, 01:57
|
|
Участник форума
Регистрация: 23.08.2009
Сообщений: 133
Провел на форуме:
1952858
Репутация:
127
|
|
есть компоненты: edit1, label1, button1
как расписать так, что бы вводимый текстовой текст в edit1 (например 1) был равен 3,4
(2 = 3,4*2)
|
|
|
|
16.02.2010, 12:03
|
|
Познавший АНТИЧАТ
Регистрация: 27.04.2007
Сообщений: 1,044
Провел на форуме:
3660186
Репутация:
905
|
|
Код:
Edit1.ReadOnly := true;
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: char);
var
number : Real;
begin
number := 3.4 * StrToFloat (Key);
Edit1.Text:=FloatToStr(number);
end;
|
|
|
|
16.02.2010, 13:21
|
|
Участник форума
Регистрация: 07.02.2010
Сообщений: 189
Провел на форуме:
870084
Репутация:
79
|
|
Есть стринг переменная вида: x*x-x-5
Вместо X будет введенно число? Если это квадратного уравнение, то b = только 1 или могут быть другие числа? Напимер x*x-5*x-5 ? Уточни условие
|
|
|
|
16.02.2010, 16:01
|
|
Познающий
Регистрация: 27.08.2009
Сообщений: 33
Провел на форуме:
62823
Репутация:
0
|
|
Как можно узнать место положение пера?Ну вот стоит у меня перо)))))))))))и мне нужно узнать его координаты, есть ли функция какая нить?(Delfi)
|
|
|
|
16.02.2010, 17:28
|
|
Участник форума
Регистрация: 05.06.2009
Сообщений: 127
Провел на форуме:
1313455
Репутация:
249
|
|
function GetCursorPos(var Point: TPoint);
Пример:
Код:
procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
var
CursorPosition:TPoint;
begin
getcursorpos(CursorPosition);
edit1.Text := 'X = ' + inttostr(CursorPosition.X) + ' Y = ' + inttostr(CursorPosition.Y);
end;
|
|
|
|
16.02.2010, 17:35
|
|
Постоянный
Регистрация: 12.05.2009
Сообщений: 395
Провел на форуме:
4761503
Репутация:
229
|
|
могут быть другие числа? Напимер x*x-5*x-5 ?
Совершенно верно (да это квад. урав.)
|
|
|
|
16.02.2010, 17:44
|
|
Участник форума
Регистрация: 23.08.2009
Сообщений: 133
Провел на форуме:
1952858
Репутация:
127
|
|
хочу создать процедуру на радиогруппу
procedure TForm1.RadioGroup1Click(Sender: TObject);
begin
RadioGroup1.ItemIndex:=0;
label3.Visible:=true;
label2.Visible:=true;
edit1.Visible:=true;
edit2.Visible:=true;
RadioGroup1.ItemIndex:=1;
label3.Visible:=false;
label2.Visible:=false;
label4.Visible:=true;
label5.Visible:=true; почему она начинает тупить?
моя цель - это создать радиогруппу, при которой ткнув на item0 раскрываются некоторые label's и edit's, а некоторые скрываются
тоже самое при клацанье на item1 |
|
|
|
|
|
|
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|
Похожие темы
Линейный вид
