начал учить только-только - нужна ваша помошь

[mihali4]

нужно мне скачать такой учебник, где были допустим написано про Edit и примеры (что делает, что может делать - вот такие вопросы

Книга "100 компонентов Дельфи". Самое то.
Лежит на нашем клубном сайте. Ссылку я уже давал.

[beso]

Думал, Думал, и так падумал ,,Прог уже работаеть" а ви лучи пример скажите?

procedure TForm1.Edit2Change(Sender: TObject);
var
a, b, c: real;
begin
a:=StrToFloat(Edit1.Text);
b:=StrToFloat(Edit2.Text);
c:=a*b;
Edit3.Text:=FloatToStr(c);
end;
end.

[mihali4]

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

Думал, Думал, и так падумал ,,Прог уже работаеть" а ви лучи пример скажите?

procedure TForm1.Edit2Change(Sender: TObject);
var
a, b, c: real;
begin
a:=StrToFloat(Edit1.Text);
b:=StrToFloat(Edit2.Text);
c:=a*b;
Edit3.Text:=FloatToStr(c);
end;
end.

Проще:

procedure TForm1.Edit2Change(Sender: TObject);
begin
Edit3.Text:=FloatToStr(StrToFloat(Edit1.Text)*StrToFloat(Edit2.Text));
end;
end.

[Alex21]

Если нужно - округление до сотых:

Edit3.Text:=FloatToStr(Round(StrToFloat(Edit3.Text)*100)/100);
 
или
 
Edit3.Text:=FloatToStr(Round(StrToFloat(Edit3.Text)*exp(2*ln(10)))/(exp(2*ln(10))));
где 2 - число знаков после зпт.

[beso]

балшои спасиба ребята. я из Грузю, здес школа нету Праграмирование.
-----------------------------------------------------------------------

procedure TForm1.Edit2Change(Sender: TObject);
begin
Edit3.Text:=FloatToStr(StrToFloat(E dit1.Text)*StrToFloat(Edit2.Text));
end;
end.

----------------------------------------------------------------------
так тоже вуду пробувать. ,,Благадарю всех"

[korteas]

Космос, тебе небудет трудно и мне на почту скинить? (sulaimonolim@Rambler.ru ) Заранее спасибо.

[beso]

Памагите ребята хачу Свияз ,,Acces Delphi" от кнопке

1. сахранить
2. Поиск
3. Паказать.


..Сбасиба заран"

[beso]

kosmos ,,если хочешь я могу тебе на почту скинуть." атправлиаи Па Братски. rijgvina@mail.ru

[Alex21]

beso, один вопрос - одна тема.

На будущее - все вопросы, связанные с мылом решаются в Личных сообщениях.

[beso]

Alex21 vbmenu_register("postmenu_39071", true); харашо батуха. Я нацинаиуши из Грузие. здес школа нету Програмирование.