Форум программистов
 
Расширенный поиск
Контакты: о проблемах с регистрацией, почтой и по другим вопросам пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail.

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

Восстановить пароль
Повторная активизация e-mail

Ответ
 
Опции темы
Старый 19.05.2017, 00:24   #1
eraaaa
Новичок
 
Регистрация: 19.05.2017
Сообщений: 1
Репутация: 10
Вопрос скачал готовый проект, а там возникают ошибки

Код:

program Project1;

uses

Forms,

Unit1 in 'Unit1.pas' {Form1},

Unit2 in 'Unit2.pas' {Form2},

{$R *.res}

begin

Application.Initialize;

Application.CreateForm(TForm1, Form1);

Application.CreateForm(TForm2, Form2);

end.

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, DBCtrls, ExtCtrls;

Type

TOurOpenDialog = class ( TOpenDialog )

Private

{ Private declarations }

Protected

{ Protected declarations }

public

{ Public declarations }

constructor Create(AOwner: TComponent); override;

published

{ Published declarations }

end;

procedure register;

implementation

procedure register;

begin

RegisterComponents('Samples', [TOurOpenDialog]);

end;

{ TOurOpenDialog }

constructor TOurOpenDialog.Create(AOwner: TComponent);

begin

inherited Create(AOwner);

Options := Options + [ofFileMustExist, ofPathMustExist];

end;

end.

Type

TOurComponent = class ( TComponent )

Private

{ Private declarations }

FArrayProp : array [0..9] of integer ;

Function GetArrayProp ( aIndex : integer ): integer ;

Procedure SetArrayProp ( aIndex : integer ; const

Value : integer );

Protected

{ Protected declarations }

Public

{ Public declarations }

Property ArrayProp [ aIndex : integer ]: integer read

GetArrayProp

Write SetArrayProp ;

Published

{ Published declarations }

End ;

Type

TOurComponent = class ( TComponent )

Private

{ Private declarations }

FMyInteger : Integer ;

Protected

{ Protected declarations }

Public

{ Public declarations }

Constructor Create ( AOwner : TComponent ); override ;

Published

{ Published declarations }

Property MyInteger : Integer read FMyInteger

Write FMyInteger default 10;

End ;

Procedure Register ;

Begin

Interface

Uses

SysUtils , Classes , Controls , StdCtrls ;

Type

TmgCoolLabel = class ( TLabel )

Private

{ Private declarations }

Protected

{ Protected declarations }

Public

{ Public declarations }

Published

{ Published declarations }

End ;

Procedure Register ;

Implementation

End ;

End .

Implementation

Create constructor TOurComponent . ( AOwner : TComponent );

Begin

Inherited Create ( AOwner );

FInteger :=10;

End ;

End .

Interface

Uses

SysUtils , Classes , Controls , StdCtrls ;

type

TmgCoolLabel = class(TLabel)

private

{ Private declarations }

protected

{ Protected declarations }

public

{ Public declarations }

constructor Create(AOwner:TComponent);override;

published

{ Published declarations }

property Height default 30;

property Width default 85;

end;

procedure Register;

implementation

uses Graphics;

procedure Register;

begin

RegisterComponents('Our components', [TmgCoolLabel]);

end;

{ TmgCoolLabel }

constructor TmgCoolLabel.Create(AOwner: TComponent);

begin

inherited Create(AOwner);

AutoSize:=false;

Height:=30;

Width:=120;

Font.Color:=clBlue;

Font.Style:=[fsBold];

Font.Height:=16;

Font.Size:=12;

end;

end.

RegisterComponents (' Our components ',[ TmgCoolLabel ]);

Var

Stream : TStream ;

Begin

Stream := Create TFileStream . ( FileName , fmCreate );

Try

WriteComponentRes Stream . ( ClassName Instance . , Instance );

Finally

Free Stream . ;

End ;

End ;

Private

FStream : TStream ;

FBuffer : Pointer ;

FBufSize : Integer ;

FBufPos : Integer ;

FBufEnd : Integer ;

FRoot : TComponent ;

FLookupRoot : TComponent ;

FAncestor : TPersistent ;

FIgnoreChildren : Boolean ;

Protected

Procedure SetRoot ( Value : TComponent ); virtual ;

Public

Constructor Create ( Stream : TStream ; BufSize : Integer );

Destructor Destroy ; override ;

Procedure DefineProperty ( const Name : string ;

ReadData : TReaderProc ; WriteData : TWriterProc ;

HasData : Boolean ); virtual ; abstract ;

Procedure DefineBinaryProperty ( const Name : string ;

ReadData , WriteData : TStreamProc ;

HasData : Boolean ); virtual ; abstract ;

Procedure FlushBuffer ; virtual ; abstract ;

Property Root : TComponent read FRoot write SetRoot ;

Property

LookupRoot : TComponent read FLookupRoot ;

Property Ancestor : TPersistent read FAncestor write FAncestor ;

Property IgnoreChildren : Boolean read FIgnoreChildren write FIgnoreChildren ;

End ;

Type

TForm 1= class ( TForm )

Button 1: TButton ;

OpenDialog 1: TOpenDialog ;

Button 2: TButton ;

Procedure Button 1 Click ( Sender : TObject );

Procedure Button 2 Click ( Sender : TObject );

Private

{ Private declarations }

Procedure ReadFormProperties ( DfmName : String ; Form : TComponent );

Procedure WriteFormProperties ( DfmName : String ; Form : TComponent );

Public

{ Public declarations }

End ;

Var

Form 1: TForm 1;

Implementation

{$ R dfm }

Procedure TForm 1. Button 1 Click ( Sender : TObject );

Var

RunTimeForm : TForm ;

Begin

RunTimeForm := TForm 1. CreateNew ( Self );

With RunTimeForm do try

If OpenDialog 1. Execute then

Begin

ReadFormProperties ( OpenDialog 1. FileName , RunTimeForm );

ShowModal ;

End ;

Finally

Free RunTimeForm . ;

End ;

End ;

Procedure TForm 1. ReadFormProperties ( DfmName : String ; Form : TComponent );

Var

FileStream : TFileStream ;

BinStream : TMemoryStream ;

Begin

FileStream := Create TFileStream . ( DfmName , fmOpenRead );

Try

BinStream := Create TMemoryStream . ;

Try

ObjectTextToBinary ( FileStream , BinStream );

Seek BinStream . (0, soFromBeginning );

ReadComponent BinStream . ( Form );

Finally

Free BinStream . ;

End ;

Finally

Free FileStream . ;

End ;

End ;

Procedure TForm 1. WriteFormProperties ( DfmName : String ; Form : TComponent );

Var

BinStream : TMemoryStream ;

FileStream : TFileStream ;

Begin

BinStream := Create TMemoryStream . ;

Try

FileStream := Create TFileStream . ( DfmName , fmOpenWrite or fmCreate );

Try

WriteComponent BinStream . ( Form );

Seek BinStream . (0, soFromBeginning );

ObjectBinaryToText ( BinStream , FileStream );

Finally

Free FileStream . ;

End ;

Finally

Free BinStream .

End ;

End ;

Procedure TForm 1. Button 2 Click ( Sender : TObject );

Begin

If OpenDialog 1. Execute then

Begin

WriteFormProperties ( OpenDialog 1. FileName , Self );

ShowModal ;

End ;

End ;

Left =192

Top =114

Width =870

Height =640

Caption =' Form 1'

Color = clBtnFace

А

Color Font . = clWindowText

Height Font . =-11

Name Font . =' MS Sans Serif '

Style Font . =[]

OldCreateOrder = False

PixelsPerInch =96

TextHeight =13

Object TextLogger 1: TTextLogger

Text ='678'

Left =368

Top =160

TextHistory =(

End

End.


ошибки
[Pascal Error] Project3.dpr(13): E2029 Identifier expected but 'BEGIN' found
[Pascal Error] Project3.dpr(15): E2003 Undeclared identifier: 'Application'
[Pascal Error] Project3.dpr(15): E2066 Missing operator or semicolon
[Pascal Hint] Project3.dpr(15): H2243 Expression needs no Initialize/Finalize
[Pascal Error] Project3.dpr(17): E2066 Missing operator or semicolon
[Pascal Error] Project3.dpr(17): E2003 Undeclared identifier: 'TForm1'
[Pascal Error] Project3.dpr(19): E2066 Missing operator or semicolon
[Pascal Error] Project3.dpr(19): E2003 Undeclared identifier: 'TForm2'
[Pascal Warning] Project3.dpr(23): W1011 Text after final 'END.' - ignored by compiler
[Pascal Error] Project3.dpr(389): E1030 Invalid compiler directive: '$ '

Последний раз редактировалось Вадим Мошев; 19.05.2017 в 06:25.
eraaaa вне форума   Ответить с цитированием
Старый 19.05.2017, 08:06   #2
p51x
Профессионал
 
Регистрация: 15.02.2010
Сообщений: 9,164
Репутация: 1407

icq: 216409213
По умолчанию

С эндами проблема, создайте новый проект и посмотрите как там они расставляются при оформлении классов, например. И end. в середине модуля явно не к месту.
__________________
Запомните раз и навсегда: помочь != "решите за меня"!
p51x вне форума   Ответить с цитированием
Старый 19.05.2017, 08:47   #3
Аватар
Модератор
Заслуженный модератор
 
Аватар для Аватар
 
Регистрация: 17.11.2010
Адрес: Северодонецк, Украина
Сообщений: 16,027
Репутация: 5755
По умолчанию

Исходники нескольких юнитов в одну кучу собраны
__________________
Если бы архитекторы строили здания так, как программисты пишут программы, то первый залетевший дятел разрушил бы цивилизацию
Аватар вне форума   Ответить с цитированием
Старый 20.05.2017, 00:33   #4
Sciv
Профессионал
 
Аватар для Sciv
 
Регистрация: 16.05.2012
Адрес: Курган
Сообщений: 2,582
Репутация: 868
По умолчанию

Откровенно говоря, даже если победите все ошибки - я не уверен, что оно запустится:

Код:

begin

Application.Initialize;

Application.CreateForm(TForm1, Form1);

Application.CreateForm(TForm2, Form2);

end.

Ничего не напрягает в этом куске?
__________________
Переменная "i": 20 лет на рынке счетчиков!

Дельфийский оракул - первый программист под Oracle на Delphi
Sciv вне форума   Ответить с цитированием
Ответ



Опции темы

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

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.

Быстрый переход

Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Куплю готовый дипломный проект vitalij-cher Фриланс 13 12.11.2013 02:43
Программист на delphi в готовый проект addfriend Фриланс 2 03.04.2013 12:18
добавление анимации в готовый проект C# d3[Z.oRg] Фриланс 2 29.05.2012 20:28
MDI-приложение уже в готовый проект Tiger_351 Помощь студентам 0 14.06.2011 11:47
Ubuntu и C#, скомпилироть готовый проект Bruster Помощь студентам 9 13.06.2011 19:20




07:04.


Powered by vBulletin® Version 3.8.8 Beta 2
Copyright ©2000 - 2017, Jelsoft Enterprises Ltd.

купить трафик


как улучшить посещаемость, а также решения по монетизации сайтов, видео и приложений

RusProfile.ru


Справочник российских юридических лиц и организаций.
Проекты отопления, пеллетные котлы, бойлеры, радиаторы
интернет магазин respective.ru