Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 29.11.2007, 17:43   #11
Аналитик
Пользователь
 
Регистрация: 29.11.2007
Сообщений: 11
По умолчанию

при компиляции вообще выбило из Делфи
Аналитик вне форума Ответить с цитированием
Старый 29.11.2007, 18:26   #12
Аналитик
Пользователь
 
Регистрация: 29.11.2007
Сообщений: 11
По умолчанию

Короче компилирует нормально, когда вводишь данные и нажимаешь расчет (по формуле описаной выше), выскакивает окно ошибки.Че его делать дальше?
Я взял такую формулу просто, чтоб проверить функциональность работы таблицы, а ведь там буду посложнее формулы внесены.И браться из полученных результатов и считать дальше, правда там всего основных формул четыре, но все равно.Какая бы простая прога не была, а знаний и опыта мне совершенно не хватает.Подскажите чето.
Вот код написаной проги для пробы:
unit Unit1;

interface

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

type
TForm1 = class(TForm)
StringGrid1: TStringGrid;
Temp: TEdit;
S100: TEdit;
b0: TEdit;
S1000: TEdit;
b1: TEdit;
S10000: TEdit;
b2: TEdit;
S100000: TEdit;
b3: TEdit;
S200000: TEdit;
b4: TEdit;
S300000: TEdit;
Button1: TButton;
Button2: TButton;
Label1: TLabel;
procedure StringGrid1KeyPress(Sender: TObject; var Key: Char);
procedure Button2Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.StringGrid1KeyPress(Sender: TObject; var Key: Char);
begin
if key=#13
then
begin
key:=#0;
StringGrid1.RowCount:=StringGrid1.R owCount+1;
end;
end;


procedure TForm1.Button2Click(Sender: TObject);
begin
Form1.Close;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
temp : real;
b0 : real;
S100 : real;
begin
temp:=StrToFloat(StringGrid1.Cells[1,1]);
b0:=StrToFloat(StringGrid1.Cells[3,1]);
S100:= temp + b0;
StringGrid1.Cells[2,1]:=FloatToStr(S100);
end;
end.
Аналитик вне форума Ответить с цитированием
Старый 29.11.2007, 18:29   #13
mihali4
*
Старожил
 
Регистрация: 22.11.2006
Сообщений: 9,201
По умолчанию

Цитата:
Сообщение от Аналитик Посмотреть сообщение
при компиляции вообще выбило из Делфи
Это не имеет отношения к коду, предложенному коммунистом - там все правильно.
Вопрос в другом - вы что, пытаетесь вычислять с пустыми ячейками? Как вы данные туда вносите? Какой символ используете в качестве десятичной точки (точку или запятую)? А какой символ установлен по умолчанию в винде?
Так кого же зовут "b0"? "S100"? Переменную или TEdit?
Что вы винегрет из имен устроили?

Последний раз редактировалось mihali4; 29.11.2007 в 18:33.
mihali4 вне форума Ответить с цитированием
Старый 29.11.2007, 18:43   #14
Аналитик
Пользователь
 
Регистрация: 29.11.2007
Сообщений: 11
По умолчанию

Цитата:
Сообщение от mihali4 Посмотреть сообщение
Это не имеет отношения к коду, предложенному коммунистом - там все правильно.
Вопрос в другом - вы что, пытаетесь вычислять с пустыми ячейками? Как вы данные туда вносите? Какой символ используете в качестве десятичной точки (точку или запятую)? А какой символ установлен по умолчанию в винде?
Так кого же зовут "b0"? "S100"? Переменную или TEdit?
Что вы винегрет из имен устроили?
Как знал, так и делал
Я никаких претензий к комунисту не имею , наоборот ему большое спасибо, как и вам.
Все что задали выше в виде вопросов ничего не прописано , знал бы как обязательно написал бы.
Я бы описал всю задачу поставленную мне для выполнения, но побоялся, что вы подумаете, что я напрягаю вас почем зря.
Самому как то тоже неприятно заниматься тем, чем не умею, а пришлось по жизни, надо сделать три программы небольшие.Одна легкая, и две чуток сложнее, вот и начал с легкой.
Видно не получается.
Аналитик вне форума Ответить с цитированием
Старый 29.11.2007, 18:47   #15
Аналитик
Пользователь
 
Регистрация: 29.11.2007
Сообщений: 11
По умолчанию

Основная завязка на табличной форме, поэтому с этого и начал
Ввод данных в таблице, вывод тоже, вот и взял за основу таблицу для изучения.
Аналитик вне форума Ответить с цитированием
Старый 29.11.2007, 18:56   #16
Аналитик
Пользователь
 
Регистрация: 29.11.2007
Сообщений: 11
По умолчанию

Из эдитов я сделал шапку просто, а под ними вводятся 6 переменных по-моему, все другие столбцы считаются из этих переменных.Мой замысел, может он неправильный правда, это ты вводишь все известные переменные в строки под соответствующими столбцами, строк может быть и 5 и 20, поэтому сделан перенос через энтэр, а оставшиеся незаполненые столцы и строки заполняются после нажатия кнопки Расчет.
Если неправильно, то поправьте пожалуйста, может это вообще неосуществлимо.
Аналитик вне форума Ответить с цитированием
Старый 29.11.2007, 20:11   #17
mihali4
*
Старожил
 
Регистрация: 22.11.2006
Сообщений: 9,201
По умолчанию

Для начала - давайте всем составляющим правильные и соответствующие смыслу имена. Переменные можете называть как хотите, а вот компоненты, для вашего же удобства, лучше называть с упоминанием класса компонента, например, Edit_bo, Edit_S100 и т.п.
Далее. Используйте TRY..EXCEPT. Мало ли что вы там введете в стринггрид?
mihali4 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Как обратиться к ячейке файла Excel не открывая его Alexandro Microsoft Office Excel 3 28.05.2008 12:02
Как изменить динамически менять размер плавающего фрейма, к-й находится в ячейке таблицы? 3lander HTML и CSS 8 26.05.2008 19:54
Как из проги обратиться к Excel ? Drozd Общие вопросы Delphi 3 26.03.2008 18:24
TStringGrid. Как удержать фокус на ячейке таблицы? ruma Помощь студентам 1 22.10.2007 12:49
как обратиться к невидемой форме Scorpeon Общие вопросы Delphi 3 29.06.2007 16:16