Лидеры по количеству баллов:

Если Вы хотите, чтобы Вашего имени (ника) не было в данной таблице, отправьте письмо по этой ссылке с зарегистрированного у нас адреса. В теле письма, пожалуйста, укажите причину удаления имени из таблицы. Нам важно ваше мнение.

Основные правила нашей рассылки:
1. Не присылайте ответов на вопросы вроде "да я не знаю" или "да/нет". Такие ответы не публикуются.
2. Вопросы, не касающиеся Delphi, не принимаются (для этого существуют другие рассылки).
3. Запрещено присылать вложенные файлы, объёмом выше установленного ограничения (ограничения указаны в правилах).
4. Не изменяйте тем присылаемых писем. Письма с "неправильными" темами не обрабатываются! Используйте текстовый (не HTML) формат писем. HTML-теги применяйте только в том случае, если Вы уже достигли статуса, где это разрешено (см. правила).
5. Запрещено задавать вопросы, содержащие два (или несколько) вопросов разной тематики. Каждый из таких вопросов должен быть оформлен отдельным письмом.

Новые вопросы.

Новых вопросов не было задано. Хочу Вас спросить, почему? :)

Вопрос #78 (автор вопроса: Hires; вопрос отправлен: 20.02.2005 16:33):

Как получить скорость работы GPU и памяти видео карты? [Ответить на вопрос]

Вопрос #88 (автор вопроса: Sergey; вопрос отправлен: 15.03.2005 19:57):

Вопрос по TChart. Как осуществить привязку указателя мыши к линии LineSeries? И еще. По оси X - время (DateTime). Как "вытащить" значение Y в любой точке LineSeries? [Ответить на вопрос]

Вопрос #90 (автор вопроса: Nanny_Jagg; вопрос отправлен: 17.03.2005 07:56):

Как в DBGrid из библиотеки Ehlib 3.6 добавить Lookup-поле, чтобы оно действительно работало? Поле вроде сделано, но ключевое поле, оставленное рядом для контрола не меняется, по какому событию обработчик писать? [Ответить на вопрос]

Вопрос #105 (автор вопроса: Crazy_Jack; вопрос отправлен: 03.04.2005 14:44):

Как прочитать под WinXP MBR? [Ответить на вопрос]

Вопрос #131 (автор вопроса: YaricZ; вопрос отправлен: 21.05.2005 15:01):

У меня такой вопрос: я использую библиотеку KOL и MCK, но компонентов в этих библиотеках немного - только стандартные. Внимание - вопрос знатокам: возможно ли использование компонентов Delphi совместно с KOL? Если добавить обычный компонент из вкладки, к примеру, "стандартные" - программа не компилируется. И второй вопрос: если совместное использование KOL со стандартными компонентами Delphi невозможно, то где можно скачать аналог компонентов DataSource, ClientDataSet, DBGrid. DBEdit, DBMemo? На официальном сайте ничего нет. Заранее выражаю благодарность всем, кто сможет мне помочь. [Ответить на вопрос]

Вопрос #144 (автор вопроса: Angen; вопрос отправлен: 03.07.2005 22:41):

Пишу программу "Редактор настроек Windows" наподобие "WinSEr". Подскажите, пожалуйста, как в свойствах "Пароли" под Win98 в закладке "Удаленное управление" программно добавить определенного пользователя или удалить его? [Ответить на вопрос]

Вопрос #149 (автор вопроса: Alexandr Prokhoda; вопрос отправлен: 04.09.2005 11:18):

Добрый день. Подскажите пожалуйста, каким образом программа (пишу в Delphi 5) может изменить параметры электропитания WindowsXP (или хоть какой-то)? Конкретно – время выключения монитора. Заранее благодарю, Александр Прохода. [Ответить на вопрос]

Вопрос #153 (автор вопроса: sun rain; вопрос отправлен: 11.09.2005 18:12):

Ситуация: есть прокся, которая блокирует доступ к форуму, но можно получить доступ к нему введя вместо него IP адрес... Я смог написать программку на Delphi, которая при помощи стандартного компонента браузера грузила страницы форума, но без картинок и тем более нельзя было войти туда под логином. Как сделать чтоб все адреса (файлы, линки..), что этот "браузер" запрашивает у сервера, менялись на нужные мне и в итоге я видел все правильно? [Ответить на вопрос]

Вопрос #138:
Как сделать анализатор звука (спадающие пики как в Winamp) ?

1. [Отвечает: Matveyev, 20.09.2005 02:53]: См. статью http://delphiworld.narod.ru/base/decompile_wave.html. Был у меня еще примерчик как раз на эту тему, но что-то найти не могу. Если всё же найду - дам.

Оценка за ответ: 3.

Вопрос #145:
Здравстуйте, помогите, пожалуйста, с решением такого вопроса: Как мне сделать, чтобы при раскрытии одного из подпунктов моего попап-меню отображалость контекстное меню Проводника (например, как при щелчке правой кнопкой на файле)? И еще: Как сделать самому команды аналогичные Копировать, Вырезать, Отправить...? Заранее благодарю!

3.2. [Отвечает: Ершов Денис, 19.09.2005 09:51]: С опозданием, но я нашел, где видел добавление пункта в контекстное меню проводника через COM-сервер. Это один из примеров к книге Марко Кэнту "Mastering Delphi 6". В архиве два проекта. Один - программа позволяющая перетаскивать на свою форму файлы. Другой - обработчик контекстного меню, отправляющий файлы в эту программу. Скачать прикреплённый файл.

Оценка за ответ: 5.

Вопрос #150:
Доброго времени суток всем! Поможите кто может! У меня есть база в ACCESS, в Дельфях(7) написана программка по её управлению. На основе данных базы идут вычисления (вычисляемые поля). ВОПРОС: Как сделать сортировку по вычисляемому полю? Можно ли данные из вычисляемого поля записать в таблицу? Спасибо!

1. [Отвечает: Вадим Фурив, 19.09.2005 12:30]: Для того, чтобы получить вычисляемые поля лучше всего использовать SQL запросы. Например:
SELECT Price, CountOfBooks, Price*CountOfBooks as SummaOfZakaz FROM Zakaz
Таким образом в DataSet компонента ADOQuery получим записи по полям: Price (цена едмницы), CountOfBooks (количество товаров - скажем
книг) и SummaOfZakaz (произведение количества на стоимость единицу - или стоимость партии). Обращаться к этому полю можно так:
Summa:=ADOQuery1.FieldByName('SummaOfZakaz').asFloat;
Для сортировки можно добавить в конец запроса строку:
ORDER BY SummaOfZakaz
Кроме того добавлю, что в запрос позволяет еще и отбирать не все данные, а выборочно с помощью команды WHERE. Но это уже нужно учить
SQL. Хотя при работе с данными с ним работать намного проще, чем через всякие ADOTable.

Записать данные из запроса можно так же командой SQL:
SELECT INTO [имя_таблицы] Price, CountOfBooks, Price*CountOfBooks as SummaOfZakaz FROM Zakaz

Оценка за ответ: 5.

Вопрос #151:
Как сделать бегущую строку с прозрачным фоном текста поверх всех окон, когда, допустим, смотришь фильм, во весь экран?

1. [Отвечает: Matveyev, 20.09.2005 02:53]: На мой взгляд, наиболее элегантным решением будет использование оверлеев - это не так сложно как кажется на первый взгляд, а поверх, будет так поверх - прямо в буфере видеокарты. Подробнее см. http://www.delphimaster.ru/articles/directx/index.html . Если ссылка битая, обращайся, дам вместе с исходниками примера.

Оценка за ответ: 4.

2. [Отвечает: Dasha, 20.09.2005 15:12]: В свойствах формы ставишь: FormStyle - fsStayOnTop; убираешь все BorderIcons, BorderStyle - bsNone; цвет формы, например, черный. Тогда TransparentColorValue тоже черный, TransparentColor - true, на форму таймер и один ярлык для текста, у него Left = 0.
procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
if key = #13 then //чтобы форма закрывалась по нажатию Enter.
close;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
if Left+Label1.Width>0 then
Left:=Left-5
else
Left:=Screen.Width;
end;

Оценка за ответ: 5.

Вопрос #152:
Подскажите, пожалуйста, как объявлять свои собственые типы данных и работать с ними?

1. [Отвечает: Вадим Фурив, 19.09.2005 12:42]: Для ответа на данный вопрос нужно всего-лишь прочитать в хелпе по Delphi про зарезервированное слово type. Например:
type TValue = Real;
var
X: Real;
Y: TValue;
Тут объявляется свой тип TValue. Он идентичен типу Real. Значит X и Y будут совместимые.Или например:
type TValue = String[10];
var
X: String[10];
Y: TValue;

Тоже типы совместимые. Можно еще объявлять кучу разных вещей: массивы (X: array of Integer), записи, сеты. Все это подробно можно найти в помощи по Delphi. Если проблема с переводом с английского, то советую установить программу HelpReader.

Оценка за ответ: 5.

2. [Отвечает: Геннадий Самолдин, 19.09.2005 16:28]: Сначала пишешьЖ
type <имя>= <тип>
x:integer;
и т.д.
end;

Потом объявляешь переменную x: <имя типа>; и работаешь с ним.

Оценка за ответ: 4.

3. [Отвечает: Садовников Владимир, 19.09.2005 17:41]: Самый лучший помощник в данном случае - хорошая книга. Какие типы данных тебя интересуют - множества, массивы, перечисления, записи, классы, указатели? Вообще говоря, все типы данных объявляются после ключевого слова type. Примеров, думаю, не надо приводить: достаточно открыть тот же заголовочный файл Windows.pas и посмотреть, как там объявляются все типы.

Оценка за ответ: 4.

4. [Отвечает: Dasha, 20.09.2005 15:18]: Где-нибудь перед var пишешь type и ниже описываешь тип данных. Например, так:
type
Tperson = record
Name, IP, CompName: string;
end;
MyAr = array [0..2,0..1] of integer;

Потом объявляешь переменную этого типа, например:
var
NewAr: MyAr; //это будет соответственно, массив и работаешь, как с массивом :)

Оценка за ответ: 5.

5. [Отвечает: mvp, 20.09.2005 20:38]: Пример:
type Mytype = (a, b, c, d);
//--------
var s : Mytype;
//---
for s := a to d do
begin
if s = c then...
//
end;

Объявляем в разделе type. Это может быть перечислимый тип или запись или переименование уже существующих типов. Например,

type MyInt = Integer;

Но, следует учесть, что если есть процедура(функция): procedure F(var Ad : MyInt), и у вас будут такие объявления
var a : Integer;
b : Myint;
то вызов F(a) - выдаст ошибку несовместимости типов.

Ещё примеры:
type
a = record
x, y : integer;
name : string;
addon : pointer;
end;
//
var qq : a;
//--------
with a do
begin
x := 1;
y := 10;
name := test;
addon := nil
end;
//----------

type
varArr = array of integer;

var Ar : varArr;
//-----

SetLength(ar, 5);
Ar[0] := 1;
Ar[1] := 2;
//---------

Оценка за ответ: 5.

6. [Отвечает: Azamat Galiyev, 21.09.2005 07:44]: Ээ... вопрос конечно интересный ;) Очень советую прочитать первый том Тексеры и Пачека, ну и конечно второй на закуску. Ну а пока краткая справка. Перед объявлением пишем ключевое слово type потом одно или несколько объявлений.

type
бла-бла-бла;
бла-бла-бла;
бла-бла-бла;
бла-бла-бла;

бла-бла-бла может быть нескольких видов.

Простое переопределение:
TFileName = type string;

Что-нибуть изощрённее (указатель на начало процедуры):
TProcedure = procedure;

Массивы:
TByteArray = array[0..32767] of Byte;

Указатели:
PByteArray = ^TByteArray;

Перечисления:
TFloatValue = (fvExtended, fvCurrency);

Это поинтереснее, записи (packed - означает упакованные - байт за байтом)
TFloatRec = packed record
Exponent: Smallint;
Negative: Boolean;
Digits: array[0..20] of Char;
end;

Записи неупакованные (каждая часть записи в памяти выровнена по сетке 4-байт):
TTimeStamp = record
Time: Integer; { Number of milliseconds since midnight }
Date: Integer; { One plus number of days since 1/1/0001 }
end;

Наборы (иногда очень полезный механизм!!!):
TSysCharSet = set of Char;
TIntegerSet = set of 0..SizeOf(Integer) * 8 - 1;

Ну и конечно бесконечная мощь ООП классы например один из самых юзабельных:
TList = class(TObject)
private
/// код обявлений ///
protected
/// код обявлений ///
public
/// код обявлений ///
end;

И еще одна немаловажная вещь которой непользуются начинающие Пасквилянты - интерфейсы.
IInterfaceList = interface
['{285DEA8A-B865-11D1-AAA7-00C04FB17A72}']
/// код обявлений ///
end;

Все объявления взяты из стандартных модулей SysUtils и Classes (спасибо большое борландцам). А ваше как говорил один очень известный товарищ - Хочешь писать как Шекспир - копируй Шекспира. Глубокое изучение стандартных готовых модулей и демок позволит Вам научится писать на должном уровне. И больше пожалуйста не задавайте таких вопросов...

Оценка за ответ: 5.

7. [Отвечает: Yurchik, 23.09.2005 00:04]: http://program.rin.ru/razdel/html/1022.html.

Оценка за ответ: 3.

Вопрос #154:
Помогите начинающему. Изучаю Дельфи по рассылкам и статьям. Пытаюсь свернуть программу в трей. Все делаю по статье, но при компиляции строка "Shell_NotifyIcon(NIM_ADD,@no);" вызывает ошибку "Unsafe code only allowed in unsafe procedure" (Опасный код, только позволенный в опасной процедуре). Что это значит? И что делать? Дельфи 8-я версия.

1. [Отвечает: Dron, 19.09.2005 08:35]: Делать вручную - ну очень долгий и неудобный способ. Лучше взять готовые компоненты, с помощью которых иконка в трее делается за пару секунд. Лично я рекомендую использовать Cool TrayIcon: http://www.delphi.int.ru/download.php?id=20.

Оценка за ответ: 4.

2. [Отвечает: Ершов Денис, 19.09.2005 09:27]: Приветствую, Алексей. Не знаю насколько данная информация устарела. Работал только с D7. В ней это была не ошибка (Error), а предупреждение указывающее на ненадежность кода (Warning). При этом программа вполне компилируется и запускается, просто компилятор ставит под вопрос правильность функционирования такого кода. Можно просто игнорировать данные сообщения, можно отключить через Project -> Project options ->Compiller Messages, чтобы не доставали. Конкретно по сообщению. В D7 данное сообщение указывало на несовместимость в будущем данного кода с технологией ".NET". Еще конкретней, приводит к конфликту памяти. Если в D8 картина аналогичная - игнорируй, если сообщение перекочевало в категорию ошибок - искать альтернативный код.

Оценка за ответ: 5.

3. [Отвечает: Dasha, 20.09.2005 15:21]: Лучше возьми готовый компонент, который все удобно делает. Например, CoolTrayIcon.

Оценка за ответ: 3.

Вопрос #155:
Мне нужен компонент MNSMTP из закладки FastNet. На моей версии Delphi 7 нет такой закладки. Где его взять? Спасибо.

1. [Отвечает: Dron, 18.09.2005 16:09]: Я могу ошибаться, но в Delphi 7 эти компоненты отсутствуют. Вместо них можно использовать Indy-компоненты. В данном случае - IdSMTP.

Оценка за ответ: 4.

2. [Отвечает: #One, 18.09.2005 20:45]: В Delphi7 не входят компоненты FastNet, т. к. все их возможности с лихвой перекрываются компонентами Indy.

Оценка за ответ: 4.

3. [Отвечает: Matveyev, 20.09.2005 02:53]: В Delphi 7 Borland отказалась от продуктов Net Masters L.L.C. (производители компонентов FastNet). Итак, у вас остается выбор либо использовать Delphi 5, Delphi 6 не знаю есть ли FastNet в Delphi 4 и более ранних, либо купить компоненты у производителя. А может без исходных текстов можно найти и для D7 - посмотрите на http://www.netmastersllc.com/.

Оценка за ответ: 4.

Вопрос #156:
У меня такой вопрос. Есть на форме 6 Editor'ов. В пять из них юзер вводит числа, а в шестом, при щелчке на кнопке выводится ответ. Т.е. программа берет эти числа и выдает в шестой Editor ответ по формуле ((Edit1 * Edit2 * Edit3) - Edit4) / Edit5. Как все это осуществить? Заранее спасибо!

1. [Отвечает: Dron, 18.09.2005 14:05]: Самый простой вариант:

procedure TForm1.Button1Click(Sender: TObject);
Var A,B,C,D,E,F: Real;
begin
A:=StrToFloat(Edit1.Text);
B:=StrToFloat(Edit2.Text);
C:=StrToFloat(Edit3.Text);
D:=StrToFloat(Edit4.Text);
E:=StrToFloat(Edit5.Text);
F:=((A*B*C)-D)/E;
Edit6.Text:=FloatToStr(F);
end;

Тип Real допускает, что числа могут быть/получится дробные. Так как
присутствует деление, то лучше Real, чем Integer. Если использовать Integer,
то вместо StrToFloat() и FloatToStr() нужно использовать StrToInt() и
IntToStr().

Оценка за ответ: 5.

2. [Отвечает: #One, 18.09.2005 20:50]:
procedure TForm1.Button1Click(Sender: TObject);
begin
Form1.Edit6.Text := FloatToStr(((StrToFloat(Edit1.Text) *
StrToFloat(Edit2.Text) * StrToFloat(Edit3.Text)) - StrToFloat(Edit4.Text)) /
StrToFloat(Edit5.Text))
end;
Проверку не забудь сделать в свойстве Edit1-5.Text на пустую строку, отсутствие символов и корректный DecimalSeparator.

Оценка за ответ: 5.

3. [Отвечает: Matveyev, 20.09.2005 02:53]: Edit6.Text := FloatToStr( ( StrToFloat(Edit1.Text) * StrToFloat(Edit2.Text) * StrToFloat(Edit3.Text)) - StrToFloat(Edit4.Text) ) / StrToFloat(Edit5.Text);

Оценка за ответ: 5.

4. [Отвечает: SPIDER, 18.09.2005 17:58]: Здравствуйте, Eugene. Edit6.Text:=FloatToStr(((StrToFloat(Edit1.Text)*StrToFloat(Edit2.Text)*StrToFloat(Edit3.Text))-StrToFloat(Edit4.Text))/StrToFloat(Edit5.Text));

Или более удобный (а также более длинный) способ:
var
a1, a2, a3, a4, a5: real;
begin
a1:= StrToFloat(Edit1.Text);
a2:= StrToFloat(Edit2.Text);
a3:= StrToFloat(Edit3.Text);
a4:= StrToFloat(Edit4.Text);
a5:= StrToFloat(Edit5.Text);
Edit6.Text:= FloatToStr(((a1*a2*a3)-a4)/a5);
end;

Если используешь "/", то переменные должны быть дробного типа, т.е. Real. StrToFloat - текст превращает в число дробного типа. По этому, если будут введены не цифры, а что-нибудь другое, выскочит Error. Это надо использовать для расчётов в программе (строки умножать нельзя!). FloatToStr - дробное число превращает в строку. Надеюсь, помог.

Оценка за ответ: 5.

5. [Отвечает: Igor, 18.09.2005 18:39]: Расскажу самый примитивный для меня способ. Заводим 2 массива из 6 элементов, первый типа String, например, S[i], второй, допустим, LongInt A[i]. Далее, при нажатии кнопки записываем значения в матрицу S[i], которые ввёл юзер в Эдит'ы и переводим эти строки в числа процудурой Val и одновременно записываем их в массив A[i]. Далее присваиваем какой-нибудь переменной значение формулы, которое нам необходимо получить и записываем его в шестой Эдит. Всё... Вот сама программа:
interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type
TForm1 = class(TForm)
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
Edit4: TEdit;
Edit5: TEdit;
Edit6: TEdit;
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
a: array[1..6] of longint;
s: array[1..6] of string;
i:longint;
f:real;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
Var
code :integer;
begin
s[1]:=edit1.Text;
s[2]:=edit2.Text;
s[3]:=edit3.Text;
s[4]:=edit4.Text;
s[5]:=edit5.Text;
val(s[1],a[1],code);
val(s[2],a[2],code);
val(s[3],a[3],code);
val(s[4],a[4],code);
val(s[5],a[5],code);
f:=((a[1]*a[2]*a[3])-a[4])/a[5];
str(f,s[6]);
edit6.Text:=s[6];
end;

end.

Можно округлить значение или отбросить дробную часть...

Оценка за ответ: 5.

6. [Отвечает: Вадим Фурив, 19.09.2005 10:41]: Если ответ требуется дробный:
Edit6.Text:=FloatToStr(((StrToFloat(Edit1.Text)*StrToFloat(Edit2.Text)*StrToFloat(Edit3.Text))-StrToFloat(Edit4.Text))/StrToFloat(Ed
it5.Text))

Если ответ требуется целый:
Edit6.Text:=IntToStr(Round(((StrToFloat(Edit1.Text)*StrToFloat(Edit2.Text)*StrToFloat(Edit3.Text))-StrToFloat(Edit4.Text))/StrToFloa
t(Edit5.Text)))

При этом желательно в событии OnKeyPress вставить:
if not (key in ['0'..'9', ',' #8]) then
key:=#0 ;

Это не позволит пользователю вводить ничего кроме цифр и запятой. Если цифры должны быть целыми, то и запятую убрать. Вычисление можно повесить на событие OnChange. Только тогда надо проверять, чтобы все поля компонентов Edit были не равны '' (не пустыми), иначе будет ошибка, а поле Edit5.Text не должно равняться нулю, так как тогда будет ошибка "деление на ноль".

Оценка за ответ: 5.

7. [Отвечает: SlavComp, 19.09.2005 11:16]: На процедуру OnClick твоей кнопки пишешь строку: Edit6.text:=floattostr(((strtofloat(Edit1.text) * strtofloat(Edit2.text) * strtofloat(Edit3.text)) - strtofloat(Edit4.text))/strtofloat(Edit5.text));

Или другой вариант (если тебе не нравится длина строки):
Edit6.text:=floattostr(strtofloat(Edit1.text)*strtofloat(Edit2.text));
Edit6.text:=floattostr(strtofloat(Edit6.text)-strtofloat(Edit4.text));
Edit6.text:=floattostr(strtofloat(Edit6.text)/strtofloat(Edit5.text));

Оценка за ответ: 5.

8. [Отвечает: Геннадий Самолдин, 19.09.2005 16:24]: Нужно в обработчик события OnClick кнопки написать Edit6.Text:=((Edit1.text * Edit2.text * Edit3.text) - Edit4.text) / Edit5.text;, но не забудь перед этим перевести текст из этих полей в числа функцией StrToInt или подобной.

Оценка за ответ: 5.

9. [Отвечает: Садовников Владимир, 19.09.2005 17:41]: Так используй property Text: сканируй число из него функцией StrToInt, если это целое и StrToFloat, если вещественное. Единственное, надо запихнуть в процедуру обработки try-блок, в котором ловится исключение неправильного ввода чисел (если, допустим, вместо 1234 ввели !"№;) и сообщать в нём о неправильном вводе.

Оценка за ответ: 5.

10. [Отвечает: Olga Samusevich, 20.09.2005 13:04]: А обязательно ли надо, чтобы ответ помещался в Edit? Можно вместо 6-го Edit'а поместить Label?, где и прописать это.
begin
a:= StrToInt(Edit1.Text); //StrToInt для примера
b:= StrToInt(Edit2.Text);
c:= StrToInt(Edit3.Text);
d:= StrToInt(Edit4.Text);
e:= StrToInt(Edit5.Text);
Label1.Caption:= 'Итого (или что там будет - не знаю ) ' ( IntToStr(a) * IntToStr(b) * IntToStr(c) - IntToStr(d) ) / IntToStr(e);
end;

Оценка за ответ: 4.

11. [Отвечает: Dasha, 20.09.2005 15:26]: Не знаю, какие там числа, но допустим, действительные. Тогда так:

procedure TForm1.Button1Click(Sender: TObject);
begin
Edit6.Text:=FloatToStr(((StrToFloat(Edit1.Text)*StrToFloat(Edit2.Text)*StrToFloat(Edit3.Text))-
StrToFloat(Edit4.Text))/StrToFloat(Edit5.Text));
end;

Оценка за ответ: 5.

12. [Отвечает: alexlazer, 20.09.2005 19:17]: Необходимо использовать команды Strtoint(x) <перевод из String в Integer> и Inttostr(x) <перевод из Integer в String>.
procedure Form1.ButtonOnClick(Sender: TObject);
var i: real; x1,x2,x3,x4,x5: integer;
begin
x1:=strtoint(Edit1.Text);
x2:=strtoint(Edit2.Text);
x3:=strtoint(Edit3.Text);
x4:=strtoint(Edit4.Text);
x5:=strtoint(Edit5.Text);
i:=((x1*x2*x3)-x4)/x5;
Edit6.Text:=inttostr(round(i));
end;

или же:
Edit6.Text:=inttostr(round(((strtoint(Edit1.text)*strtoint(Edit2.text)*strtoint(Edit3.text))-strtoint(Edit4.text))/strtoint(Edit5.text)));

Оценка за ответ: 5.

13. [Отвечает: mvp, 20.09.2005 20:50]: В обработчике события onClick кнопки пишешь:
begin
try
StrToFloat(edit1.text)
except
Showmessage('В первом поле не число');
exit
end;
try
StrToFloat(edit2.text)
except
Showmessage('Во втором поле не число');
exit
end;
try
StrToFloat(edit3.text)
except
Showmessage('В третьем поле не число');
exit;
end;
try
StrToFloat(edit4.text)
except
Showmessage('В четвёртом поле не число');
exit;
end;
try
if StrToFloat(edit5.text) = 0 then
begin
showmessage('Делить на ноль нельзя');
exit
except
Showmessage('В пятом поле не число');
exit
end;
edit6.text := ((StrTOFloat(Edit1.text) * StrToFloat(Edit2.text) *
StrToFloat(Edit3.text)) - StrTOFloat(Edit4.text)) / StrTOFloat(Edit5.text);
end;

Оценка за ответ: 5.

14. [Отвечает: Yurchik, 22.09.2005 23:56]:
procedure TForm1.Button1Click(Sender: TObject);
var
ar: array [1..6] of double;
i: integer;
begin
for i:= 1 to 5 do
try
ar[i]:= StrToFloat(TEdit(Form1.FindComponent('Edit'+IntToStr(i))).Text);
except
ShowMessage('Error reading float value from Edit'+IntToStr(i));
exit;
end;
ar[6]:= ((ar[1] * ar[2] * ar[3]) - ar[4]) / ar[5];
Edit6.Text:= FloatToStr(ar[6]);
end;

Оценка за ответ: 5.

Все вопросы и ответы на них Вы можете найти на нашем сайте в разделе "Эксперт": http://www.delphi.int.ru/modules/expert/.

Присылайте свои статьи по адресу info@delphi.int.ru с темой 'Articles' (без кавычек), и они будут опубликованы в ближайших выпусках рассылки и на сайте. Также вы можете заполнить вот эту форму. Большая просьба: статью оформляйте в -txt или -doc формате и используйте -zip или -rar сжатие (без самораспаковки).

Из данного раздела Вы можете скачать различные файлы: компоненты, plug-in'ы для Delphi, документацию по программированию, программы, игры, написанные на Delphi и всё остальное... Вы можете добавить свои файлы в данный раздел. Чтобы сделать это, пожалуйста, заполните форму на сайте. Новые файлы на сайте:

Чтобы перейти к разделу "Файловый архив" на сайте, нажмите на эту ссылку.

Юмор.

Умирает, значит, программист. Попадает, понятное дело, в
рай: мученик, как никак. Там ему архангел Гавриил и
говорит: "Спрашивай, - говорит, - чего хочешь, на любой вопрос
отвечу". Такая вот золотая рыбка с крыльями. Hу программист,
ясное дело, сразу просит показать небесный сервак. Приводит его
Гавриил в серверную, включает экран. Смотрит, смотрит
программист, а потом как заорет: "Да это же винда!"
-Hу да, - отвечает Гавриил, - А ты чего хотел, Hетварь, что-ли?
И пятый сиквел сервер базой данных?
-Ясное дело
-А софт на каком-нибудь бэйсике написан?
-Hе на каком-нибудь, а на вижуал!
-Так оно все, небось, глюкует страшно?
-А ты думал, вы от хорошей жизни по восемь часов в сутки дрыхнете? Это мы по ночам перегружаемся!

:))

Анекдот прислал: Костик Z. Берите пример, а то у меня уже ничего не осталось для публикации :(

Пожалуйста, присылайте свои анекдоты по этой ссылке: info@delphi.int.ru и они обязательно будут опубликованы! Желательно на компьютерную тему.

Вы можете оказать помощь нашему проекту через систему WebMoney:
R760630419845
Z947123691104
Будем очень благодарны!