Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

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

Восстановить пароль

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 15.05.2012, 16:35   #1
ele29
 
Регистрация: 19.01.2012
Сообщений: 7
По умолчанию показывает ошибка

посмотрите пожалуйста, запускаю приложение, выскакивает ошибка
[Error] about.pas(37): Undeclared identifier: 'TVersionInfo'

код:

Код:
unit about;

interface

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

type
  TFormAbout = class(TForm)
    LabFirm: TLabel;
    LabCopyright: TLabel;
    LabVersion: TLabel;
    Label4: TLabel;
    Button1: TButton;
    Image1: TImage;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FormAbout: TFormAbout;
implementation

{$R *.dfm}

procedure TFormAbout.Button1Click(Sender: TObject);
begin
close;
end;

procedure TFormAbout.FormCreate(Sender: TObject);
var VerInfo: TVersionInfo;
begin
  VerInfo := TVersionInfo.Create('project1.exe');
  LabFirm.Caption := 'Îðãàíèçàöèÿ: ' + VerInfo.GetVerValue('CompanyName');
  LabCopyright.Caption := 'Copuright: '   + VerInfo.GetVerValue('LegalCopyright');
  LabVersion.Caption := 'Âåðñèÿ: '      + VerInfo.GetVerValue('FileVersion');
end;

end.

Последний раз редактировалось ACE Valery; 15.05.2012 в 20:27.
ele29 вне форума Ответить с цитированием
Старый 15.05.2012, 16:47   #2
p51x
Старожил
 
Регистрация: 15.02.2010
Сообщений: 15,833
По умолчанию

Где в юзес модуль для TVersionInfo?
p51x вне форума Ответить с цитированием
Старый 16.05.2012, 01:03   #3
ele29
 
Регистрация: 19.01.2012
Сообщений: 7
По умолчанию

я добавила в раздел юзес, но все равно ошибка, подскажите пожалуйста, только начинаю изучать делфи
ele29 вне форума Ответить с цитированием
Старый 16.05.2012, 07:42   #4
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,097
По умолчанию

А это какая версия Делфи, стесняюсь спросить? У себя я такого класса не нахожу.
Но зато нашел вот такое:
http://delphiworld.narod.ru/base/version_info.html
http://delphiworld.narod.ru/base/get_app_version.html
I'm learning to live...
Stilet вне форума Ответить с цитированием
Старый 16.05.2012, 07:51   #5
s-andriano
Старожил
 
Аватар для s-andriano
 
Регистрация: 08.04.2012
Сообщений: 3,229
По умолчанию

То, что Вы привели, это не вся программа. Должен быть, минимум, еще один файл, в котором описана TVersionInfo.
s-andriano вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
решает но показывает ошибку с++ Шуик Помощь студентам 4 11.12.2011 13:16
Не показывает картинку Illusia HTML и CSS 2 10.07.2011 21:10
не показывает видео mrs.rafanadal Мультимедиа в Delphi 11 29.04.2009 17:21
Не показывает русские буквы xakkkkker Работа с сетью в Delphi 2 08.02.2009 16:37
IE не показывает блок :( PVasili HTML и CSS 12 25.08.2008 02:19