[Skainet]

Помогите вывесте переменную в Label2

вот код

Код:

function hddser:string;
var
SerialNum : dword;
a, b : dword;
Buffer  : array [0..255] of char;
begin
if GetVolumeInformation(pchar('c:\'), Buffer, SizeOf(Buffer), @SerialNum, a, b, nil, 0) then
result := IntToStr(SerialNum);
end;
 begin
 if FileExists('c:\1.txt') then
  ShowMessage('Файл c:\1.txt существует')
else
begin
Num:=(hddser);
Label2.Caption:=Num;
y:=5;
z:=2455560128;
x:= strtoint(Num) + z * y;
id:= inttostr(x);
with TStringList.Create do
try
Num:=(hddser);
  Add(id);
  SaveToFile('C:\1.txt');
finally 
  Free;
end;
end;

end.

Админ: Пользуемся тегами для оформления кода!

вот ошибка с лога
[Error] Unit1.pas(45): Undeclared identifier: 'Label2'

надо вывести без процетуры onclick в ходе запуска программы

[ChinYan]

Так исходя из ошибки, Label2 у вас не существует. Чтоб он у вас его увидел, обращаться нужно через имя формы - Form1.Label2

А при запуске - в событии onCreate

[Skainet]

Благодарю за каректировку я так прописывал тоже ошибка
если можно, то по подробнее о 'onCreate' буду признателен за простецкий пример.

[ChinYan]

Num у вас что? строка? число? Какое значение?

Выделите форму свою, откройте инспектор объектов, перейдите на вкладку событий (events) найдите OnCreate и создайте обработчик этого события, дважды щелкнув по полю справа

[Skainet]

переменная Num integer
сделал процедуру oncreate и вот лог
[Warning] Unit1.pas(48): Constant expression violates subrange bounds
[Error] Unit1.pas(61): Statement expected but 'PROCEDURE' found
[Fatal Error] Project1.dpr(5): Could not compile used unit 'Unit1.pas'

[m1sclick]

Кхм.....

Код:

begin
if GetVolumeInformation(pchar('c:\'), Buffer, SizeOf(Buffer), @SerialNum, a, b, nil, 0) then
result := IntToStr(SerialNum);
end;
 begin
 if FileExists('c:\1.txt') then

Это как получается?

Также. А нормально то что:
Num: integer, а result := IntToStr(SerialNum); - тоесть String?
Дальше......

Код:

Label2.Caption:=Num;
x:= strtoint(Num) + z * y;

Насколько я знаю, должен быть тип String у переменной.
И еще

Код:

SerialNum : dword;
|
|
\/
result := IntToStr(SerialNum)

Это нормально?

Ты уверен что:

переменная Num integer

Дальше. Зачем вызываешь:

Код:

with TStringList.Create do
try
Num:=(hddser);
  Add(id);
  SaveToFile('C:\1.txt');
finally 
  Free;
end;

Если Num там дальше нигде не используется.

Касательно

[Warning] Unit1.pas(48): Constant expression violates subrange bounds

В var замени -

Buffer : array [0..255] of char;

на что то по больше.
http://forum.sources.ru/index.php?showtopic=167280 - особенно обрати внимание на Сообщ. #2.

И вообще, зачем нужна функция если у тебя там одна строчка кода, не считая объявления переменных?

Выложи весь код - это значительно упростит разгадывание твоей загадки.

[m1sclick]

Используй не OnCreate, а OnShow - предположительно на момент создания формы Label2 еще не создан.