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

← →
Tbegin © (2006-10-18 19:08) [0]

Привет всем!
Я начинающий программист, мне 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-18 19:12) [1]

не с той стороны пробуешь. сначала надо книжки по языку читать. потом книжки по Delphi. а только потом запускать саму Delphi. и никак иначе.

← →
EvS © (2006-10-18 19:13) [2]

Судя по всему все, что с префиксом la (laWidth_,laBitsPerPixel_) это Label, которые тебе нужно поместить на форму и присвоить соответствующие имена.

← →
Tbegin © (2006-10-18 19:25) [3]

Вот я немного переделал, поставил на форму 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" пожалуйста обьясните что это значит и как исправить

← →
XP UserR-rr (2006-10-18 19:33) [4]

Ты объявил переменную PRes и нигде ее не использовал, вот и всё, учи Инглиш :-)

← →
Tbegin © (2006-10-18 19:39) [5]

спасибо, я уже сам понял свою ошибку,вот опять переделал, но всё равно

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 нравится! По сравнению с бейсиком

← →
Ketmar © (2006-10-18 19:42) [6]

ну а теперь всё наоборот -- используешь переменную, которая не объявлена. %-)

← →
Ketmar © (2006-10-18 19:43) [7]

и вообще: снеси Delphi. снеси. рано ещё. твой код -- это бред сивой кобылы в безлунную ночь.

← →
XP UserR-rr (2006-10-18 19:44) [8]

Вместо этого пиши fmmain.HardwareInfo

← →
XP UserR-rr (2006-10-18 19:45) [9]

По-моему он просто его откуда-то скопировал и еще пытается понять почему не получатся :-)

← →
Ketmar © (2006-10-18 19:55) [10]

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

← →
Loginov Dmitry © (2006-10-18 19:56) [11]

Tbegin © (18.10.06 19:08)
я создал новый класс

ты БОГ!!!

← →
XP UserR-rr (2006-10-19 20:36) [12]

> Tbegin

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

← →
Sco © (2006-10-19 22:43) [13]

Удалено модератором

← →
Virgo_Style © (2006-10-19 23:01) [14]

Sco © (19.10.06 22:43) [13]

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

← →
Sco2 (2006-10-20 05:16) [15]

Удалено модератором

← →
Sco3 (2006-10-20 17:06) [16]

Удалено модератором

← →
Gero © (2006-10-20 17:21) [17]

> [16] Sco3 (20.10.06 17:06)

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

← →
Sco3 (2006-10-20 17:43) [18]

Удалено модератором

когда оно успокоится? ну не нравится сайт -- так никто же не держит тут насильно!

← →
Sco3 (2006-10-20 17:59) [20]

Удалено модератором

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

Какой озабоченный.

← →
Sco999 (2006-10-20 22:05) [23]

Anatoly Podgoretsky у кого что болит тот... "не нравится" ето значит "бесит"
админ закрой тему

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

моя первая прога Найти похожие ветки