 |
Delphi 7 жалуется ... - Вопросы и ответы, обсуждения - Ваши вопросы по Pascal/Delphi только в данном разделе |
10.05.2012, 22:54
|
#1
|
|
|
|
|
|
 Разведчик |
 Регистрация: 21.01.2011
 Сообщений: 36
 Популярность: 205
 Сказал(а) спасибо: 215
Поблагодарили 45 раз(а) в 19 сообщениях
|
Срочно нужна помощь! (Не работает Динамическое создание)
Не могу понять на что именно жалуется Delphi 7.  Вот код ошибки 
Код:
Build
[Warning] Unit2.pas(8): Unit 'FileCtrl' is specific to a platform
[Warning] Unit2.pas(86): Unsafe type 'PWideChar'
[Warning] Unit2.pas(90): Unsafe code 'GetMem'
[Warning] Unit2.pas(90): Unsafe type 'pwRoot: PWideChar'
[Warning] Unit2.pas(91): Unsafe type 'pwRoot: PWideChar'
[Warning] Unit2.pas(91): Unsafe type 'pwRoot: PWideChar'
[Warning] Unit2.pas(92): Unsafe type 'pwRoot: PWideChar'
[Hint] Unit2.pas(103): Variable 'Button' is declared but never used in 'TForm2.Button1Click'
[Hint] Unit2.pas(104): Variable 'img' is declared but never used in 'TForm2.Button1Click'
[Hint] Unit2.pas(105): Variable 'Okno' is declared but never used in 'TForm2.Button1Click'
[Hint] Unit2.pas(106): Variable 'Lebal' is declared but never used in 'TForm2.Button1Click'
[Hint] Unit2.pas(165): Variable 'List' is declared but never used in 'TForm2.FormShow'
[Warning] Unit2.pas(285): Variable 'Okno' might not have been initialized
[Warning] Unit2.pas(353): Variable 'Ydalit' might not have been initialized
Всё компелируется только работать не хочет (
Может кто обьяснит что действительно на что именно жалуется Delphi. Код проги!
Код:
unit Unit2;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls, Buttons, ComCtrls, Menus,
FileCtrl, ExtCtrlsX, XPMan, DialogsX, ExtDlgs,IniFiles;
type
TForm2 = class(TForm)
Button1: TButton;
Button2: TButton;
rg1: TRadioGroup;
rg2: TRadioGroup;
grp1: TGroupBox;
btn1: TSpeedButton;
edt1: TEdit;
grp2: TGroupBox;
btn2: TSpeedButton;
edt2: TEdit;
lbl1: TLabel;
grp3: TGroupBox;
edt3: TEdit;
dlgOpenPic1: TOpenPictureDialog;
edt4: TEdit;
edt5: TEdit;
edt6: TEdit;
edt7: TEdit;
edt8: TEdit;
edt9: TEdit;
edt10: TEdit;
edt11: TEdit;
lbl2: TLabel;
lbl3: TLabel;
lbl4: TLabel;
lbl5: TLabel;
lbl6: TLabel;
lbl7: TLabel;
lbl8: TLabel;
lbl9: TLabel;
edt12: TEdit;
edt13: TEdit;
edt14: TEdit;
edt15: TEdit;
lbl10: TLabel;
lbl11: TLabel;
lbl12: TLabel;
lbl13: TLabel;
edt16: TEdit;
edt17: TEdit;
lbl14: TLabel;
lbl15: TLabel;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure btn1Click(Sender: TObject);
procedure btn2Click(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure Createimg(offset: integer);
procedure CreateButton(offset: integer);
procedure Creategrp(offset: integer);
procedure Createlbl(offset: integer);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form2: TForm2;
i,NomerFilm,NomerSerial,Ts1GrpVertikal,Ts1GrpGorithontal,Ts1LblVertikal,Ts1LblGorithontal: integer;
i1,Ts2GrpVertikal,Ts2GrpGorithontal,Ts2LblVertikal,Ts2LblGorithontal: integer;
NomerFilma,NomerSeriala : Integer;
Ts1NomerKnopki,Ts2NomerKnopki: Integer;
implementation
uses Unit1;
{$R *.dfm}
function GetPath(mes: string):string;
var
Root: string; // корневой каталог
pwRoot : PWideChar;
Dir: string;
begin
Root := ''; // корневой каталог - папка Рабочий стол
GetMem(pwRoot, (Length(Root)+1) * 2);
pwRoot := StringToWideChar(Root,pwRoot,MAX_PATH*2);
if SelectDirectory(mes, pwRoot, Dir)
then
if length(Dir) = 2 // пользователь выбрал корневой каталог
then GetPath := Dir+'\'
else GetPath := Dir
else
GetPath := '';
end;
procedure TForm2.Button1Click(Sender: TObject);
var
Button:TButton;
img:TImage;
Okno: TGroupBox;
Lebal: TLabel;
begin
if (rg1.ItemIndex = 1) or (rg1.ItemIndex = 0)then
begin
if (rg2.ItemIndex = 1) or (rg2.ItemIndex = 0) then
begin
if rg1.ItemIndex = 0 then
begin
NomerFilm:=NomerFilm+1;
Creategrp(Ts1NomerKnopki);
Createlbl(Ts1NomerKnopki);
Createimg(Ts1NomerKnopki);
CreateButton(Ts1NomerKnopki);
Ts1NomerKnopki:=Ts1NomerKnopki+1;
end;
if rg1.ItemIndex = 1 then
begin
NomerSerial:=NomerSerial+1;
Creategrp(Ts2NomerKnopki);
Createlbl(Ts2NomerKnopki);
Createimg(Ts2NomerKnopki);
CreateButton(Ts2NomerKnopki);
Ts2NomerKnopki:=Ts2NomerKnopki+1;
end;
end
else
MessageDlg('Укажите где находится Фильм,Сериал!',mtError, [mbOk], 0);
end
else
MessageDlg('Выберите вкладку для добавления Фильма,Сериала!',mtError, [mbOk], 0);
end;
procedure TForm2.Button2Click(Sender: TObject);
begin
Hide;
end;
procedure TForm2.btn1Click(Sender: TObject);
var
Path: string;
begin
Path := GetPath('Выберите папку');
if Path <> ''
then edt1.Text := Path;
end;
procedure TForm2.btn2Click(Sender: TObject);
begin
if dlgOpenPic1.Execute then
Edt2.Text:=dlgOpenPic1.FileName;
end;
procedure TForm2.FormShow(Sender: TObject);
var
Ini: Tinifile;
List: TStringList;
begin
Ini:=TiniFile.Create(ExtractFilePath(paramstr(0))+'System.ini');
edt4.Text:= Ini.ReadString('NomerFilm','Text',Edt4.Text);
edt5.Text:= Ini.ReadString('NomerSerial','Text',Edt5.Text);
edt6.Text:= Ini.ReadString('Ts1GrpVertikal','Text',Edt6.Text);
edt7.Text:= Ini.ReadString('Ts1GrpGorithontal','Text',Edt7.Text);
edt8.Text:= Ini.ReadString('Ts1LblVertikal','Text',Edt8.Text);
edt9.Text:= Ini.ReadString('Ts1LblGorithontal','Text',Edt9.Text);
edt10.Text:= Ini.ReadString('NomerFilma','Text',edt10.Text);
edt11.Text:= Ini.ReadString('NomerSeriala','Text',edt11.Text);
edt12.Text:= Ini.ReadString('Ts2GrpVertikal','Text',edt12.Text);
edt13.Text:= Ini.ReadString('Ts2GrpGorithontal','Text',Edt13.Text);
edt15.Text:= Ini.ReadString('Ts2LblVertikal','Text',Edt15.Text);
edt14.Text:= Ini.ReadString('Ts2LblGorithontal','Text',Edt14.Text);
edt16.Text:= Ini.ReadString('Ts1NomerKnopki','Text',Edt16.Text);
edt17.Text:= Ini.ReadString('Ts2NomerKnopki','Text',Edt17.Text);
NomerFilm:=StrToInt(edt4.Text);
NomerSerial:=StrToInt(edt5.Text);
Ts1GrpVertikal:=StrToInt(edt6.Text);
Ts1GrpGorithontal:=StrToInt(edt7.Text);
Ts1LblVertikal:=StrToInt(edt8.Text);
Ts1LblGorithontal:=StrToInt(edt9.Text);
NomerFilma:=StrToInt(edt9.Text);
NomerSeriala:=StrToInt(edt9.Text);
Ts2GrpVertikal:=StrToInt(edt12.Text);
Ts2GrpGorithontal:=StrToInt(edt13.Text);
Ts2LblVertikal:=StrToInt(edt15.Text);
Ts2LblGorithontal:=StrToInt(edt14.Text);
Ts1NomerKnopki:=StrToInt(edt16.Text);
Ts2NomerKnopki:=StrToInt(edt17.Text);
end;
procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction);
var
Ini: Tinifile;
begin
edt4.Text:=IntToStr(NomerFilm);
edt5.Text:=IntToStr(NomerSerial);
edt6.Text:=IntToStr(Ts1GrpVertikal);
edt7.Text:=IntToStr(Ts1GrpGorithontal);
edt8.Text:=IntToStr(Ts1LblVertikal);
edt9.Text:=IntToStr(Ts1LblGorithontal);
edt10.Text:=IntToStr(NomerFilma);
edt11.Text:=IntToStr(NomerFilma);
edt12.Text:=IntToStr(Ts2GrpVertikal);
edt13.Text:=IntToStr(Ts2GrpGorithontal);
edt15.Text:=IntToStr(Ts2LblVertikal);
edt14.Text:=IntToStr(Ts2LblGorithontal);
edt16.Text:=IntToStr(Ts1NomerKnopki);
edt17.Text:=IntToStr(Ts2NomerKnopki);
Ini:=TiniFile.Create(ExtractFilePath(paramstr(0))+'System.ini');
Ini.WriteString('NomerFilm','Text',Edt4.Text);
Ini.WriteString('NomerSerial','Text',Edt5.Text);
Ini.WriteString('Ts1GrpVertikal','Text',Edt6.Text);
Ini.WriteString('Ts1GrpGorithontal','Text',Edt7.Text);
Ini.WriteString('Ts1LblVertikal','Text',Edt8.Text);
Ini.WriteString('Ts1LblGorithontal','Text',Edt9.Text);
Ini.WriteString('NomerFilma','Text',Edt10.Text);
Ini.WriteString('NomerSeriala','Text',edt11.Text);
Ini.WriteString('Ts2GrpVertikal','Text',Edt12.Text);
Ini.WriteString('Ts2GrpGorithontal','Text',Edt13.Text);
Ini.WriteString('Ts2LblVertikal','Text',edt15.Text);
Ini.WriteString('Ts2LblGorithontal','Text',edt14.Text);
Ini.WriteString('Ts1NomerKnopki','Text',edt16.Text);
Ini.WriteString('Ts2NomerKnopki','Text',edt17.Text);
Ini.Free;
end;
procedure TForm2.Createimg(offset: integer);
var img: TImage;
begin
img := TImage.Create(form1);
if rg1.ItemIndex = 0 then
begin
img.Parent := form1.ts1;
end
else
begin
img.Parent := form1.ts2;
end;
img.Visible := true;
img.Center:= True;
img.Proportional:= True;
img.Left:= 113;
img.Top:= 121;
img.Height:= 8;
img.Width:=8;
img.Picture.LoadFromFile(edt2.Text);
end;
procedure TForm2.CreateButton(offset: integer);
var Button: TButton;
begin
Button := TButton.Create(form1);
if rg1.ItemIndex = 0 then
begin
Button.Parent := form1.ts1;
end
else
begin
Button.Parent := form1.ts2;
end;
Button.Visible := true;
Button.Left:= 8;
Button.Top:= 136;
Button.Height:= 17;
Button.Width:=113;
Button.Caption:= edt3.Text;
Button.TabOrder:= 0;
end;
procedure TForm2.Creategrp(offset: integer);
var Okno : TGroupBox;
begin
if rg1.ItemIndex = 0 then
begin
Okno.Parent := form1.ts1;
end
else
begin
Okno.Parent := form1.ts2;
end;
Okno := TGroupBox.Create(form1);
Okno.Color:= clSilver;
Okno.Width:=129;
Okno.ParentColor:= False;
Okno.TabOrder:= 1;
Okno.Height:= 161;
Okno.Visible:= True;
if rg1.ItemIndex = 0 then
begin
if NomerFilm = 1 then
begin
Okno.Left:=16;
Okno.Top:=8;
Ts1GrpGorithontal:=16;
Ts1GrpVertikal:=8;
end;
if NomerFilm mod 4 = 0 then
begin
Okno.Top:=Ts1GrpVertikal+184;
Okno.Left:= 16;
Ts1GrpGorithontal:=16;
end;
if not NomerFilm mod 4 = 0 then
begin
Okno.Left:=Ts1GrpGorithontal+144;
Okno.Top:=Ts1GrpVertikal;
end;
end
else
begin
if NomerSerial = 1 then
begin
Okno.Left:=16;
Okno.Top:=8;
Ts2GrpGorithontal:=16;
Ts2GrpVertikal:=8;
end;
if NomerSerial mod 4 = 0 then
begin
Okno.Top:=Ts2GrpVertikal+184;
Okno.Left:= 16;
Ts2GrpGorithontal:=16;
end;
if not NomerSerial mod 4 = 0 then
begin
Okno.Left:=Ts2GrpGorithontal+144;
Okno.Top:=Ts2GrpVertikal;
end;
end;
end;
procedure TForm2.Createlbl(offset: integer);
var
Ydalit: TLabel;
begin
if rg1.ItemIndex =0 then
begin
Ydalit.Parent := Form1.ts1;
end
else
begin
Ydalit.Parent := Form1.ts2;
end;
Ydalit := TLabel.Create(form1);
Ydalit.Caption:= 'Удалить';
Ydalit.Font.Color:= clRed;
Ydalit.Font.Height:= -11;
Ydalit.Width:= 44;
Ydalit.ParentFont:= False;
Ydalit.Height:= 13;
if rg1.ItemIndex =0 then
begin
if NomerFilm = 1 then
begin
Ydalit.Left:=64;
Ydalit.Top:=168;
Ts1LblGorithontal:=64;
Ts1LblVertikal:=168;
end;
if NomerFilm mod 4 = 0 then
begin
Ydalit.Top:=Ts1GrpVertikal+184;
Ydalit.Left:= 64;
Ts1LblGorithontal:=64;
end;
if not NomerFilm mod 4 = 0 then
begin
Ydalit.Left:=Ts1GrpGorithontal+144;
Ydalit.Top:=Ts1GrpVertikal;
end;
end
else
begin
if NomerSerial = 1 then
begin
Ydalit.Left:=64;
Ydalit.Top:=168;
Ts2LblGorithontal:=64;
Ts2LblVertikal:=168;
end;
if NomerSerial mod 4 = 0 then
begin
Ydalit.Top:=Ts2GrpVertikal+184;
Ydalit.Left:= 64;
Ts2LblGorithontal:=64;
end ;
if NomerSerial mod 4 = 0 then
begin
Ydalit.Left:=Ts2GrpGorithontal+144;
Ydalit.Top:=Ts2GrpVertikal;
end;
end;
end;
end.
Участки кода на которые ругается Delphi Создание GroupBox
Код:
procedure TForm2.Creategrp(offset: integer);
var Okno : TGroupBox;
begin
if rg1.ItemIndex = 0 then
begin
Okno.Parent := form1.ts1;
end
else
begin
Okno.Parent := form1.ts2;
end;
Okno := TGroupBox.Create(form1);
Okno.Color:= clSilver;
Okno.Width:=129;
Okno.ParentColor:= False;
Okno.TabOrder:= 1;
Okno.Height:= 161;
Okno.Visible:= True;
if rg1.ItemIndex = 0 then
begin
if NomerFilm = 1 then
begin
Okno.Left:=16;
Okno.Top:=8;
Ts1GrpGorithontal:=16;
Ts1GrpVertikal:=8;
end;
if NomerFilm mod 4 = 0 then
begin
Okno.Top:=Ts1GrpVertikal+184;
Okno.Left:= 16;
Ts1GrpGorithontal:=16;
end;
if not NomerFilm mod 4 = 0 then
begin
Okno.Left:=Ts1GrpGorithontal+144;
Okno.Top:=Ts1GrpVertikal;
end;
end
else
begin
if NomerSerial = 1 then
begin
Okno.Left:=16;
Okno.Top:=8;
Ts2GrpGorithontal:=16;
Ts2GrpVertikal:=8;
end;
if NomerSerial mod 4 = 0 then
begin
Okno.Top:=Ts2GrpVertikal+184;
Okno.Left:= 16;
Ts2GrpGorithontal:=16;
end;
if not NomerSerial mod 4 = 0 then
begin
Okno.Left:=Ts2GrpGorithontal+144;
Okno.Top:=Ts2GrpVertikal;
end;
end;
end;
Создание Label
Код:
procedure TForm2.Createlbl(offset: integer);
var
Ydalit: TLabel;
begin
if rg1.ItemIndex =0 then
begin
Ydalit.Parent := Form1.ts1;
end
else
begin
Ydalit.Parent := Form1.ts2;
end;
Ydalit := TLabel.Create(form1);
Ydalit.Caption:= 'Удалить';
Ydalit.Font.Color:= clRed;
Ydalit.Font.Height:= -11;
Ydalit.Width:= 44;
Ydalit.ParentFont:= False;
Ydalit.Height:= 13;
if rg1.ItemIndex =0 then
begin
if NomerFilm = 1 then
begin
Ydalit.Left:=64;
Ydalit.Top:=168;
Ts1LblGorithontal:=64;
Ts1LblVertikal:=168;
end;
if NomerFilm mod 4 = 0 then
begin
Ydalit.Top:=Ts1GrpVertikal+184;
Ydalit.Left:= 64;
Ts1LblGorithontal:=64;
end;
if not NomerFilm mod 4 = 0 then
begin
Ydalit.Left:=Ts1GrpGorithontal+144;
Ydalit.Top:=Ts1GrpVertikal;
end;
end
else
begin
if NomerSerial = 1 then
begin
Ydalit.Left:=64;
Ydalit.Top:=168;
Ts2LblGorithontal:=64;
Ts2LblVertikal:=168;
end;
if NomerSerial mod 4 = 0 then
begin
Ydalit.Top:=Ts2GrpVertikal+184;
Ydalit.Left:= 64;
Ts2LblGorithontal:=64;
end ;
if NomerSerial mod 4 = 0 then
begin
Ydalit.Left:=Ts2GrpGorithontal+144;
Ydalit.Top:=Ts2GrpVertikal;
end;
end;
end;
Как я понял вот из-за этих 2-х предупреждений не хочется создаваться динамически Label и GroupBox
Код:
[Warning] Unit2.pas(285): Variable 'Okno' might not have been initialized
[Warning] Unit2.pas(353): Variable 'Ydalit' might not have been initialized
Последний раз редактировалось Babls77; 12.05.2012 в 14:25.
|
|
|
|
|
10.05.2012, 23:22
|
#2
|
|
|
|
|
|
 Лейтенант-командор |
Регистрация: 12.08.2010
Сообщений: 727
Популярность: 30569  Золото Zhyk.Ru: 1 
Сказал(а) спасибо: 57
Поблагодарили 645 раз(а) в 386 сообщениях
|
Re: Delphi 7 жалуется ...
Warning и Hint - это не ошибки, а предупреждения компилятора в 99,9% случаев бессмысленные и безвредные 
Ищи причину неработоспособности в коде, а не в ошибках
________________
Принимаются пожертвования любых размеров в фонд поддержки начинающих программистов
Для просмотра ссылок или изображений в подписях, у Вас должно быть не менее 10 сообщение(ий). Сейчас у Вас 0 сообщение(ий).
Кошельки: WMZ - Z276844220882; WMR - R231028582939; WMU - U394136909210; ЯД - 410011494605270.
Perfect World: PWDatabaseScanner, Client, PWNickRenamer, PWClientRenamer, База логинов PW, Гайд по варУ, Зарабатываем репутацию.
Delphi: Авторизация на сайте с помощью Indy, Загрузка изображений с интернета в TImage с помощью Indy, Автоматическая смена стандартной версии Indy в Delphi на Indy 10.0.76 / 10.1.5, Основы парсинга с помощью Indy, Делаем Updater до программы с помощью Indy.
Other: ShowIP, FFUUU смайлы в QIP, Как играть в Minecraft (видеокурс), Как мы захватили человечество :D, Энергия в Лицемер/TopFace, PasGen.
|
|
|
|
|
Пользователь сказал cпасибо:
|
|
|
12.05.2012, 19:48
|
#3
|
|
|
|
|
|
Разведчик
|
Регистрация: 21.01.2011
Сообщений: 36
Популярность: 205
Сказал(а) спасибо: 215
Поблагодарили 45 раз(а) в 19 сообщениях
|
Re: Delphi 7 жалуется ...
Всё разобрался в чём была проблема :
Код:
Okno := TGroupBox.Create(form1);
и
Код:
Ydalit := TLabel.Create(form1);
Поменять местами с
Код:
if rg1.ItemIndex = 0 then
begin
Okno.Parent := form1.ts1;
end
else
begin
Okno.Parent := form1.ts2;
end;
и
Код:
if rg1.ItemIndex =0 then
begin
Ydalit.Parent := Form1.ts1;
end
else
begin
Ydalit.Parent := Form1.ts2;
end;
Соответственно.
Спасибо за подсказку.
Последний раз редактировалось Babls77; 12.05.2012 в 19:50.
|
|
|
|
|
13.05.2012, 07:56
|
#4
|
|
|
|
|
|
 Сержант |
Регистрация: 20.07.2010
Сообщений: 138
Популярность: 26409
Сказал(а) спасибо: 53
Поблагодарили 567 раз(а) в 198 сообщениях
|
Re: Delphi 7 жалуется ...
 |
Цитата: |
 |
|
|
|
|
|
|
|
|
|
|
Warning и Hint - это не ошибки, а предупреждения компилятора в 99,9% случаев бессмысленные и безвредные
|
|
 |
|
 |
|
Warning и Hint - в 99,9% случаях значат, что вы написали очередной гoвнокод и думаете, что вы крутой пограммист, а компилятор - дурак.
|
|
Цитата: |
|
|
|
|
|
|
|
|
|
|
|
Всё разобрался в чём была проблема :
|
|
|
|
|
|
|
Это не проблема. Вы не отличаете Owner от Parent:
Код:
constructor Create(AOwner: TComponent); override;
- при создании компоненту передается ссылка на Owner, компонент, который будет "заведовать" уничтожением. Тоесть при создании:
Код:
Okno := TGroupBox.Create(form1);
Память, выделенная под объект Okno (я бы руки по отрывал за такие названия), освободится при уничтожении формы.
Можно передать TGroupBox.Create(nil) - тогда нужно обязательно уничтожить объект самостоятельно, дабы не допускать утечек памяти.
Parent - ссылка на объект типа TWinControl, на канве которого будет происходить отрисовка.
________________
Для просмотра ссылок или изображений в подписях, у Вас должно быть не менее 10 сообщение(ий). Сейчас у Вас 0 сообщение(ий).
|
|
|
|
|
Пользователь сказал cпасибо:
|
|
|
13.05.2012, 09:58
|
#5
|
|
|
|
|
|
Лейтенант-командор
|
Регистрация: 12.08.2010
Сообщений: 727
Популярность: 30569 Золото Zhyk.Ru: 1
Сказал(а) спасибо: 57
Поблагодарили 645 раз(а) в 386 сообщениях
|
Re: Delphi 7 жалуется ...
|
|
Цитата: |
|
|
|
|
|
|
|
|
|
|
|
Warning и Hint - в 99,9% случаях значат, что вы написали очередной гoвнокод и думаете, что вы крутой пограммист, а компилятор - дурак.
|
|
|
|
|
|
|
Hint - в большинстве случаев выдаёт предупреждение о неиспользовании объявленной переменной, что, конечно, важно, но не смертельно.
Warning - конкретно на этом случае:
|
|
Цитата: |
|
|
|
|
|
|
|
|
|
|
[Warning] Unit2.pas(8): Unit 'FileCtrl' is specific to a platform |
|
|
|
|
|
|
Unit FileCtrl привязан к Windows. Совершенно бессмысленное предупреждение, если пишешь для платформы Windows.-
Самая лишняя ошибка во всём компиляторе. Сама ошибка была взята с .NET, видимо готовились к переходу.
|
|
Цитата: |
|
|
|
|
|
|
|
|
|
|
Variable 'Okno' might not have been initialized |
|
|
|
|
|
|
Переменной 'Okno' (солидарен с Рейзором по поводу названия  ) не задали значения. Эта ошибка достойна внимания, так как означает, что вы используете переменную, не создав её.
________________
Принимаются пожертвования любых размеров в фонд поддержки начинающих программистов
Для просмотра ссылок или изображений в подписях, у Вас должно быть не менее 10 сообщение(ий). Сейчас у Вас 0 сообщение(ий).
Кошельки: WMZ - Z276844220882; WMR - R231028582939; WMU - U394136909210; ЯД - 410011494605270.
Perfect World: PWDatabaseScanner, Client, PWNickRenamer, PWClientRenamer, База логинов PW, Гайд по варУ, Зарабатываем репутацию.
Delphi: Авторизация на сайте с помощью Indy, Загрузка изображений с интернета в TImage с помощью Indy, Автоматическая смена стандартной версии Indy в Delphi на Indy 10.0.76 / 10.1.5, Основы парсинга с помощью Indy, Делаем Updater до программы с помощью Indy.
Other: ShowIP, FFUUU смайлы в QIP, Как играть в Minecraft (видеокурс), Как мы захватили человечество :D, Энергия в Лицемер/TopFace, PasGen.
|
|
|
|
|
Пользователь сказал cпасибо:
|
|
Ваши права в разделе
|
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения
HTML код Выкл.
|
|
|
Похожие темы
|
| Тема |
Автор |
Раздел |
Ответов |
Последнее сообщение |
|
[Помогите!] Delphi
|
Nеxus |
Общение и обсуждение |
4 |
24.11.2011 01:03 |
|
[Информация] Помощь в Delphi 7 и в других версиях Delphi
|
Babls77 |
Pascal/Delphi |
4 |
03.11.2011 22:27 |
|
[Помогите!] Как на delphi 7
|
mires51 |
Вопросы и ответы, обсуждения |
2 |
23.04.2011 15:01 |
|
[Помогите!] Delphi...
|
stels95 |
Общение и обсуждение |
14 |
29.01.2011 03:38 |
Заявление об ответственности / Список мошенников
Часовой пояс GMT +4, время: 20:16.
|
|
