[KUSTS]

В общем проблема в том что при запуске программы F9 программа вроде запускается на долю секунды и сразу же закрывается и переходит в редактор кода, ошибок в коде не находит

Код:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    chk16: TCheckBox;
    edt1: TEdit;
    chk1: TCheckBox;
    chk2: TCheckBox;
    chk3: TCheckBox;
    chk4: TCheckBox;
    chk5: TCheckBox;
    chk6: TCheckBox;
    chk7: TCheckBox;
    chk8: TCheckBox;
    chk9: TCheckBox;
    chk10: TCheckBox;
    chk11: TCheckBox;
    chk12: TCheckBox;
    chk13: TCheckBox;
    chk14: TCheckBox;
    chk15: TCheckBox;
    rg1: TRadioGroup;
    rg2: TRadioGroup;
    rg3: TRadioGroup;
    rg4: TRadioGroup;
    rg5: TRadioGroup;
    rg6: TRadioGroup;
    rg7: TRadioGroup;
    rg8: TRadioGroup;
    rg9: TRadioGroup;
    rg10: TRadioGroup;
    rg11: TRadioGroup;
    rg12: TRadioGroup;
    rg13: TRadioGroup;
    rg14: TRadioGroup;
    rg15: TRadioGroup;
    rg16: TRadioGroup;
    btn1: TButton;
    procedure btn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  g:integer;

implementation

{$R *.dfm}

procedure TForm1.btn1Click(Sender: TObject);
begin
g:=0;
if Rg1.ItemIndex=2 then Inc(g);//подсчет баллов
if Rg2.ItemIndex=3 then Inc(g);
if Rg3.ItemIndex=1 then Inc(g);
if Rg4.ItemIndex=2 then Inc(g);
if Rg5.ItemIndex=0 then Inc(g);
if Rg6.ItemIndex=2 then Inc(g);
if Rg7.ItemIndex=1 then Inc(g);
if Rg8.ItemIndex=1 then Inc(g);
if Rg9.ItemIndex=2 then Inc(g);
if Rg10.ItemIndex=2 then Inc(g);
if rg11.ItemIndex=0 then Inc(g);
if Rg12.ItemIndex=1 then Inc(g);
if Rg13.ItemIndex=2 then Inc(g);
if Rg14.ItemIndex=3 then Inc(g);
if Rg15.ItemIndex=2 then Inc(g);
if Rg16.ItemIndex=1 then Inc(g);

if g=0 then edt1.text:='Ваша оценка 2!'; //вывод текста в результат
if g=1 then edt1.text:='Ваша оценка 2!';
if g=2 then edt1.text:='Ваша оценка 2!';
if g=3 then edt1.text:='Ваша оценка 2!';
if g=4 then edt1.text:='Ваша оценка 2!';
if g=5 then edt1.text:='Ваша оценка 2!';
if g=6 then edt1.text:='Ваша оценка 2!';
if g=7 then edt1.text:='Ваша оценка 2!';
if g=8 then edt1.text:='Ваша оценка 2!';
if g=9 then edt1.text:='Ваша оценка 3!';
if g=10 then edt1.text:='Ваша оценка 3!';
if g=11 then edt1.text:='Ваша оценка 3!';
if g=12 then edt1.text:='Ваша оценка 4!';
if g=13 then edt1.text:='Ваша оценка 4!';
if g=14 then edt1.text:='Ваша оценка 4!';
if g=15 then edt1.text:='Ваша оценка 5!';
if g=16 then edt1.text:='Ваша оценка 5!';
end;


end.

Может я что то в объект инспекторе что то не так поставил?(вроде ничего особого кроме цвета не менял)

ps: Пишу программу - тест.
pss: Один из программистов мне выдал что то типа "у тебя в потоке написано, а нужно написать по другому" но я так и не догнал что он имел в виду.

[v1s2222]

По этому коду программа сама закрываться не должна, поэтому скорее всего в самом проекте (Project.dpr) не происходит нормальная загрузка программа. Нажми Project - ViewSources, и скопируй тот код сюда на форум.
ЗЫ или же попробуй создать новый проект, все перепиши и все должно нормально работать...
ЗЫЫ Замени все свои IF'ы на Case, будет намного лучше. Пример:

Код:

...
Case g of
0: edt1.text:='Ваша оценка 2!'; //вывод текста в результат
1: edt1.text:='Ваша оценка 2!';
2: edt1.text:='Ваша оценка 2!';
3: edt1.text:='Ваша оценка 2!';
...
end; 

[Страдалецъ]

Покажите исходный код самого проекта.

[KUSTS]

Сообщение от v1s2222

По этому коду программа сама закрываться не должна, поэтому скорее всего в самом проекте (Project.dpr) не происходит нормальная загрузка программа. Нажми Project - ViewSources, и скопируй тот код сюда на форум.
ЗЫ или же попробуй создать новый проект, все перепиши и все должно нормально работать...
ЗЫЫ Замени все свои IF'ы на Case, будет намного лучше. Пример:

Код:

program Project1;

uses
  Forms;

{$R *.res}

begin
  Application.Initialize;
  Application.Run;
end.

Вот этот?

Переписывал проект много раз, всёравно одно и то же. До написания кода(когда компоненты по форме расставлю) всё работает, как код напишу -начинается.

[ryderx34]

Код:

program Project1;

uses
  Forms,
  Unit1 in 'Unit1.pas'; // допиши эту строку

{$R *.res}

begin
  Application.Initialize;
  Application.CreateForm(TForm1, Form1); // и эту тоже
  Application.Run;
end.

[KUSTS]

Обе строчки ошибку выдают

Код:

[Error] Project1.dpr(12): Undeclared identifier: 'TForm1'
[Error] Project1.dpr(5): Declaration expected but identifier 'Unit1' found

[PaHaNjkee]

Как форма то хоть называется? Если Unit1 то......хз если по другому

Код:

 Application.CreateForm(TX, X); // и эту тоже

то вместо X вставь название своей формы

[NumLock]

Unit1.pas и Unit1.dfm и Project1.dpr положи в одну папку

[KUSTS]

Может весь проект проще показать? http://depositfiles.com/files/fn3jsnlr4 я даже незнаю что и делать, может не там ошибку ищем вовсе.

[ChinYan]

Вот исправленный вариант:
http://ifolder.ru/20119291

[KUSTS]

Подскажи пожалуйста где ошибка была? А то мне ещё 6 таких писать.

[ChinYan]

Как и говорилось вот тут:

Код:

program Project1;

uses
  Forms;

{$R *.res}

begin
  Application.Initialize;
  Application.Run;
end.

Здесь нет инструкций для создания формы. Мой вам совет: не нужно ничего удалять из файла .dpr. Cреда сама с ним работает, добавляет и удаляет строки из него

[KUSTS]

Сообщение от ChinYan

Вот исправленный вариант:
http://ifolder.ru/20119291

<hr>

Данный файл временно не доступен по тех.причине (no_storages) Код ошибки: 2010110519a5639f71d4db1dd105c907

Можно на другой файлообменник залить?

[ChinYan]

http://rapidshare.com/files/429018516/2.rar