Хостинг Портала RusFAQ.ru:
MosHoster.ru - Профессиональный хостинг на Windows 2008

РАССЫЛКИ ПОРТАЛА RUSFAQ.RU

Чемпионы рейтинга экспертов в этой рассылке

Шичко Игорь Статус: Практикант Рейтинг: 196 ∙ повысить рейтинг >>

Шевченко Дмитрий Статус: 5-й класс Рейтинг: 49 ∙ повысить рейтинг >>

Виктор Пырлик Статус: Профессионал Рейтинг: 47 ∙ повысить рейтинг >>

/ КОМПЬЮТЕРЫ И ПО / Языки программирования / Delphi

Выпуск № 1245
от 03.12.2008, 03:05

Вопрос № 151996: Здравствуйте! Помогите пожалуйста с теорией. 1. Назвите основные методы методы базового класса TObject? 2. В чём состоит отличие конструкторов, деструкторов от других методов класса? 3. Какой функцией можно заменить функцию InstanceSize?...

Вопрос № 151.996

Здравствуйте! Помогите пожалуйста с теорией. 1. Назвите основные методы методы базового класса TObject? 2. В чём состоит отличие конструкторов, деструкторов от других методов класса? 3. Какой функцией можно заменить функцию InstanceSize?

Отправлен: 27.11.2008, 01:18 Вопрос задал: compile (статус: Посетитель) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Denisss Здравствуйте, Compile! 1. Методы класса TObject: Код: ClassName - Получить имя класса объекта. ClassParent - Получить родительский класс объекта. ClassType - Получить действительный тип объекта. Create - Сконструировать новый объект. DefaultHandler - Данная виртуальная функция не имеет реализации - на уровне T0bject она ничего не делает. Destroy - Разрушить объект Free - Разрушить объект, сконструированный Create. InheritsFrom - Определить, порожден ли объект от определенного класса. InstanceSize - Определить количество памяти, отведенное объекту. Источник >&g t;> 2. Конструктор (constructor) - особый метод класса, обеспечивающий инициализацию объектов этого класса. Обычно имеет имя Create и вызывается следующим образом: <имя инициализируемого объекта> := <имя класса>.Create(<список параметров>); Особенность вызова конструктора - он вызывается с помощью ссылки на класс, а не на экземпляр класса (в отличие от других методов, которые вызываются с помощью ссылки на объект). Иначе просто нельзя - ведь экземпляр объекта в момент вызова конструктора еще не создан. Код конструктора класса статичен и находится в памяти. Он относится к классу, а не к его экземпляру. [Программирование в среде Delphi 2005. Самоучитель, стр. 120] Деструктор (destructor) - особый метод класса, обеспечивающий разрушение объектов этого класса (и, в частности, освобождение занимаемой ими обл асти в динамической памяти). Обычно имеет имя Destroy. Вызов деструктора, как правило, выполняется с помощью вспомогательного метода Free. Особенностью метода Free является то, что он не выполняет никаких действий, если значение объекта равно nil (вызов в такой ситуации деструктора Destroy приводит к исключительной ситуации EAccessViolation). Заметим, что автоматического присваивания объекту значения nil при разрушении данного объекта не происходит. В отличие от вызова конструктора, вызов деструктора выполняется с помощью ссылки на экземпляр, а не на тип. Заметьте, что нет необходимости всегда объявлять и описывать конструкторы и деструкторы. Все классы языка Delphi неявно наследуют функциональные возможности базового класса TObject, причем независимо, указано ли это наследование явно. [стр. 121] 3. InstanceSize возвращает количество байт, требуемое для размещения каждого экземпляра объекта, который вызывает метод InstanceSize. Это внутренняя функ ция и обычно разработчиками не применяется. Вместо нее используйте функцию sizeof. Источник >>> Удачи! --------- Все должно быть сделано настолько просто, насколько это возможно. Но не проще. (с) А.Эйнштейн

Ответ отправил: Denisss (статус: Профессор) Россия, Москва ICQ: 281599577 ---- Ответ отправлен: 27.11.2008, 10:24 Как сказать этому эксперту "спасибо"? Отправить SMS #thank 236866 на номер 1151 (Россия) | Еще номера >> Отправить WebMoney: Неплохо (10 руб.) Хорошо (15 руб.) Отлично (20 руб.) БЛЕСТЯЩЕ! (30 руб.) Вам помогли? Пожалуйста, поблагодарите эксперта за это! Оценка за ответ: 5 Комментарий оценки: Вот это не то, что ответ - ОТВЕТИЩЕ, спасибо за помощь!

Вопрос № 152.014

Здравствуйте! Наведите пожалуйста примеры использования этих методов. ClassName - Получить имя класса объекта. ClassParent - Получить родительский класс объекта. ClassType - Получить действительный тип объекта. Create - Сконструировать новый объект. DefaultHandler - Данная виртуальная функция не имеет реализации - на уровне T0bject она ничего не делает. Destroy - Разрушить объект Free - Разрушить объект, сконструированный Create. InheritsFroin - Определить, порожден ли объект от определенного класса. InstanceSize

Отправлен: 27.11.2008, 11:48 Вопрос задал: compile (статус: Посетитель) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Denisss Здравствуйте, compile! В приложении находится консольный проект (File -> New -> Other... -> Console Application), содержащий примеры использования вышеприведенных методов. Удачи! Приложение: program Q152014; {$APPTYPE CONSOLE} uses SysUtils, Windows; type TMyFirstClass = class end; TMySecondClass = class(TMyFirstClass) public procedure DefaultHandler(var Message); override; end; TMyThirdClass = class(TMySecondClass) end; // Преобразование кодировки // + вывод преобразованной строки procedure toOEM(const win: String); var s: String; begin SetLength(s, Length(win)); AnsiToOem(PChar(win), PChar(s)); Writeln(s); end; var Obj1: TMyFirstClass; Obj2: TMySecondClass; Obj3: TObject; { TMySecondClass } procedure TMySecondClass.DefaultHandler(var Message); begin inherited; toOEM('Объект типа TMySecondClass получил сообщение: ' + String(Message)); end; var msg: String; begin // Использование метода Create Obj1:= TMyFirstClass.Create; Obj2:= TMySecondClass.Create; Obj3:= TObject(Obj2); toOEM('Объекты успешно созданы'); // ClassName toOEM('Имя класса объекта Obj2: ' + Obj2.ClassName); // ClassParent toOEM('Родительский класс объекта Obj2: ' + Obj2.ClassParent.ClassName); // Отправляем сообщение объекту Obj2, // которое будет обрабатывать DefaultHandler msg:= 'Привет'; Obj2.Dispatch(msg); // ClassType toOEM('Тип объекта Obj3: ' + Obj3.ClassType.ClassName); // InheritsFrom if Obj2.InheritsFrom(TObject) then toOEM('Obj2 порожден от класса TObject'); if Obj2.InheritsFrom(TMyFirstClass) then toOEM('Obj2 порожден от класса TMyFirstClass'); if Obj2.InheritsFrom(TMySecondClass) then toOEM('Obj2 порожден от класса TMySecondClass'); if Obj2.InheritsFrom(TMyThirdClass) then toOEM('Obj2 порожден от класса TMyThirdClass'); toOEM('Экземпляр класса TMySecondClass занимает ' + IntToStr(TMySecondClass.InstanceSize) + ' байт(a) в памяти компьютера'); // Метод Destroy Obj1.Destroy; // Метод Free Obj2.Free; toOEM('Объекты успешно удалены'); Readln; end. --------- Все должно быть сделано настолько просто, насколько это возможно. Но не проще. (с) А.Эйнштейн

Ответ отправил: Denisss (статус: Профессор) Россия, Москва ICQ: 281599577 ---- Ответ отправлен: 28.11.2008, 22:22 Как сказать этому эксперту "спасибо"? Отправить SMS #thank 237021 на номер 1151 (Россия) | Еще номера >> Отправить WebMoney: Неплохо (10 руб.) Хорошо (15 руб.) Отлично (20 руб.) БЛЕСТЯЩЕ! (30 руб.) Вам помогли? Пожалуйста, поблагодарите эксперта за это! Оценка за ответ: 5 Комментарий оценки: Большое спасибо за ответ

Вопрос № 152.017

Здравствуйте Denisss, очень понравился Ваш предыдущий ответ, не моглы бы Вы помочь мне с созданием простенького класа Apple c несколькими полями и использованием функций Set и Get. Пасиб за помощь.

Отправлен: 27.11.2008, 11:51 Вопрос задал: compile (статус: Посетитель) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Denisss Здравствуйте, compile! В приложении пример консольного проекта (File -> New -> Other... -> Console Application) с реализацией "простенького" класса TApple. Класс TApple имеет скрытые поля weight_ и color_ (вес и цвет), методы Set (SetWeight, SetColor), Get (GetWeight, GetColor) и свойства Weight и Color для удобного доступа к полям. Функция toOEM используется для преобразования системной кодировки (Windows-1251) в OEM-кодировку (для консольного режима обычно применяется кодировка cp866). Если захотите перенести класс в отдельный модуль (unit, файл модуля имеет расширение .pas), то объявление класса должно находиться до ключевого слова implementation, а его описание - после. Функцию toOEM также нужно поставить после implementation (для GUI-приложения эта функция вовсе не нужна). Удачи! Приложение: program Q152017; {$APPTYPE CONSOLE} uses SysUtils, Windows; type TAppleColor = (acRed, acGreen, acYellow); TApple = class private weight_: Byte; // Вес яблока color_: TAppleColor; protected procedure SetWeight(const newWeight: Byte); function GetWeight: Byte; procedure SetColor(const newColor: TAppleColor); function GetColor: TAppleColor; public constructor Create(const aWeight: Byte = 100; const aColor: TAppleColor = acRed); property Color: TAppleColor read GetColor write SetColor; property Weight: Byte read GetWeight write SetWeight; end; const APPLE_COLORS: array[TAppleColor] of String = ('красное', 'зеленое', 'желтое'); // Преобразование кодировки // + вывод преобразованной строки procedure toOEM(const win: String); var s: String; begin SetLength(s, Length(win)); AnsiToOem(PChar(win), PChar(s)); Writeln(s); end; { TApple } constructor TApple.Create(const aWeight: Byte; const aColor: TAppleColor); begin inherited Create; weight_:= aWeight; color_:= aColor; end; function TApple.GetColor: TAppleColor; begin Result:= color_; end; function TApple.GetWeight: Byte; begin Result:= weight_; end; procedure TApple.SetColor(const newColor: TAppleColor); begin if (color_ = newColor) then toOEM('Цвет яблока не изменился') else toOEM('Теперь яблоко ' + APPLE_COLORS[newColor]); color_:= newColor; end; procedure TApple.SetWeight(const newWeight: Byte); begin if (newWeight < 30) then toOEM('Яблоко не может весить меньше 30-ти грамм') else if (weight_ = newWeight) then toOEM('Вес не изменился') else begin toOEM('Теперь яблоко весит ' + IntToStr(newWeight) + ' грамм'); if (newWeight > weight_) then toOEM(Format(' - это на %d грамм больше, чем раньше', [newWeight - weight_])) else toOEM(Format(' - это на %d грамм меньше, чем раньше', [weight_ - newWeight])); weight_:= newWeight; end; end; var AnApple: TApple; begin Randomize; // Создаем яблоко случайного размера и цвета AnApple:= TApple.Create(Random(226) + 30, TAppleColor(Random(3))); // Получаем цвет яблока toOEM('Яблоко ' + APPLE_COLORS[AnApple.Color]); // Вес яблока toOEM('весит ' + IntToStr(AnApple.Weight) + ' грамм'); writeln; // Устанавливаем цвет яблока AnApple.Color:= acYellow; // Вес яблока AnApple.Weight:= 20; AnApple.Weight:= 100; // Удаляем яблоко AnApple.Free; Readln; end. --------- Все должно быть сделано настолько просто, насколько это возможно. Но не проще. (с) А.Эйнштейн

Ответ отправил: Denisss (статус: Профессор) Россия, Москва ICQ: 281599577 ---- Ответ отправлен: 28.11.2008, 23:04 Как сказать этому эксперту "спасибо"? Отправить SMS #thank 237026 на номер 1151 (Россия) | Еще номера >> Отправить WebMoney: Неплохо (10 руб.) Хорошо (15 руб.) Отлично (20 руб.) БЛЕСТЯЩЕ! (30 руб.) Вам помогли? Пожалуйста, поблагодарите эксперта за это! Оценка за ответ: 5 Комментарий оценки: Ну что могу сказать?!?!?! Вы просто радуете своими ответами. СПАСИБО

Вопрос № 152.019

здраствуйте можете помоч с задачей..у меня в субботу экзамен..а я некаторые не могу зделать..вот одна из них: Создайте приложение, на форму которого помещены компоненты: Button и PaintBox. Для компонента Button создайте обработчик события OnClick. В его теле напишите код, который рисует на компоненте PaintBox 1000 точек случайными цветами. Также точки должны быть случайным образом распределены по всей области компонента PaintBox.

Отправлен: 27.11.2008, 13:02 Вопрос задал: StreetBit (статус: Посетитель) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 2)

Отвечает: Genia007 Здравствуйте, StreetBit! Вот накидал процедуру, по нажатию кнопки выводится 1000 точек в произвольное место PaintBox и произвольным цветом: procedure TForm1.Button1Click(Sender: TObject); var i: word; begin Randomize; for i:= 1 to 1000 do begin PaintBox1.Canvas.Pixels[random(paintbox1.Width), random(paintbox1.Height)]:= random(19999999); end; end; --------- Помогли тебе, помоги и ты.

Ответ отправил: Genia007 (статус: Студент) Ответ отправлен: 27.11.2008, 13:49 Как сказать этому эксперту "спасибо"? Отправить SMS #thank 236875 на номер 1151 (Россия) | Еще номера >> Отправить WebMoney: Неплохо (10 руб.) Хорошо (15 руб.) Отлично (20 руб.) БЛЕСТЯЩЕ! (30 руб.) Вам помогли? Пожалуйста, поблагодарите эксперта за это! Оценка за ответ: 5 Комментарий оценки: спасиб,оч помогли)

Вопрос № 152.025

Здрасте снова..спс за прошлую задачу..вот есчо одна!!заранее спс_)) Создайте приложение, на форму которого помещены компоненты: Timer и Button. При нажатии на кнопку Button включается таймер. В обработчике события OnTimer компонента Timer с интервалом в 2 секунды происходит случайное изменение положения компонента Button в пределах формы. При повторном нажатии на кнопку интервал таймера уменьшается в два раза, при ещё одном нажатии — ещё в два раза и так далее.

Отправлен: 27.11.2008, 14:23 Вопрос задал: StreetBit (статус: Посетитель) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 5)

Отвечает: Шичко Игорь Здравствуйте, StreetBit! примерно так. Код в приложении. Button2 - для остановки таймера. Приложение: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls; type TForm1 = class(TForm) Timer1: TTimer; Button1: TButton; Button2: TButton; procedure Timer1Timer(Sender: TObject); procedure Button1Click(Sender: TObject); procedure FormActivate(Sender: TObject); procedure Button2Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; pusk: boolean; implementation {$R *.dfm} procedure TForm1.Timer1Timer(Sender: TObject); begin Button1.Left:= Random(Width); Button1.top:= Random(Height); end; procedure TForm1.Button1Click(Sender: TObject); begin if pusk then Timer1.Interval:= Round(Timer1.Interval / 2); if not pusk then begin Timer1.Enabled:= True; pusk:= True; end; end; procedure TForm1.FormActivate(Sender: TObject); begin Timer1.Interval:= 2000; Timer1.Enabled:= False; pusk:= False; end; procedure TForm1.Button2Click(Sender: TObject); begin Timer1.Enabled:= False; end; end.

Ответ отправил: Шичко Игорь (статус: Практикант) Ответ отправлен: 27.11.2008, 14:46 Как сказать этому эксперту "спасибо"? Отправить SMS #thank 236878 на номер 1151 (Россия) | Еще номера >> Отправить WebMoney: Неплохо (10 руб.) Хорошо (15 руб.) Отлично (20 руб.) БЛЕСТЯЩЕ! (30 руб.) Вам помогли? Пожалуйста, поблагодарите эксперта за это! Оценка за ответ: 5

Вопрос № 152.072

Помогите плиз разобраться с циклом. procedure TForm1.Button1Click(Sender: TObject); var FUin, FPas, str:string; k:LongInt; begin for k:=0 to listbox1.Count -1 do begin str:=listbox1.items[k]; FUin := Copy(str, 0, Pos(';', str) - 1); Delete(str, 1, Pos(';', str)); FPas := str; ICQClient1.ConvertToPlaintext := True; ICQClient1.UIN := StrToInt(FUin); ICQClient1.Password := FPas; try ICQClient1.Login(); label5.Caption:='Wait...'; except label5.Caption:='No Connect'; end; end; end; смысл таков, я загружаю в лист бокс данные для входа в icq в формате номер;пароль, и должно происходить последовательное подключение к номерам из лист бокса, но этого не происходит, он просто коннектится к самому последнему номеру в списке.

Отправлен: 27.11.2008, 20:18 Вопрос задал: Akahaos (статус: Посетитель) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 6)

Отвечает: Del Здравствуйте, Akahaos! А тут так будет. У тебя нет условия прерывания цикла. Смотри: ты подключаешься к первому уину. На следующем проходе - ко второму. Соединение с первым, ессесно, разрывается. И так до самого конца. А каких результатов ожидал ты, если не секрет? --------- Только массовые расстрелы спасут Родину!

Ответ отправил: Del (статус: 2-й класс) Ответ отправлен: 27.11.2008, 20:26 Как сказать этому эксперту "спасибо"? Отправить SMS #thank 236910 на номер 1151 (Россия) | Еще номера >> Отправить WebMoney: Неплохо (10 руб.) Хорошо (15 руб.) Отлично (20 руб.) БЛЕСТЯЩЕ! (30 руб.) Вам помогли? Пожалуйста, поблагодарите эксперта за это!

Вопрос № 152.084

Здравствуйте!!! Помогите, пожалуйста!!!! Задание было такое: Если в результате замены отрицательных элементов массива их квадратами элементы массива по строкам образуют убывающую последовательность, то найти сумму элементов каждой строки, иначе определить – произведение Вылетает ошибка:project raised exception class econverterror? Приложение: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Grids; type TForm1 = class(TForm) StringGrid1: TStringGrid; Button1: TButton; Button2: TButton; Edit1: TEdit; Edit2: TEdit; Memo1: TMemo; Label1: TLabel; Label2: TLabel; procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; col: longInt; row: longInt; t, i,j: longInt; str_buf:string; buf:Extended; summ: array[0..100] of Extended; umn: array[0..100] of Extended; kol: longInt; implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); begin //размер матрицы col:=StrToInt(edit1.Text); row:=StrToInt(edit2.Text); stringgrid1.colcount:=col; stringgrid1.rowcount:=row; end; procedure TForm1.Button2Click(Sender: TObject); begin For i:=0 to col-1 do begin For j:=0 to row-1 do begin if strtofloat(StringGrid1.Cells[i,j])<0 then begin buf:=sqr(StrToFloat(StringGrid1.Cells[i,j])); str_buf:=FloatToStr(buf{,ffFixed,2,10}); StringGrid1.Cells[i,j]:=str_buf; end; end; end; i:=0; While i<col do begin for j:=0 to row-1 do begin if abs(StrToFloat(StringGrid1.Cells[i,j]))>0.0001 then begin summ[i]:=summ[i]+StrToFloat(StringGrid1.Cells[i,j]); umn[i]:=umn[i]*StrToFloat(StringGrid1.Cells[i,j]); end else begin summ[i-1]:=summ[i-1]+0.0001; umn[i-1]:=umn[i-1]*0.0001; end; end; i:=i+1; end; kol:=1; For i:=0 to col-1 do begin For j:=0 to row-1 do begin if StrToFloat(StringGrid1.Cells[i,j])<StrToFloat(StringGrid1.Cells[i,j+1]) then kol:=kol+1; end; end; t:=col*row; if (kol=t) then begin for i:=0 to col-1 do memo1.Lines.Add(FloatToStr(summ[i]{,ffFixed,2,10})); end else memo1.Lines.Add(FloatToStr(umn[i]{,ffFixed,2,10})); end; end.

Отправлен: 27.11.2008, 21:33 Вопрос задал: Kirill_kill (статус: Посетитель) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Del Здравствуйте, Kirill_kill! Где-то в гриде присутствуют не только цифры, но еще и буквы (пробел - тоже считается, если что). Кроме того, могу допустить косяк с десятичным разделителем. В целом - делай так: везде, где StrToFloat используешь, предварительно пиши (введи переменную S: string): S := Trim(StringGrid1.Cells[i,j]); //Убрали лишние пробелы S := AnsiReplaceStr(S, '.', DecimalSeparator); // заменили точку на тот разделитель, который стоит в системе S := AnsiReplaceStr(S, ',', DecimalSeparator); // заменили запятую на тот разделитель, который стоит в системе Кстати, не забудь подключить StrUtils. Поехали дальше. Пишем вместо StrToFloat(StringGrid1.Cells[i,j]) вот такое (допиши переменную F: Double): F := StrToFloatDef(S, -31337); // если не получилось перевести строку в число, то результатом будет число, указанное вторым параметром функции StrToFloatDef if F = -31337 then ShowMessage(S+' не является числом') Ну, будем надеяться, дальше и сам справишься, иначе нафига ты в учебное заведение пошел? :) P.S. Все вышесказанное относится и к StrToInt (соответственно, используем StrToIntDef) --------- Только массовые расстрелы спасут Родину!

Ответ отправил: Del (статус: 2-й класс) Ответ отправлен: 27.11.2008, 21:45 Как сказать этому эксперту "спасибо"? Отправить SMS #thank 236919 на номер 1151 (Россия) | Еще номера >> Отправить WebMoney: Неплохо (10 руб.) Хорошо (15 руб.) Отлично (20 руб.) БЛЕСТЯЩЕ! (30 руб.) Вам помогли? Пожалуйста, поблагодарите эксперта за это! Оценка за ответ: 5 Комментарий оценки: Спасиб!!! Щас буду пробовать

Вопрос № 152.123

Здравствуйте! Объясните пожалуйста зачем для метода InstanceSize нужно использовать функцию IntToStr ?

Отправлен: 28.11.2008, 02:18 Вопрос задал: compile (статус: Посетитель) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 1)

Отвечает: Delph Здравствуйте, compile! Метод IntToStr отображает в строковом виде целое число, полученное им в качестве параметра. Внутри программы при проверках и расчётах числа удобнее использовать в их родном формате (Integer, Double и т.д. - в зависимости от конкретной задачи). Но для того, чтобы это число смог прочитать пользователь программы, его приходится преобразовывать к строковому написанию. Предполагаю, что в примере, где Вы это увидели, происходит присваивание значения (изначально целочисленного) метке (что-то вроде Label1.Caption := IntToStr(объект.InstanceSize)) или полю редактирования (Edit1.Text := IntToStr(объект.InstanceSize)). Если я ошибся, поправьте меня и привидите сам пример, тогда появится возможность прокомментировать его более подробно. --------- Сомневайся во всём! Реальность часто бывает не такой, как мы о ней думаем.

Ответ отправил: Delph (статус: Практикант) Ответ отправлен: 28.11.2008, 12:22 Как сказать этому эксперту "спасибо"? Отправить SMS #thank 236970 на номер 1151 (Россия) | Еще номера >> Отправить WebMoney: Неплохо (10 руб.) Хорошо (15 руб.) Отлично (20 руб.) БЛЕСТЯЩЕ! (30 руб.) Вам помогли? Пожалуйста, поблагодарите эксперта за это! Оценка за ответ: 5 Комментарий оценки: Пасиб большое

© 2001-2008, Портал RusFAQ.ru, Россия, Москва. Авторское право: ООО "Мастер-Эксперт Про" Техподдержка портала, тел.: +7 (926) 535-23-31 Хостинг: "Московский хостер" Поддержка: "Московский дизайнер" Авторские права | Реклама на портале ∙ Версия системы: 5.13 от 01.12.2008
RusFAQ.ru | MosHoster.ru | MosDesigner.ru RusIRC.ru | Kalashnikoff.ru | RadioLeader.ru