Форум: "Начинающим";
Текущий архив: 2009.04.05;
Скачать: [xml.tar.bz2];

Вниз

Access Violation   Найти похожие ветки 

← →
Andrewtitoff ©   (2009-02-11 10:11) [0]

Здравствуйте!, подскажите пожалуйста что тут не так?, выскакивает ошибка Access Violation at adress 00404D68 in module "otchet.exe". Read of adrdress 403DFFF8

ShowMessage(
" Бригада 1: "+Format("%.4d",[brig[uch[strtoint(Form1.ComboBox8.Text),1]]])+"/"+Format("%f", [brigt[uch[strtoint(Form1.ComboBox8.Text),1]]])+#13#10+
" Бригада 2: "+Format("%.4d",[brig[uch[strtoint(Form1.ComboBox8.Text),2]]])+"/"+Format("%f", [brigt[uch[strtoint(Form1.ComboBox8.Text),2]]])+#13#10+
" Бригада 3: "+Format("%.4d",[brig[uch[strtoint(Form1.ComboBox8.Text),3]]])+"/"+Format("%f", [brigt[uch[strtoint(Form1.ComboBox8.Text),3]]])+#13#10+
" Бригада 4: "+Format("%.4d",[brig[uch[strtoint(Form1.ComboBox8.Text),4]]])+"/"+Format("%f", [brigt[uch[strtoint(Form1.ComboBox8.Text),4]]])+#13#10+
" Бригада 5: "+Format("%.4d",[brig[uch[strtoint(Form1.ComboBox8.Text),5]]])+"/"+Format("%f", [brigt[uch[strtoint(Form1.ComboBox8.Text),5]]])+#13#10+
" Бригада 6: "+Format("%.4d",[brig[uch[strtoint(Form1.ComboBox8.Text),6]]])+"/"+Format("%f", [brigt[uch[strtoint(Form1.ComboBox8.Text),6]]])+#13#10+
" Бригада 7: "+Format("%.4d",[brig[uch[strtoint(Form1.ComboBox8.Text),7]]])+"/"+Format("%f", [brigt[uch[strtoint(Form1.ComboBox8.Text),7]]])+#13#10+
" Бригада 8: "+Format("%.4d",[brig[uch[strtoint(Form1.ComboBox8.Text),8]]])+"/"+Format("%f", [brigt[uch[strtoint(Form1.ComboBox8.Text),8]]])+#13#10+
" Бригада 9: "+Format("%.4d",[brig[uch[strtoint(Form1.ComboBox8.Text),9]]])+"/"+Format("%f", [brigt[uch[strtoint(Form1.ComboBox8.Text),9]]])+#13#10+
"Бригада 10: "+Format("%.4d",[brig[uch[strtoint(Form1.ComboBox8.Text),10]]])+"/"+Format("%f", [brigt[uch[strtoint(Form1.ComboBox8.Text),10]]])+#13#10+
"Бригада 11: "+Format("%.4d",[brig[uch[strtoint(Form1.ComboBox8.Text),11]]])+"/"+Format("%f", [brigt[uch[strtoint(Form1.ComboBox8.Text),11]]])+#13#10+
"Бригада 12: "+Format("%.4d",[brig[uch[strtoint(Form1.ComboBox8.Text),12]]])+"/"+Format("%f", [brigt[uch[strtoint(Form1.ComboBox8.Text),12]]])+#13#10+
"Бригада 13: "+Format("%.4d",[brig[uch[strtoint(Form1.ComboBox8.Text),13]]])+"/"+Format("%f", [brigt[uch[strtoint(Form1.ComboBox8.Text),13]]]));



---

← →
Andrewtitoff ©   (2009-02-11 10:12) [1]


brig : array[101..813] of integer;
brigt : array[101..813] of real;
uch : array[1..8,1..13]of integer;



---

← →
Ega23 ©   (2009-02-11 10:15) [2]

Пипец. А один раз strtoint(Form1.ComboBox8.Text) вычислить - религия не позволяет?

---

← →
Сергей М. ©   (2009-02-11 10:15) [3]

У отладчика не пробовал спросить ?
Ему виднее)

---

← →
DrPass ©   (2009-02-11 10:19) [4]

Вы смотрели краткое содержание сериала "Бригада"...

---

← →
Германн ©   (2009-02-11 10:19) [5]

Количество бригад надо либо уменьшить, либо увеличить!
Бо 13 - плохое число. Имхо и AV из-за этого :(

---

← →
Palladin ©   (2009-02-11 10:20) [6]

я вообще сомневаюсь, что
1. form1 существует
2. в кобобоксе8 в тексте стоит число

а так да... за такой код - эцих с гвоздями на неделю, с последующим увольнением

---

← →
Ega23 ©   (2009-02-11 10:27) [7]

> в кобобоксе8 в тексте стоит число


Это было бы всё-таки EConvertError, а не AV.

---

← →
Andrewtitoff ©   (2009-02-11 10:31) [8]

2 Palladin
form1 - существует

var
 Form1: TForm1;

В комбо боксе - точно число!
т.к. Style : csOwnerDrawFixed
и в Items просто забито:
1
2
6
7
8

при чем так все работает:

 For  f:=1 to 13 do
 Begin
StringGrid1.Cells[1,f]:=Format("%.4d",[brig[uch[strtoint(Form1.ComboBox8.Text),f]]]);
StringGrid1.Cells[2,f]:=Format("%f", [brigt[uch[strtoint(Form1.ComboBox8.Text),f]]]);
 End;


---

← →
Германн ©   (2009-02-11 10:35) [9]

> при чем так все работает:

Всё страньше и страньше! (с)

---

← →
Ega23 ©   (2009-02-11 10:36) [10]

> form1 - существует
>
> var
>  Form1: TForm1;


LOL!  

на тебе код:

procedure TForm1.Button1OnClick(Sender : TObject);
var
 bmp : TBitmap;
begin
 bmp.LoadFromFile("D:\test.bmp");
 Image1.Picture.Assign(bmp);
end;



Как ты думаешь, почему на первой же строчке у тебя AV вывалится?

---

← →
Sergey13 ©   (2009-02-11 10:37) [11]

> [5] Германн ©   (11.02.09 10:19)
> Количество бригад надо либо уменьшить, либо увеличить!

У автора может отдельные программы на разное количество бригад. 8-)

---

← →
Andrewtitoff ©   (2009-02-11 10:40) [12]

2 Ega23
Ну наверное потому что такого файла не существует....
А при чем тут Form1?, у меня же действительно существует.., ето единственная форма которая есть в проекте...

---

← →
Ega23 ©   (2009-02-11 10:41) [13]

> Ну наверное потому что такого файла не существует....


Всё понятно. Немедленно бери книжку в руки и читай про объекты, конструкторы, деструкторы и время жизни.

---

← →
Palladin ©   (2009-02-11 10:42) [14]

у тебя одна одна единственная вот такая комманда выполняется, она единственная на форме, и она и только она выдает ошибку?

---

← →
AIK ©   (2009-02-11 10:45) [15]

> Ega23 ©   (11.02.09 10:41) [13]


http://www.delphisources.ru/pages/faq/base/access_violation.html

---

← →
Плохиш ©   (2009-02-11 10:49) [16]

> Andrewtitoff ©   (11.02.09 10:11)
>
> Здравствуйте!, подскажите пожалуйста что тут не так?, выскакивает
> ошибка

Вообще-то здесь конференция "Начинающим", а не служба удалённой отладки бредонедокода.

---

← →
Плохиш ©   (2009-02-11 10:51) [17]

> AIK ©   (11.02.09 10:45) [15]

Ты уверен, что Ega23 твоя ссылка нужна? Может всё-таки переадресуешь её аФФтару?

---

← →
aik ©   (2009-02-11 10:51) [18]

> AIK ©   (11.02.09 10:45) [15]
> > Ega23 ©   (11.02.09 10:41) [13]


Упс... извеняюсь адресовано на пост:

> Andrewtitoff ©   (11.02.09 10:40) [12]
> 2 Ega23Ну наверное потому что такого файла не существует.
> ...А при чем тут Form1?, у меня же действительно существует.
> ., ето единственная форма которая есть в проекте...

---

← →
Andrewtitoff ©   (2009-02-11 10:53) [19]

2 Ega23
bmp:=TBitmap.Create;

2 Palladin
Да она единственная выдает, она находится в процедуре, в процедуре  задается один параметр(месяц), явно указанный (кнопка на каждый месяц)
при чем за один месяц почему то не выдает ошибку(ноябрь 2008), остальные месяцы - одинакова - AV, если нужно - могу полный код процедуры показать

---

← →
Palladin ©   (2009-02-11 10:53) [20]

представь, да, нужно, и не только мне

---

← →
Andrewtitoff ©   (2009-02-11 10:54) [21]

2 Ega23
bmp:=TBitmap.Create;

2 Palladin
Да она единственная выдает, она находится в процедуре, в процедуре  задается один параметр(месяц), явно указанный (кнопка на каждый месяц)
при чем за один месяц почему то не выдает ошибку(ноябрь 2008), остальные месяцы - одинакова - AV, если нужно - могу полный код процедуры показать

---

← →
Ega23 ©   (2009-02-11 10:55) [22]

> http://www.delphisources.ru/pages/faq/base/access_violation.html


По данной ссылке:


 TMyClass = class (TObject)
 public
   function Foo : string;
 end;

 TForm2 = class(TForm)
   Button1: TButton;
   procedure Button1Click(Sender: TObject);
 end;

var
 Form2: TForm2;

implementation

{$R *.dfm}

{ TMyClass }

function TMyClass.Foo: string;
begin
 Result := "TMyClass.Foo";
end;

procedure TForm2.Button1Click(Sender: TObject);
var
 obj : TMyClass;
begin
 ShowMessage(obj.Foo);
end;


:)

---

← →
aik ©   (2009-02-11 10:55) [23]

> при чем за один месяц почему то не выдает ошибку(ноябрь 2008)


Наверное это счастливый месяц )))

---

← →
Ega23 ©   (2009-02-11 10:56) [24]

> если нужно - могу полный код процедуры показать


Надо с этого начинать.

---

← →
Плохиш ©   (2009-02-11 10:57) [25]

> Andrewtitoff ©   (11.02.09 10:54) [21]

Маленький глупый партизан нафига ты сюда припёрся. Здесь не гестапо, партизанов не пытают, а мочат жестоко...

---

← →
Andrewtitoff ©   (2009-02-11 10:58) [26]

2 Palladin


procedure TForm1.OtchetB(s : byte);
var
   nLikeADate:Integer;
   d1 : word;
   m1 : word;
   y1 : word;
   d2 : word;
   m2 : word;
   y2 : word;
   c : integer;
count : integer;
 sms : MYString;
strc : Integer;
 i,n : integer;
   k : integer;
   o : real;
  uh : string;
  um : string;
brig : array[101..813] of integer;
brigt : array[101..813] of real;
uch : array[1..8,1..13]of integer;
const
uch1 : array[1..13]of integer =(101,102,103,104,105,106,107,0,0,0,0,0,0);
uch2 : array[1..13]of integer =(201,202,203,204,205,206,207,208,209,210,211,0,0);
uch6 : array[1..13]of integer =(601,602,603,604,605,606,607,608,609,0,0,0,0);
uch7 : array[1..13]of integer =(701,702,0,704,705,0,0,0,0,0,0,0,0);
uch8 : array[1..13]of integer =(801,802,803,804,805,806,807,808,809,810,811,812,813);
begin
for n := 1 to 13 do
Begin
uch[1,n]:=uch1[n];
uch[2,n]:=uch2[n];
uch[6,n]:=uch6[n];
uch[7,n]:=uch7[n];
uch[8,n]:=uch8[n];
End;

for n := 101 to 813 do
brig[n]:=0;
for n := 101 to 813 do
brigt[n]:=0;

   d1 := 20;
   if s=1 then m1:=12 else m1 := s-1;
   if s=1 then y1:=strtoint(Form1.Combobox9.Text)-1 else y1 := strtoint(Form1.Combobox9.Text);
   d2 := 20;
   m2 := s;
   y2 := strtoint(Form1.Combobox9.Text);

For nLikeADate:=Trunc(EncodeDate(y1,m1,d1)) to Trunc(EncodeDate(y2,m2,d2)) Do
 Begin
 if fileexists(MD+"\Z\"+DateToStr(nLikeADate)+".lft") then
  Begin

 with TFileStream.create(MD+"\Z\"+DateToStr(nLikeADate)+".lft", fmShareDenyNone) do
 try
  c:=trunc(Size/671);
 finally
   Free;
 end;

     with TFileStream.create(MD+"\Z\"+DateToStr(nLikeADate)+".lft",fmOpenRead) do
     try
      read(sms,671);
      for count := 1 to c-1 do
      begin
       read(sms,671);
       if {(sms.PLACE=Form1.ComboBox8.Text)and}(sms.Remont<>"Простой") then
  begin
if (isNumber(sms.BRIGADE))and(sms.BRIGADE<>"") then
begin
k:=strtoint(sms.BRIGADE);
      inc(brig[k]);
end
else k:=0;

      if (copy(sms.Remont,3,1)=".")and(copy(sms.Remont,6,1)=".") then
      brigt[strtoint(sms.BRIGADE)]:=brigt[strtoint(sms.BRIGADE)]+0.5 else
      Begin
      uh:=copy(sms.Prostoy,1,2);
      um:=copy(sms.Prostoy,4,2);

       if uh="" then uh:="0";
       if um="" then um:="0";

     if isNumber(um)and isNumber(uh)then
      Begin
      o:=strtoint(um)/60;
      o:=o+strtoint(uh);
      brigt[k]:=brigt[k]+o;
      End;

      End;
    end;

      end;
     finally
      Free;
     end;
     end;
     end;

ShowMessage(
" Бригада 1: "+Format("%.4d",[brig[uch[strtoint(Form1.ComboBox8.Text),1]]])+"/"+Format("%f", [brigt[uch[strtoint(Form1.ComboBox8.Text),1]]])+#13#10+
" Бригада 2: "+Format("%.4d",[brig[uch[strtoint(Form1.ComboBox8.Text),2]]])+"/"+Format("%f", [brigt[uch[strtoint(Form1.ComboBox8.Text),2]]])+#13#10+
" Бригада 3: "+Format("%.4d",[brig[uch[strtoint(Form1.ComboBox8.Text),3]]])+"/"+Format("%f", [brigt[uch[strtoint(Form1.ComboBox8.Text),3]]])+#13#10+
" Бригада 4: "+Format("%.4d",[brig[uch[strtoint(Form1.ComboBox8.Text),4]]])+"/"+Format("%f", [brigt[uch[strtoint(Form1.ComboBox8.Text),4]]])+#13#10+
" Бригада 5: "+Format("%.4d",[brig[uch[strtoint(Form1.ComboBox8.Text),5]]])+"/"+Format("%f", [brigt[uch[strtoint(Form1.ComboBox8.Text),5]]])+#13#10+
" Бригада 6: "+Format("%.4d",[brig[uch[strtoint(Form1.ComboBox8.Text),6]]])+"/"+Format("%f", [brigt[uch[strtoint(Form1.ComboBox8.Text),6]]])+#13#10+
" Бригада 7: "+Format("%.4d",[brig[uch[strtoint(Form1.ComboBox8.Text),7]]])+"/"+Format("%f", [brigt[uch[strtoint(Form1.ComboBox8.Text),7]]])+#13#10+
" Бригада 8: "+Format("%.4d",[brig[uch[strtoint(Form1.ComboBox8.Text),8]]])+"/"+Format("%f", [brigt[uch[strtoint(Form1.ComboBox8.Text),8]]])+#13#10+
" Бригада 9: "+Format("%.4d",[brig[uch[strtoint(Form1.ComboBox8.Text),9]]])+"/"+Format("%f", [brigt[uch[strtoint(Form1.ComboBox8.Text),9]]])+#13#10+
"Бригада 10: "+Format("%.4d",[brig[uch[strtoint(Form1.ComboBox8.Text),10]]])+"/"+Format("%f", [brigt[uch[strtoint(Form1.ComboBox8.Text),10]]])+#13#10+
"Бригада 11: "+Format("%.4d",[brig[uch[strtoint(Form1.ComboBox8.Text),11]]])+"/"+Format("%f", [brigt[uch[strtoint(Form1.ComboBox8.Text),11]]])+#13#10+
"Бригада 12: "+Format("%.4d",[brig[uch[strtoint(Form1.ComboBox8.Text),12]]])+"/"+Format("%f", [brigt[uch[strtoint(Form1.ComboBox8.Text),12]]])+#13#10+
"Бригада 13: "+Format("%.4d",[brig[uch[strtoint(Form1.ComboBox8.Text),13]]])+"/"+Format("%f", [brigt[uch[strtoint(Form1.ComboBox8.Text),13]]]));
end;



---

← →
Andrewtitoff ©   (2009-02-11 10:59) [27]


procedure TForm1.Button3Click(Sender: TObject);
begin
if combobox9.Text="" then ShowMessage("ОШИБКА: Введите все данные...") else
OtchetB(2);
end;


---

← →
Плохиш ©   (2009-02-11 11:00) [28]

> Ega23 ©   (11.02.09 10:56) [24]
>
>
> > если нужно - могу полный код процедуры показать
>
>
> Надо с этого начинать.

Вот тут ты не прав, о великий удалённый отладчик чужого бредокода, начинать надо было с F7/F8 ;-)

---

← →
Andrewtitoff ©   (2009-02-11 11:00) [29]

И так на каждуй месяц

---

← →
Andrewtitoff ©   (2009-02-11 11:01) [30]

2 Плохиш
F8 - не помогает.., останавливается в процедуре procedure TForm1.Button3Click(Sender: TObject);

---

← →
Сергей М. ©   (2009-02-11 11:04) [31]

> останавливается в процедуре


Это хорошо.
ну а дальше ?

---

← →
Ega23 ©   (2009-02-11 11:06) [32]

Это п-ц... какой-то....

Теперь по порядку.
1. Перепиши код без with. У тебя там вложенные встречаются, причём достаточно бездумно.
2. strtoint(Form1.ComboBox8.Text) и прочие подобные перлы должны быть вычеслены один раз. А по ходу уже значение вычесленной переменной использовать.
3. Код не просто ужасен, а (я даже слов таких не знаю). Короче, с вероятностью 0.999 в этом говнокоде никто разбираться не будет.

---

← →
Плохиш ©   (2009-02-11 11:06) [33]

> Andrewtitoff ©   (11.02.09 11:01) [30]
>
> 2 Плохиш
> F8 - не помогает

Так он просто так не помогает, его прикормить и приласкать надо.

PS. Во всех версиях делфи имеется окошко Watch, в которое можно вывести значения каких-либо переменных.

---

← →
Сергей М. ©   (2009-02-11 11:09) [34]

> п-ц... какой-то....
>


Дом-2

---

← →
Andrewtitoff ©   (2009-02-11 11:09) [35]

2 Сергей М
Дальше AV

---

← →
Сергей М. ©   (2009-02-11 11:10) [36]

> Andrewtitoff ©   (11.02.09 11:09) [35]



> Дальше AV


На какой строчке ?

---

← →
Ega23 ©   (2009-02-11 11:11) [37]

> Дом-2


В "Доме" у некоторых участников хотя бы сиськи есть. А тут...

---

← →
Германн ©   (2009-02-11 11:11) [38]

> Сергей М. ©   (11.02.09 11:09) [34]
>
>
> > п-ц... какой-то....
> >
>
>
> Дом-2
> Andrewtitoff ©   (11.02.09 11:09) [35]
>
> 2 Сергей М
> Дальше AV

Эт точно! Дурдом-2!

---

← →
aik ©   (2009-02-11 11:12) [39]

> Andrewtitoff ©   (11.02.09 11:01) [30]
> 2 ПлохишF8 - не помогает.., останавливается в процедуре
> procedure TForm1.Button3Click(Sender: TObject);


есть такая красная точечка которую можно поставить слева от первого бегина


> begin
> for n := 1 to 13 doBegin


нажав на синею точечку запустить программу нажать на кнопку и потом кликать на F8, F7 и следить где именно выходит ошибка

---

← →
Andrewtitoff ©   (2009-02-11 11:28) [40]

2 Сергей М.
На строчке
end;
в процедуре
procedure TForm1.Button3Click(Sender: TObject);

2 aik
Ставил..., все равно AV, ое ее почеиму то игнорирует...

2 Ega23
А как без with, через переменную  что ли делать?, остальное исправвил.

2 All

Я ничего не понял, но похоже Ega23 был прав все дело в многократных вычислениях strtoint(Form1.ComboBox8.Text), вот так все заработало:

begin

for n := 1 to 13 do
begin
uch[1,n]:=uch1[n];
uch[2,n]:=uch2[n];
uch[6,n]:=uch6[n];
uch[7,n]:=uch7[n];
uch[8,n]:=uch8[n];
end;

for n := 101 to 813 do
begin
brig[n]:=0;
brigt[n]:=0;
end;

   d1 := 20;
   if s=1 then m1:=12 else m1 := s-1;
   if s=1 then y1:=strtoint(Form1.Combobox9.Text)-1 else y1 := strtoint(Form1.Combobox9.Text);
   d2 := 20;
   m2 := s;
   y2 := strtoint(Form1.Combobox9.Text);

For nLikeADate:=Trunc(EncodeDate(y1,m1,d1)) to Trunc(EncodeDate(y2,m2,d2)) Do
 Begin
 if fileexists(MD+"\Z\"+DateToStr(nLikeADate)+".lft") then
  Begin
   with TFileStream.create(MD+"\Z\"+DateToStr(nLikeADate)+".lft", fmShareDenyNone) do
    try
    c:=trunc(Size/671);
    finally
    Free;
    end;
   with TFileStream.create(MD+"\Z\"+DateToStr(nLikeADate)+".lft",fmOpenRead) do
    try
    read(sms,671);
    for count := 1 to c-1 do
     begin
     read(sms,671);
     if {(sms.PLACE=Form1.ComboBox8.Text)and}(sms.Remont<>"Простой") then
      begin
      if (isNumber(sms.BRIGADE))and(sms.BRIGADE<>"") then
       begin
       k:=strtoint(sms.BRIGADE);
       inc(brig[k]);
       end
      else k:=0;

      if (copy(sms.Remont,3,1)=".")and(copy(sms.Remont,6,1)=".") then
      brigt[strtoint(sms.BRIGADE)]:=brigt[strtoint(sms.BRIGADE)]+0.5 else
       Begin
       uh:=copy(sms.Prostoy,1,2);
       um:=copy(sms.Prostoy,4,2);
       if uh="" then uh:="0";
       if um="" then um:="0";

     if isNumber(um)and isNumber(uh)then
      Begin
      o:=strtoint(um)/60;
      o:=o+strtoint(uh);
      brigt[k]:=brigt[k]+o;
      End;

     End;
    end;
   end;
  finally
  Free;
  end;
 end;
end;
f:=strtoint(Form1.ComboBox8.Text);
ShowMessage(
" Бригада 1: "+Format("%.4d",[brig[uch[f,1]]])+"/"+Format("%f", [brigt[uch[f,1]]])+#13#10+
" Бригада 2: "+Format("%.4d",[brig[uch[f,2]]])+"/"+Format("%f", [brigt[uch[f,2]]])+#13#10+
" Бригада 3: "+Format("%.4d",[brig[uch[f,3]]])+"/"+Format("%f", [brigt[uch[f,3]]])+#13#10+
" Бригада 4: "+Format("%.4d",[brig[uch[f,4]]])+"/"+Format("%f", [brigt[uch[f,4]]])+#13#10+
" Бригада 5: "+Format("%.4d",[brig[uch[f,5]]])+"/"+Format("%f", [brigt[uch[f,5]]])+#13#10+
" Бригада 6: "+Format("%.4d",[brig[uch[f,6]]])+"/"+Format("%f", [brigt[uch[f,6]]])+#13#10+
" Бригада 7: "+Format("%.4d",[brig[uch[f,7]]])+"/"+Format("%f", [brigt[uch[f,7]]])+#13#10+
" Бригада 8: "+Format("%.4d",[brig[uch[f,8]]])+"/"+Format("%f", [brigt[uch[f,8]]])+#13#10+
" Бригада 9: "+Format("%.4d",[brig[uch[f,9]]])+"/"+Format("%f", [brigt[uch[f,9]]])+#13#10+
"Бригада 10: "+Format("%.4d",[brig[uch[f,10]]])+"/"+Format("%f", [brigt[uch[f,10]]])+#13#10+
"Бригада 11: "+Format("%.4d",[brig[uch[f,11]]])+"/"+Format("%f", [brigt[uch[f,11]]])+#13#10+
"Бригада 12: "+Format("%.4d",[brig[uch[f,12]]])+"/"+Format("%f", [brigt[uch[f,12]]])+#13#10+
"Бригада 13: "+Format("%.4d",[brig[uch[f,13]]])+"/"+Format("%f", [brigt[uch[f,13]]]));
end;



---

Страницы: 1 2 вся ветка

Форум: "Начинающим";
Текущий архив: 2009.04.05;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.57 MB
Время: 0.008 c