Форум: "Начинающим";
Текущий архив: 2006.11.05;
Скачать: [xml.tar.bz2];
Внизмоя первая прога Найти похожие ветки
← →
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]Удалено модератором
← →
Ketmar © (2006-10-20 17:55) [19]когда оно успокоится? ну не нравится сайт -- так никто же не держит тут насильно!
← →
Sco3 (2006-10-20 17:59) [20]Удалено модератором
← →
Ketmar © (2006-10-20 18:07) [21]>[20] Sco3 20-Oct-2006, 17:59
>сайт мне нравится - мне ТЫ не нравишься, и твои друзья
>флудеры.
я рыдаю от огорчения. спать теперь не смогу, всё буду думать, как прощение вымолить.
← →
Anatoly Podgoretsky © (2006-10-20 19:37) [22]Какой озабоченный.
← →
Sco999 (2006-10-20 22:05) [23]Anatoly Podgoretsky у кого что болит тот... "не нравится" ето значит "бесит"
админ закрой тему
← →
Ketmar © (2006-10-20 22:06) [24]>[23] Sco999 20-Oct-2006, 22:05
>админ закрой тему
ты бы хоть список модераторов прочитал, что ли. "наезжать" на них, а потом что-то требовать (наглым тоном) -- это неоригинально.
Страницы: 1 вся ветка
Форум: "Начинающим";
Текущий архив: 2006.11.05;
Скачать: [xml.tar.bz2];
Память: 0.5 MB
Время: 0.043 c