Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

моя первая прога

Страницы: < 1 2
Tbegin © (2006-10-18 19:08:00)
Привет всем!
Я начинающий программист, мне 13 лет, надоел мне бейсик до жути, я вот решил delphi освоить немного, чтобы в институте было полегче в будущем,пару мелких прог сварганил, и сейчас хочу написать прогу о ресурсах компа (жалкое подобие everest) нашёл весь материал по этому вопросу (ответьте пожалуйста, не сочтите только за ламерство, я ведь только учусь):
я создал новый класс

type
TfmMain = class(TForm)
...
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
procedure HardwareInfo;

var fmMain: TfmMain;

implementation
{$R *.DFM}

// Информация о видеосистеме.
procedure TfmMain.VideoInfo;
var DC : hDC;
c : string;
begin
// Разрешение экрана
laWidth_.Caption := IntToStr(Screen.Height);
laHeight_.Caption := IntToStr(Screen.Width);
// Информация о глубине цвета.
DC := CreateDC('DISPLAY',nil,nil,nil);
laBitsPerPixel_.Caption :=
IntToStr(GetDeviceCaps(DC,BITSPIXEL));
laPlanes_.Caption :=
IntToStr(GetDeviceCaps(DC,PLANES));
case GetDeviceCaps(DC,BITSPIXEL) of
8 : c := '256 цветов';
15 : c := 'Hi-Color / 32768 цветов';
16 : c := 'Hi-Color / 65536 цветов';
24 : c := 'True-Color / 16 млн цветов';
32 : c := 'True-Color / 32 бит';
end;
laColors_.Caption := c;
DeleteDC(DC);
end;

// Вызов информационных процедур при создании формы.
procedure TfmMain.FormCreate(Sender: TObject);
begin
VideoInfo;
end;
end.

Вопрос такой, что в строке например laWidth_.Caption := IntToStr(Screen.Height); означает laWidth_ и почему компилятор ругается когда доходит до этого слова? И где вообще должна эта информация появиться? Может какой обработчик событий нужен?
Ещё раз повторяю я только пробую, так что не ругайтесь сильно.

XP UserR-rr (2006-10-18 19:33:00) [21]
Ты объявил переменную PRes и нигде ее не использовал, вот и всё, учи Инглиш :-)

Tbegin (2006-10-18 19:25:00) [22]
Вот я немного переделал, поставил на форму Tlabel и теперь в конце чё то парит(приведу пример не всей проги , а только малую ее часть)

unit Unit1;

interface

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

type
TForm1 = class(TForm)
laCPU_: TLabel;
procedure FormCreate(Sender: TObject);

private
{ Private declarations }
public
{ Public declarations }
end;

Type

TfmMain=class(TForm)
procedure FormCreate(Sender: TObject);
procedure Change(Sender: TObject);
public
procedure HardwareInfo;
private

end;

var fmMain: TfmMain;
laCPU_: TLabel;

implementation

{$R *.dfm}

// Информация о компьютере.
procedure TfmMain.HardwareInfo;
var Size : cardinal;
PRes : PChar;
BRes : boolean;
lpSystemInfo : TSystemInfo;
begin
// Процессор
GetSystemInfo(lpSystemInfo);
laCPU_.Caption := 'класса x' + IntToStr
(lpSystemInfo.dwProcessorType);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
HardwareInfo;
end;
end.

там где при создании формы написано HardwareInfo компилятор пишет
[Hint] Unit1.pas(42): Variable 'PRes' is declared but never used in 'TfmMain.HardwareInfo' пожалуйста обьясните что это значит и как исправить

EvS (2006-10-18 19:13:00) [23]
Судя по всему все, что с префиксом la (laWidth_,laBitsPerPixel_) это Label, которые тебе нужно поместить на форму и присвоить соответствующие имена.

Ketmar (2006-10-18 19:12:00) [24]
не с той стороны пробуешь. сначала надо книжки по языку читать. потом книжки по Delphi. а только потом запускать саму Delphi. и никак иначе.

Страницы: < 1 2

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »