Показать сообщение отдельно
  #5  
Старый 11.11.2008, 20:18
GReddy GReddy вне форума
Прохожий
 
Регистрация: 10.11.2008
Сообщения: 18
Репутация: 10
По умолчанию

Я удалил, но серавно программа незапускается! При нажатии на пуск программы только курсор опускается в окне Unit1.pas! А екст программы такой:

Код:
unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    ComboBox1: TComboBox;
    CheckListBox1: TCheckListBox;
    procedure ComboBox1Change(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.ComboBox1Change(Sender: TObject);
begin
  CheckListBox1.Items.Clear;
  if ComboBox1.ItemIndex=0 then
  begin
    CheckListBox1.Items.Add('11');
    CheckListBox1.Items.Add('12');
  end;
  if ComboBox1.ItemIndex=1 then
  begin
    CheckListBox1.Items.Add('21');
    CheckListBox1.Items.Add('22');
  end;
end;
Admin: Для тех кто в танке - пользуемся спец. тегами для оформления кода! При рецедиве бан.

а внизу такой текст в окне Unit1.pas в закладке Build:

[Error] Unit1.pas(43): Declaration expected but end of file found
[Error] Unit1.pas(14): Unsatisfied forward or external declaration: 'TForm1.CheckListBox1Click'
[Fatal Error] Project1.dpr(5): Could not compile used unit 'Unit1.pas'

Как это тоже исправать??

И еще вопрос читающим кто нибудь делал кусовые на Delphi??? Может кто подаст идею насчет темы или может кто нить курсовую саму подгонит!!!
Ответить с цитированием