Мастера 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_ и почему компилятор ругается когда доходит до этого слова? И где вообще должна эта информация появиться? Может какой обработчик событий нужен?
Ещё раз повторяю я только пробую, так что не ругайтесь сильно.

Ketmar (2006-10-20 22:06:00) [1]
>[23] Sco999 20-Oct-2006, 22:05
>админ закрой тему
ты бы хоть список модераторов прочитал, что ли. "наезжать" на них, а потом что-то требовать (наглым тоном) -- это неоригинально.

Sco999 (2006-10-20 22:05:00) [2]
Anatoly Podgoretsky у кого что болит тот... "не нравится" ето значит "бесит"
админ закрой тему

Anatoly Podgoretsky (2006-10-20 19:37:00) [3]
Какой озабоченный.

Ketmar (2006-10-20 18:07:00) [4]
>[20] Sco3 20-Oct-2006, 17:59
>сайт мне нравится - мне ТЫ не нравишься, и твои друзья
>флудеры.
я рыдаю от огорчения. спать теперь не смогу, всё буду думать, как прощение вымолить.

Sco3 (2006-10-20 17:59:00) [5]
Удалено модератором

Ketmar (2006-10-20 17:55:00) [6]
когда оно успокоится? ну не нравится сайт -- так никто же не держит тут насильно!

Sco3 (2006-10-20 17:43:00) [7]
Удалено модератором

Gero (2006-10-20 17:21:00) [8]
> [16] Sco3 (20.10.06 17:06)

Разве у тебя кто-то спрашивал совета относительно модерирования?

Sco3 (2006-10-20 17:06:00) [9]
Удалено модератором

Sco2 (2006-10-20 05:16:00) [10]
Удалено модератором

Virgo_Style (2006-10-19 23:01:00) [11]
Sco © (19.10.06 22:43) [13]

еще один угнетенный и обиженный...

Sco (2006-10-19 22:43:00) [12]
Удалено модератором

XP UserR-rr (2006-10-19 20:36:00) [13]

> Tbegin

А меня научишь?

Loginov Dmitry (2006-10-18 19:56:00) [14]
Tbegin © (18.10.06 19:08)
я создал новый класс

ты БОГ!!!

Ketmar (2006-10-18 19:55:00) [15]
>[9] XP UserR-rr 18-Oct-2006, 19:45
>По-моему он просто его откуда-то скопировал и еще пытается
>понять почему не получатся :-)
не "по-твоему", а так оно и есть.

XP UserR-rr (2006-10-18 19:45:00) [16]
По-моему он просто его откуда-то скопировал и еще пытается понять почему не получатся :-)

XP UserR-rr (2006-10-18 19:44:00) [17]
Вместо этого пиши fmmain.HardwareInfo

Ketmar (2006-10-18 19:43:00) [18]
и вообще: снеси Delphi. снеси. рано ещё. твой код -- это бред сивой кобылы в безлунную ночь.

Ketmar (2006-10-18 19:42:00) [19]
ну а теперь всё наоборот -- используешь переменную, которая не объявлена. %-)

Tbegin (2006-10-18 19:39:00) [20]
спасибо, я уже сам понял свою ошибку,вот опять переделал, но всё равно

unit Unit1;

interface

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

type
TForm1 = class(TForm)
laCPU_: TLabel;
laCompName_: TLabel;
laUserName_: 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;
laCompName_:TLabel;
laUserName_:TLabel;
implementation

{$R *.dfm}

// Информация о компьютере.
procedure TfmMain.HardwareInfo;
var Size : cardinal;
PRes : PChar;
BRes : boolean;
lpSystemInfo : TSystemInfo;
begin
// Имя компьютера
Size := MAX_COMPUTERNAME_LENGTH + 1;
PRes := StrAlloc(Size);
BRes := GetComputerName(PRes, Size);
if BRes then laCompName_.Caption := StrPas(PRes);
// Имя пользователя
Size := MAX_COMPUTERNAME_LENGTH + 1;
PRes := StrAlloc(Size);
BRes := GetUserName(PRes, Size);
if BRes then laUserName_.Caption := StrPas(PRes);
// Процессор
GetSystemInfo(lpSystemInfo);
laCPU_.Caption := 'класса x' + IntToStr
(lpSystemInfo.dwProcessorType);
end;

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

там где HardwareInfo пишет [Error] Unit1.pas(69): Undeclared identifier: 'HardwareInfo'

я понимаю что надо книги читать, но прогу уж доделать то хочется! Уж очень мне delphi нравится! По сравнению с бейсиком

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

Наверх

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