![]() |
|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
![]() |
|
|
Опции темы | Поиск в этой теме |
![]() |
#11 |
Пользователь
Регистрация: 29.11.2007
Сообщений: 11
|
![]()
при компиляции вообще выбило из Делфи
|
![]() |
![]() |
![]() |
#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. |
![]() |
![]() |
![]() |
#13 |
*
Старожил
Регистрация: 22.11.2006
Сообщений: 9,201
|
![]()
Это не имеет отношения к коду, предложенному коммунистом - там все правильно.
Вопрос в другом - вы что, пытаетесь вычислять с пустыми ячейками? Как вы данные туда вносите? Какой символ используете в качестве десятичной точки (точку или запятую)? А какой символ установлен по умолчанию в винде? Так кого же зовут "b0"? "S100"? Переменную или TEdit? Что вы винегрет из имен устроили? Последний раз редактировалось mihali4; 29.11.2007 в 18:33. |
![]() |
![]() |
![]() |
#14 | |
Пользователь
Регистрация: 29.11.2007
Сообщений: 11
|
![]() Цитата:
![]() Я никаких претензий к комунисту не имею ![]() Все что задали выше в виде вопросов ничего не прописано ![]() Я бы описал всю задачу поставленную мне для выполнения, но побоялся, что вы подумаете, что я напрягаю вас почем зря. Самому как то тоже неприятно заниматься тем, чем не умею, а пришлось по жизни, надо сделать три программы небольшие.Одна легкая, и две чуток сложнее, вот и начал с легкой. Видно не получается. |
|
![]() |
![]() |
![]() |
#15 |
Пользователь
Регистрация: 29.11.2007
Сообщений: 11
|
![]()
Основная завязка на табличной форме, поэтому с этого и начал
![]() Ввод данных в таблице, вывод тоже, вот и взял за основу таблицу для изучения. |
![]() |
![]() |
![]() |
#16 |
Пользователь
Регистрация: 29.11.2007
Сообщений: 11
|
![]()
Из эдитов я сделал шапку просто, а под ними вводятся 6 переменных по-моему, все другие столбцы считаются из этих переменных.Мой замысел, может он неправильный правда, это ты вводишь все известные переменные в строки под соответствующими столбцами, строк может быть и 5 и 20, поэтому сделан перенос через энтэр, а оставшиеся незаполненые столцы и строки заполняются после нажатия кнопки Расчет.
Если неправильно, то поправьте пожалуйста, может это вообще неосуществлимо. |
![]() |
![]() |
![]() |
#17 |
*
Старожил
Регистрация: 22.11.2006
Сообщений: 9,201
|
![]()
Для начала - давайте всем составляющим правильные и соответствующие смыслу имена. Переменные можете называть как хотите, а вот компоненты, для вашего же удобства, лучше называть с упоминанием класса компонента, например, Edit_bo, Edit_S100 и т.п.
Далее. Используйте TRY..EXCEPT. Мало ли что вы там введете в стринггрид? |
![]() |
![]() |
![]() |
|
![]() |
||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Как обратиться к ячейке файла 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 |