Отправляет email-рассылки с помощью сервиса Sendsay

RFpro.ru: Программирование на Delphi и Lazarus

Подписаться Бесплатная «Золотая» новостная рассылка . Подписчиков 3.307 RSS
←   Июль 2020   →
 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31


За последние 60 дней ни разу не выходила


Сайт рассылки: http://rusfaq.ru/
Открыта: 14-03-2002

Автор
Калашников О.А.

Статистика

3.307 подписчиков
0 за неделю
←   Все выпуски   →

RFpro.ru: Программирование на Delphi и Lazarus


РАССЫЛКИ ПОРТАЛА RFPRO.RU

Лучшие эксперты в разделе

puporev
Статус: Профессор
Рейтинг: 92
∙ повысить рейтинг » 		Gluck
Статус: 1-й класс
Рейтинг: 1
∙ повысить рейтинг » 		Асмик Гаряка
Статус: Советник
Рейтинг: 0
∙ повысить рейтинг »

∙ Pascal / Delphi / Lazarus

Номер выпуска:1849
Дата выхода:15.07.2020, 20:45
Администратор рассылки:Зенченко Константин Николаевич (Старший модератор)
Подписчиков / экспертов:39 / 39
Вопросов / ответов:1 / 1

Консультация # 199012: Здравствуйте! Нужна помощь, я еще новичек, так что не судите строго, Конкретно по этому кусочку кода: var Form2: TForm2; bot : integer; implementation {$R *.dfm} uses Unit3, Unit4, Unit1, Unit5; procedure TForm2.ADOQuery1CalcFields(DataSet: TDataSet); begin if DataSet['Средний_бал'] < 4 ...

Консультация # 199012:

Здравствуйте! Нужна помощь, я еще новичек, так что не судите строго,
Конкретно по этому кусочку кода:
var
Form2: TForm2;
bot : integer;

implementation

{$R *.dfm}

uses Unit3, Unit4, Unit1, Unit5;

procedure TForm2.ADOQuery1CalcFields(DataSet: TDataSet);
begin
if DataSet['Средний_бал'] < 4 then DataSet['Стипендия'] := 'Стипендии не будет'
else DataSet['Стипендия'] := IntToStr(DataSet['Средний_бал']*10);
if DataSet['Средний_бал'] > 10 then DataSet['Стипендия'] := 'Некорректная оценка';
if DataSet['Средний_бал'] < 0 then DataSet['Стипендия'] := 'Некорректная оценка';
bot:=DataSet['Средний_бал'];
end;

procedure TForm2.Button1Click(Sender: TObject);
begin
if bot > 9 then
Memo1.Lines.Add(bot);


end;


Нужно чтоб оценки которые считываются с DataSet['Средний_бал& #39;] записывались в переменную bot (только числа которые больше 9!, тоесть 9-10) выводились в Memo1. Проблема в том что, переменную я записал как глобальную, присвоил "Средний_Бал" к ней, записал чтоб выводило в мемо, но выдает ошибку данного типа:
[dcc32 Error] Unit2.pas(71): E2010 Incompatible types: 'string' and 'Integer'

Помогите разобраться в чем проблема!

Дата отправки: 10.07.2020, 20:16
Вопрос задал: Satana666 (1-й класс)
Всего ответов: 1
Страница онлайн-консультации »

Консультирует Зенченко Константин Николаевич (Старший модератор):

Здравствуйте, Satana666!

Мемо - есть набор строк. bot - есть число.
Для преобразования типов есть: Функции преобразования типов.
У Мемо, есть метод .Clear - обнуляет и освобождает память занятый данным Мемо(но не уничтожает его). Используйте, его в нужных местах чтобы записи в Мемо не дублировались.

Удачи!

Консультировал: Зенченко Константин Николаевич (Старший модератор)
Дата отправки: 14.07.2020, 20:17
Рейтинг ответа:

НЕ одобряю 0 одобряю!

Оценить выпуск | Задать вопрос экспертам

главная страница  |  стать участником  |  получить консультацию
техническая поддержка

Дорогой читатель!
Команда портала RFPRO.RU благодарит Вас за то, что Вы пользуетесь нашими услугами. Вы только что прочли очередной выпуск рассылки. Мы старались. Пожалуйста, оцените его. Если совет помог Вам, если Вам понравился ответ, Вы можете поблагодарить автора - для этого в каждом ответе есть специальные ссылки. Вы можете оставить отзыв о работе портале. Нам очень важно знать Ваше мнение. Вы можете поближе познакомиться с жизнью портала, посетив наш форум, почитав журнал, который издают наши эксперты. Если у Вас есть желание помочь людям, поделиться своими знаниями, Вы можете зарегистрироваться экспертом. Заходите - у нас интересно!
МЫ РАБОТАЕМ ДЛЯ ВАС!
В избранное