Модераторы: Snowy, MetalFan, bems, Poseidon
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> не является целым значением 
:(
    Опции темы
NZero
Дата 8.5.2010, 20:04 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 358
Регистрация: 28.4.2010
Где: Москва

Репутация: нет
Всего: нет
Все привет!!! Вот код программы

Код

unit test;

interface

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

type
  TForm1 = class(TForm)
    ComboBox1: TComboBox;
    Edit2: TEdit;
    Edit3: TEdit;
    Button1: TButton;
    Label1: TLabel;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  egtr, ndoc, nd1, nd2, nd3, nd4, nd5, nd6, nd7, nd8, nd9, len: Integer;
  npas, l, s1, s2, s3, s4, s5, s6, s7, s8, s9, filename: string;
  myfile: TextFile;
  procedure passport(egtr,ndoc: Integer);
implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
filename:='Count.ini';
if FileExists(filename) then
begin
AssignFile(myfile, 'Count.ini');
Reset(myfile);
ReadLN(myfile, s1);
nd1:=StrToInt(s1);
ReadLN(myfile, s2);
nd2:=StrToInt(s2);
ReadLN(myfile, s3);
nd3:=StrToInt(s3);
ReadLN(myfile, s4);
nd4:=StrToInt(s4);
ReadLN(myfile, s5);
nd5:=StrToInt(s5);
ReadLN(myfile, s6);
nd6:=StrToInt(s6);
ReadLN(myfile, s7);
nd7:=StrToInt(s7);
ReadLN(myfile, s8);
nd8:=StrToInt(s8);
ReadLN(myfile, s9);
nd9:=StrToInt(s9);
CloseFile(myfile);
end;
AssignFile(myfile, 'Count.ini');
Rewrite(myfile);
if ComboBox1.ItemIndex=0 then
begin
egtr:=1;
nd1:=nd1+1;
WriteLN(myfile, IntToStr(nd1));
passport(egtr, nd1);
end;
if ComboBox1.ItemIndex=1 then
begin
egtr:=2;
nd2:=nd2+1;
passport(egtr, nd2);
WriteLN(myfile, IntToStr(nd2));
end;
if ComboBox1.ItemIndex=2 then
begin
egtr:=3;
nd3:=nd3+1;
passport(egtr, nd3);
writeLN(myfile, IntToStr(nd3));
end;
if ComboBox1.ItemIndex=3 then
begin
egtr:=4;
nd4:=nd4+1;
passport(egtr, nd4);
writeLN(myfile, IntToStr(nd4));
end;
if ComboBox1.ItemIndex=4 then
begin
egtr:=5;
nd5:=nd5+1;
passport(egtr, nd5);
writeLN(myfile, IntToStr(nd5));
end;
if ComboBox1.ItemIndex=5 then
begin
egtr:=6;
nd6:=nd6+1;
passport(egtr, nd6);
writeLN(myfile, IntToStr(nd6));
end;
if ComboBox1.ItemIndex=6 then
begin
egtr:=7;
nd7:=nd7+1;
passport(egtr, nd7);
writeLN(myfile, IntToStr(nd7));
end;
if ComboBox1.ItemIndex=7 then
begin
egtr:=8;
nd8:=nd8+1;
passport(egtr, nd8);
writeLN(myfile, IntToStr(nd8));
end;
if ComboBox1.ItemIndex=8 then
begin
egtr:=9;
nd9:=nd9+1;
passport(egtr, nd9);
writeLN(myfile, IntToStr(nd9));
end;
CloseFile(myfile);
Edit3.Text:=npas;
Label1.Caption:=l;
end;
procedure passport(egtr, ndoc: Integer);
begin
len:=Length(npas);
npas:='0'+IntToStr(egtr)+'-'+'000'+IntToStr(ndoc);
l:=IntToStr(len);
end;
end.


Запускается, но при выборе ComboBox выдает сообщение ( см. рисунок)

Это сообщение отредактировал(а) NZero - 8.5.2010, 20:42

Присоединённый файл ( Кол-во скачиваний: 16 )
Присоединённый файл  oshibka.jpeg 137,18 Kb
PM MAIL WWW ICQ   Вверх
Данкинг
Дата 8.5.2010, 21:08 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Yersinia pestis
****


Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 11
Всего: 130
А в ComboBox'е что выбрано?


--------------------
There's nothing left but silent epitaphs.
PM MAIL WWW   Вверх
kami
Дата 8.5.2010, 21:27 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1806
Регистрация: 25.8.2007
Где: Санкт-Петербург

Репутация: 22
Всего: 72
Цитата(Данкинг @  8.5.2010,  21:08 Найти цитируемый пост)
А в ComboBox'е что выбрано?

Имхо, здесь проблема не в комбобоксе, а в том что ничего не прочиталось из файла.
Цитата(NZero @  8.5.2010,  20:04 Найти цитируемый пост)
nd1:=StrToInt(s1);

NZero пройдись по F8 от начала этой процедуры, выясни, на какой строчке возникает исключение. от нее и пляши - какие значения имеют переменные в этой строке и что с ними делается...

Это сообщение отредактировал(а) kami - 8.5.2010, 21:29
PM MAIL WWW   Вверх
Данкинг
Дата 8.5.2010, 21:43 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Yersinia pestis
****


Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 11
Всего: 130
Ну, в общем, да: особое внимание - на строки с IntToStr. smile 


--------------------
There's nothing left but silent epitaphs.
PM MAIL WWW   Вверх
NZero
Дата 9.5.2010, 22:16 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 358
Регистрация: 28.4.2010
Где: Москва

Репутация: нет
Всего: нет
Как раз после строчки nd1:=StrToInt(s1); выходит сообщение. Возможно что s1 читает весь файл и потом файл уже пустой?
PM MAIL WWW ICQ   Вверх
Данкинг
Дата 9.5.2010, 23:04 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Yersinia pestis
****


Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 11
Всего: 130
Цитата(NZero @  9.5.2010,  23:16 Найти цитируемый пост)
Возможно что s1 читает весь файл и потом файл уже пустой? 

Вот и проверь, что там у тебя в s1.


--------------------
There's nothing left but silent epitaphs.
PM MAIL WWW   Вверх
NZero
Дата 10.5.2010, 00:54 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 358
Регистрация: 28.4.2010
Где: Москва

Репутация: нет
Всего: нет
Все получилось!!! Спасибо большое. Как говорится одна голова хорошо, а 2 лучше)))
PM MAIL WWW ICQ   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Для новичков"
SnowyMetalFan
bemsPoseidon
Rrader

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Для новичков | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0536 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.