Новости
Видео
Microsoft
Windows 10
Железо
Программы
Форум

Имя пользователя:
Пароль:  
Помощь | Регистрация | Забыли пароль?  | Правила  

Компьютерный форум OSzone.net » Программирование, базы данных и автоматизация действий » Программирование и базы данных » Delphi - [решено] Заполнение экземпляров класса

Ответить
Настройки темы
Delphi - [решено] Заполнение экземпляров класса

Аватара для Snake750

Старожил


Сообщения: 175
Благодарности: 0

Профиль | Отправить PM | Цитировать

Вложения
Тип файла: rar Лаба 9-10 трпп.rar
(201.8 Kb, 3 просмотров)
Доброго времени суток. Помогите пожалуйста разобраться. Имеется вот что:
Описываем класс Студ в котором содержатся имена студентов и оценки по дисциплинам :Программирование, Математика, Черчение, Русский и Суммарный бал по дисциплинам.
Код: Выделить весь код
type  
TStud = Record 
   Name:string[20]; 
   Progr:real;  
   Mathem:real; 
   Cherchen:real;  
   Russian:real; 
   SummPoDisc:real;  
end;
Создаю экземпляры класса
Код: Выделить весь код
var  a:array[1..5] of TStud;
Написал процедуру которая заполняет данные экземпляров класса TStud из StringGrid1.
Код: Выделить весь код
Procedure ReadInfoFromUser(x:TStud;                   i,j:integer);
begin
        x.Name:=(form1.stringgrid1.Cells              [i,j]);
        x.Progr:=strtofloat(form1.stringgrid1.Cells   [i+1,i+1]);
        x.Mathem:=strtofloat(form1.stringgrid1.Cells  [i+2,j]);
        x.Cherchen:=strtofloat(form1.stringgrid1.Cells[i+3,j]);
        x.Russian:=strtofloat(form1.stringgrid1.Cells [i+4,j]);
        x.SummPoDisc:=0;
        x.SummPoDisc:= ( x.Progr+ x.Mathem + x.Cherchen+ x.Russian);
        form1.Stringgrid1.Cells                       [5,j]:=floattostr( x.SummPoDisc);
end;
Вызываю процедуру:
Код: Выделить весь код
For i:=1 to 5 do    
begin
  ReadInfoFromUser(a[i],0,i);
end;
И вот тут почему то не заполняются значения экземпляров класса, но значение SummPoDisc считается и заполняется в StringGrid.
Прилагается исходник для удобства видения.

Отправлено: 20:04, 24-03-2010

 

Аватара для Snake750

Старожил


Сообщения: 175
Благодарности: 0

Профиль | Отправить PM | Цитировать

Господа, помогите разобраться,2 день уже понять не могу в чем проблема

Отправлено: 13:51, 25-03-2010 | #2



Для отключения данного рекламного блока вам необходимо зарегистрироваться или войти с учетной записью социальной сети.

Если же вы забыли свой пароль на форуме, то воспользуйтесь данной ссылкой для восстановления пароля.


Аватара для Snake750

Старожил


Сообщения: 175
Благодарности: 0

Профиль | Отправить PM | Цитировать

Товарищи с другого ресурса подсказали
Код: Выделить весь код
Procedure ReadInfoFromUser(var x:TStud; i,j:integer);

Отправлено: 18:32, 25-03-2010 | #3



Компьютерный форум OSzone.net » Программирование, базы данных и автоматизация действий » Программирование и базы данных » Delphi - [решено] Заполнение экземпляров класса

Участник сейчас на форуме Участник сейчас на форуме Участник вне форума Участник вне форума Автор темы Автор темы Шапка темы Сообщение прикреплено

Похожие темы
Название темы Автор Информация о форуме Ответов Последнее сообщение
C/C++ - заполнение массива Lisiy_egik Программирование и базы данных 18 20-11-2009 14:58
[решено] Заполнение FORM в IE HORRIBLE AutoIt 5 10-09-2009 23:46
Установка - [решено] Несколько экземпляров Vista 64 на одном компьютере Pokokurante Лицензирование продуктов Microsoft 2 09-06-2009 12:40
Расшифровка некоторых кодов экземпляров устройств VEN_ХХХХ&DEV_ХХХХ Angry Demon Поиск драйверов, прошивок и руководств 0 03-04-2009 07:48
Заполнение базы из браузера Qwe1 Вебмастеру 6 19-02-2008 18:49


« Предыдущая тема | Следующая тема »


 
Переход