Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > БД в Delphi
Перезагрузить страницу Переделка кода от BDE на Firebird!
Регистрация

Восстановить пароль
Регистрация Задать
вопрос		 Заплачу
за решение		 Новые
сообщения 		Сообщения
за день 		Расширенный
поиск		 Правила Всё
прочитано

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
Страница 1 из 3 1 23
 
Опции темы Поиск в этой теме
Старый 12.12.2009, 17:03   #1
artemavd
Старожил
 
Аватар для artemavd
 
Регистрация: 05.06.2008
Сообщений: 4,210
Восклицание Переделка кода от BDE на Firebird!
Добрый вечер, друзья! Вот код, который работал на BDE:
Код:
procedure TForm2.BitBtn1Click(Sender: TObject);
var
 i:integer;
begin
 i:=1;
 while Form1.SG9.Cells[1,i] <> '' do begin
  if Form2.Table_infa.Locate('LAST_NAME;FIRST_NAME;OTCHESTVO',VarArrayOf([Form1.SG9.Cells[1,i],
                                 Form1.SG9.Cells[2,i],Form1.SG9.Cells[3,i]]),
                                 [loCaseInsensitive,loPartialKey]) = False then
  begin
     Form2.Table_infa.Insert;
     Form2.Table_infa.FieldByName('KLASS').AsString:=Form1.Edit2.Text;
     Form2.Table_infa.FieldByName('LAST_NAME').AsString:=Form1.SG9.Cells[1,i];
     Form2.Table_infa.FieldByName('FIRST_NAME').AsString:=Form1.SG9.Cells[2,i];
     Form2.Table_infa.FieldByName('OTCHESTVO').AsString:=Form1.SG9.Cells[3,i];
     Form2.Table_infa.Post;
     Form2.Table_infa.Refresh;
  end;

  if Form2.Table_period.Locate('Chetvert;GOD',VarArrayOf([Form1.DBLookupComboBox2.Text,
                                                Form1.Edit3.Text]),
                                 [loCaseInsensitive,loPartialKey]) = False then
  begin
   Form2.Table_period.Insert;
   Form2.Table_period.FieldByName('Chetvert').AsString:=Form1.DBLookupComboBox2.Text;
   Form2.Table_period.FieldByName('GOD').AsString:=Form1.Edit3.Text;
   Form2.Table_period.Post;
   Form2.Table_period.Refresh;
  end;
Не стоит смеяться над человеком делающим шаг назад, возможно он делает разбег.
artemavd вне форума Ответить с цитированием
Старый 12.12.2009, 17:04   #2
artemavd
Старожил
 
Аватар для artemavd
 
Регистрация: 05.06.2008
Сообщений: 4,210
По умолчанию
Продолжение первого кода:
Код:
  if Form1.DBLookupComboBox2.Text = '1 четверть' then
    begin
   Form2.Table_pokazateli.Insert;
   Form2.Table_pokazateli.FieldByName('ID_Chetvert').AsString:='1 четверть';
   Form2.Table_pokazateli.FieldByName('Predmet').AsString:=Form1.DBLookupComboBox1.Text;
   Form2.Table_pokazateli.FieldByName('DVOEK').AsString:=Form1.SG2.Cells[0,i];
   Form2.Table_pokazateli.FieldByName('TROEK').AsString:=Form1.SG2.Cells[1,i];
   Form2.Table_pokazateli.FieldByName('CHETVEROK').AsString:=Form1.SG2.Cells[2,i];
   Form2.Table_pokazateli.FieldByName('PYTEROK').AsString:=Form1.SG2.Cells[3,i];
   Form2.Table_pokazateli.FieldByName('Propuski').AsString:=Form1.SG2.Cells[4,i];
   Form2.Table_pokazateli.FieldByName('KO').AsString:=Form1.SG3.Cells[0,i];
   Form2.Table_pokazateli.FieldByName('SB').AsString:=Form1.SG3.Cells[1,i];
   Form2.Table_pokazateli.FieldByName('KY').AsString:=Form1.SG3.Cells[2,i];
   Form2.Table_pokazateli.FieldByName('Y').AsString:=Form1.SG3.Cells[3,i];
   Form2.Table_pokazateli.FieldByName('O').AsString:=Form1.SG3.Cells[4,i];
   Form2.Table_pokazateli.FieldByName('CHO').AsString:=Form1.SG3.Cells[5,i];
   Form2.Table_pokazateli.Post;
   Form2.Table_pokazateli.Refresh;
     end;

  if Form1.DBLookupComboBox2.Text = '2 четверть' then
    begin
   Form2.Table_pokazateli.Insert;
   Form2.Table_pokazateli.FieldByName('ID_Chetvert').AsString:='2 четверть';
   Form2.Table_pokazateli.FieldByName('Predmet').AsString:=Form1.DBLookupComboBox1.Text;
   Form2.Table_pokazateli.FieldByName('DVOEK').AsString:=Form1.SG2.Cells[0,i];
   Form2.Table_pokazateli.FieldByName('TROEK').AsString:=Form1.SG2.Cells[1,i];
   Form2.Table_pokazateli.FieldByName('CHETVEROK').AsString:=Form1.SG2.Cells[2,i];
   Form2.Table_pokazateli.FieldByName('PYTEROK').AsString:=Form1.SG2.Cells[3,i];
   Form2.Table_pokazateli.FieldByName('Propuski').AsString:=Form1.SG2.Cells[4,i];
   Form2.Table_pokazateli.FieldByName('KO').AsString:=Form1.SG3.Cells[0,i];
   Form2.Table_pokazateli.FieldByName('SB').AsString:=Form1.SG3.Cells[1,i];
   Form2.Table_pokazateli.FieldByName('KY').AsString:=Form1.SG3.Cells[2,i];
   Form2.Table_pokazateli.FieldByName('Y').AsString:=Form1.SG3.Cells[3,i];
   Form2.Table_pokazateli.FieldByName('O').AsString:=Form1.SG3.Cells[4,i];
   Form2.Table_pokazateli.FieldByName('CHO').AsString:=Form1.SG3.Cells[5,i];
   Form2.Table_pokazateli.Post;
   Form2.Table_pokazateli.Refresh;
     end;

  if Form1.DBLookupComboBox2.Text = '3 четверть' then
    begin
   Form2.Table_pokazateli.Insert;
   Form2.Table_pokazateli.FieldByName('ID_Chetvert').AsString:='3 четверть';
   Form2.Table_pokazateli.FieldByName('Predmet').AsString:=Form1.DBLookupComboBox1.Text;
   Form2.Table_pokazateli.FieldByName('DVOEK').AsString:=Form1.SG2.Cells[0,i];
   Form2.Table_pokazateli.FieldByName('TROEK').AsString:=Form1.SG2.Cells[1,i];
   Form2.Table_pokazateli.FieldByName('CHETVEROK').AsString:=Form1.SG2.Cells[2,i];
   Form2.Table_pokazateli.FieldByName('PYTEROK').AsString:=Form1.SG2.Cells[3,i];
   Form2.Table_pokazateli.FieldByName('Propuski').AsString:=Form1.SG2.Cells[4,i];
   Form2.Table_pokazateli.FieldByName('KO').AsString:=Form1.SG3.Cells[0,i];
   Form2.Table_pokazateli.FieldByName('SB').AsString:=Form1.SG3.Cells[1,i];
   Form2.Table_pokazateli.FieldByName('KY').AsString:=Form1.SG3.Cells[2,i];
   Form2.Table_pokazateli.FieldByName('Y').AsString:=Form1.SG3.Cells[3,i];
   Form2.Table_pokazateli.FieldByName('O').AsString:=Form1.SG3.Cells[4,i];
   Form2.Table_pokazateli.FieldByName('CHO').AsString:=Form1.SG3.Cells[5,i];
   Form2.Table_pokazateli.Post;
   Form2.Table_pokazateli.Refresh;
     end;

  if Form1.DBLookupComboBox2.Text = '4 четверть' then
    begin
   Form2.Table_pokazateli.Insert;
   Form2.Table_pokazateli.FieldByName('ID_Chetvert').AsString:='4 четверть';
   Form2.Table_pokazateli.FieldByName('Predmet').AsString:=Form1.DBLookupComboBox1.Text;
   Form2.Table_pokazateli.FieldByName('DVOEK').AsString:=Form1.SG2.Cells[0,i];
   Form2.Table_pokazateli.FieldByName('TROEK').AsString:=Form1.SG2.Cells[1,i];
   Form2.Table_pokazateli.FieldByName('CHETVEROK').AsString:=Form1.SG2.Cells[2,i];
   Form2.Table_pokazateli.FieldByName('PYTEROK').AsString:=Form1.SG2.Cells[3,i];
   Form2.Table_pokazateli.FieldByName('Propuski').AsString:=Form1.SG2.Cells[4,i];
   Form2.Table_pokazateli.FieldByName('KO').AsString:=Form1.SG3.Cells[0,i];
   Form2.Table_pokazateli.FieldByName('SB').AsString:=Form1.SG3.Cells[1,i];
   Form2.Table_pokazateli.FieldByName('KY').AsString:=Form1.SG3.Cells[2,i];
   Form2.Table_pokazateli.FieldByName('Y').AsString:=Form1.SG3.Cells[3,i];
   Form2.Table_pokazateli.FieldByName('O').AsString:=Form1.SG3.Cells[4,i];
   Form2.Table_pokazateli.FieldByName('CHO').AsString:=Form1.SG3.Cells[5,i];
   Form2.Table_pokazateli.Post;
   Form2.Table_pokazateli.Refresh;
     end;
  Inc(i);
 end;
end;
Не стоит смеяться над человеком делающим шаг назад, возможно он делает разбег.
artemavd вне форума Ответить с цитированием
Старый 12.12.2009, 17:05   #3
artemavd
Старожил
 
Аватар для artemavd
 
Регистрация: 05.06.2008
Сообщений: 4,210
По умолчанию
Я пытался переделать его под Firebird и получилось так:
Код:
procedure TForm13.sBitBtn1Click(Sender: TObject);
var
 i:integer;
begin
 i:=1;
 while Form1.SG1.Cells[1,i] <> '' do
 begin
  if Form13.pFIBDataSet_spisok.Locate('FAMILIY;IMY;OTCHEST',VarArrayOf([Form1.SG1.Cells[1,i],
                                 Form1.SG1.Cells[2,i],Form1.SG1.Cells[3,i]]),
                                 [loCaseInsensitive,loPartialKey]) = False then
 begin
     Form13.pFIBDataSet_rezult.Insert;
     Form13.pFIBDataSet_rezult.Close;
     Form13.pFIBDataSet_rezult.FieldByName('IDINFO').AsInteger:=StrToInt(Form1.SG1.Cells[4,i]);
     Form13.pFIBDataSet_rezult.FieldByName('KO').AsInteger:=StrToInt(Form1.SG3.Cells[0,i]);
     Form13.pFIBDataSet_rezult.FieldByName('SB').AsInteger:=StrToInt(Form1.SG3.Cells[1,i]);
     Form13.pFIBDataSet_rezult.FieldByName('KY').AsInteger:=StrToInt(Form1.SG3.Cells[2,i]);
     Form13.pFIBDataSet_rezult.FieldByName('Y').AsInteger:=StrToInt(Form1.SG3.Cells[3,i]);
     Form13.pFIBDataSet_rezult.FieldByName('O').AsInteger:=StrToInt(Form1.SG3.Cells[4,i]);
     Form13.pFIBDataSet_rezult.FieldByName('CHO').AsInteger:=StrToInt(Form1.SG3.Cells[5,i]);
     Form13.pFIBDataSet_rezult.FieldByName('PROPUSKI').AsInteger:=StrToInt(Form1.SG2.Cells[4,i]);
     Form13.pFIBDataSet_rezult.Post;
     Form13.pFIBDataSet_rezult.Refresh;
     Form13.pFIBDataSet_rezult.Open;
  end;
 end;
Не стоит смеяться над человеком делающим шаг назад, возможно он делает разбег.
artemavd вне форума Ответить с цитированием
Старый 12.12.2009, 17:07   #4
artemavd
Старожил
 
Аватар для artemavd
 
Регистрация: 05.06.2008
Сообщений: 4,210
По умолчанию
Продолжение второго кода:
Код:
  if Form18.sLabel7.Caption = '1' then
    begin
   Form13.pFIBDataSet_rezult.Insert;
   Form13.pFIBDataSet_rezult.Close;
   Form13.pFIBDataSet_rezult.FieldByName('IDCHETVERT').AsInteger:=StrToInt(Form18.sLabel7.Caption);
   Form13.pFIBDataSet_rezult.FieldByName('IDPREDMET').AsInteger:=StrToInt(Form18.sLabel8.Caption);
   Form13.pFIBDataSet_rezult.FieldByName('IDINFO').AsInteger:=StrToInt(Form1.SG1.Cells[4,i]);
   Form13.pFIBDataSet_rezult.FieldByName('DVOEK').AsInteger:=StrToInt(Form1.SG2.Cells[0,i]);
   Form13.pFIBDataSet_rezult.FieldByName('TROEK').AsInteger:=StrToInt(Form1.SG2.Cells[1,i]);
   Form13.pFIBDataSet_rezult.FieldByName('CHETVEROK').AsInteger:=StrToInt(Form1.SG2.Cells[2,i]);
   Form13.pFIBDataSet_rezult.FieldByName('PYTEROK').AsInteger:=StrToInt(Form1.SG2.Cells[3,i]);
   Form13.pFIBDataSet_rezult.FieldByName('PROPUSKI').AsInteger:=StrToInt(Form1.SG2.Cells[4,i]);
   Form13.pFIBDataSet_rezult.FieldByName('KO').AsInteger:=StrToInt(Form1.SG3.Cells[0,i]);
   Form13.pFIBDataSet_rezult.FieldByName('SB').AsInteger:=StrToInt(Form1.SG3.Cells[1,i]);
   Form13.pFIBDataSet_rezult.FieldByName('KY').AsInteger:=StrToInt(Form1.SG3.Cells[2,i]);
   Form13.pFIBDataSet_rezult.FieldByName('Y').AsInteger:=StrToInt(Form1.SG3.Cells[3,i]);
   Form13.pFIBDataSet_rezult.FieldByName('O').AsInteger:=StrToInt(Form1.SG3.Cells[4,i]);
   Form13.pFIBDataSet_rezult.FieldByName('CHO').AsInteger:=StrToInt(Form1.SG3.Cells[5,i]);
   Form13.pFIBDataSet_rezult.Post;
   Form13.pFIBDataSet_rezult.Refresh;
   Form13.pFIBDataSet_rezult.Open;
     end;

  if Form18.sLabel7.Caption = '2' then
    begin
   Form13.pFIBDataSet_rezult.Insert;
   Form13.pFIBDataSet_rezult.Close;
   Form13.pFIBDataSet_rezult.FieldByName('IDCHETVERT').AsInteger:=StrToInt(Form18.sLabel7.Caption);
   Form13.pFIBDataSet_rezult.FieldByName('IDPREDMET').AsInteger:=StrToInt(Form18.sLabel8.Caption);
   Form13.pFIBDataSet_rezult.FieldByName('IDINFO').AsInteger:=StrToInt(Form1.SG1.Cells[4,i]);
   Form13.pFIBDataSet_rezult.FieldByName('DVOEK').AsInteger:=StrToInt(Form1.SG2.Cells[0,i]);
   Form13.pFIBDataSet_rezult.FieldByName('TROEK').AsInteger:=StrToInt(Form1.SG2.Cells[1,i]);
   Form13.pFIBDataSet_rezult.FieldByName('CHETVEROK').AsInteger:=StrToInt(Form1.SG2.Cells[2,i]);
   Form13.pFIBDataSet_rezult.FieldByName('PYTEROK').AsInteger:=StrToInt(Form1.SG2.Cells[3,i]);
   Form13.pFIBDataSet_rezult.FieldByName('PROPUSKI').AsInteger:=StrToInt(Form1.SG2.Cells[4,i]);
   Form13.pFIBDataSet_rezult.FieldByName('KO').AsInteger:=StrToInt(Form1.SG3.Cells[0,i]);
   Form13.pFIBDataSet_rezult.FieldByName('SB').AsInteger:=StrToInt(Form1.SG3.Cells[1,i]);
   Form13.pFIBDataSet_rezult.FieldByName('KY').AsInteger:=StrToInt(Form1.SG3.Cells[2,i]);
   Form13.pFIBDataSet_rezult.FieldByName('Y').AsInteger:=StrToInt(Form1.SG3.Cells[3,i]);
   Form13.pFIBDataSet_rezult.FieldByName('O').AsInteger:=StrToInt(Form1.SG3.Cells[4,i]);
   Form13.pFIBDataSet_rezult.FieldByName('CHO').AsInteger:=StrToInt(Form1.SG3.Cells[5,i]);
   Form13.pFIBDataSet_rezult.Post;
   Form13.pFIBDataSet_rezult.Refresh;
   Form13.pFIBDataSet_rezult.Open;
     end;

  if Form18.sLabel7.Caption = '3' then
    begin
   Form13.pFIBDataSet_rezult.Insert;
   Form13.pFIBDataSet_rezult.Close;
   Form13.pFIBDataSet_rezult.FieldByName('IDCHETVERT').AsInteger:=StrToInt(Form18.sLabel7.Caption);
   Form13.pFIBDataSet_rezult.FieldByName('IDPREDMET').AsInteger:=StrToInt(Form18.sLabel8.Caption);
   Form13.pFIBDataSet_rezult.FieldByName('IDINFO').AsInteger:=StrToInt(Form1.SG1.Cells[4,i]);
   Form13.pFIBDataSet_rezult.FieldByName('DVOEK').AsInteger:=StrToInt(Form1.SG2.Cells[0,i]);
   Form13.pFIBDataSet_rezult.FieldByName('TROEK').AsInteger:=StrToInt(Form1.SG2.Cells[1,i]);
   Form13.pFIBDataSet_rezult.FieldByName('CHETVEROK').AsInteger:=StrToInt(Form1.SG2.Cells[2,i]);
   Form13.pFIBDataSet_rezult.FieldByName('PYTEROK').AsInteger:=StrToInt(Form1.SG2.Cells[3,i]);
   Form13.pFIBDataSet_rezult.FieldByName('PROPUSKI').AsInteger:=StrToInt(Form1.SG2.Cells[4,i]);
   Form13.pFIBDataSet_rezult.FieldByName('KO').AsInteger:=StrToInt(Form1.SG3.Cells[0,i]);
   Form13.pFIBDataSet_rezult.FieldByName('SB').AsInteger:=StrToInt(Form1.SG3.Cells[1,i]);
   Form13.pFIBDataSet_rezult.FieldByName('KY').AsInteger:=StrToInt(Form1.SG3.Cells[2,i]);
   Form13.pFIBDataSet_rezult.FieldByName('Y').AsInteger:=StrToInt(Form1.SG3.Cells[3,i]);
   Form13.pFIBDataSet_rezult.FieldByName('O').AsInteger:=StrToInt(Form1.SG3.Cells[4,i]);
   Form13.pFIBDataSet_rezult.FieldByName('CHO').AsInteger:=StrToInt(Form1.SG3.Cells[5,i]);
   Form13.pFIBDataSet_rezult.Post;
   Form13.pFIBDataSet_rezult.Refresh;
   Form13.pFIBDataSet_rezult.Open;
     end;
Не стоит смеяться над человеком делающим шаг назад, возможно он делает разбег.
artemavd вне форума Ответить с цитированием
Старый 12.12.2009, 17:07   #5
artemavd
Старожил
 
Аватар для artemavd
 
Регистрация: 05.06.2008
Сообщений: 4,210
По умолчанию
Продолжение второго кода из поста №5:
Код:
  if Form18.sLabel7.Caption = '4' then
    begin
   Form13.pFIBDataSet_rezult.Insert;
   Form13.pFIBDataSet_rezult.Close;
   Form13.pFIBDataSet_rezult.FieldByName('IDCHETVERT').AsInteger:=StrToInt(Form18.sLabel7.Caption);
   Form13.pFIBDataSet_rezult.FieldByName('IDPREDMET').AsInteger:=StrToInt(Form18.sLabel8.Caption);
   Form13.pFIBDataSet_rezult.FieldByName('IDINFO').AsInteger:=StrToInt(Form1.SG1.Cells[4,i]);
   Form13.pFIBDataSet_rezult.FieldByName('DVOEK').AsInteger:=StrToInt(Form1.SG2.Cells[0,i]);
   Form13.pFIBDataSet_rezult.FieldByName('TROEK').AsInteger:=StrToInt(Form1.SG2.Cells[1,i]);
   Form13.pFIBDataSet_rezult.FieldByName('CHETVEROK').AsInteger:=StrToInt(Form1.SG2.Cells[2,i]);
   Form13.pFIBDataSet_rezult.FieldByName('PYTEROK').AsInteger:=StrToInt(Form1.SG2.Cells[3,i]);
   Form13.pFIBDataSet_rezult.FieldByName('PROPUSKI').AsInteger:=StrToInt(Form1.SG2.Cells[4,i]);
   Form13.pFIBDataSet_rezult.FieldByName('KO').AsInteger:=StrToInt(Form1.SG3.Cells[0,i]);
   Form13.pFIBDataSet_rezult.FieldByName('SB').AsInteger:=StrToInt(Form1.SG3.Cells[1,i]);
   Form13.pFIBDataSet_rezult.FieldByName('KY').AsInteger:=StrToInt(Form1.SG3.Cells[2,i]);
   Form13.pFIBDataSet_rezult.FieldByName('Y').AsInteger:=StrToInt(Form1.SG3.Cells[3,i]);
   Form13.pFIBDataSet_rezult.FieldByName('O').AsInteger:=StrToInt(Form1.SG3.Cells[4,i]);
   Form13.pFIBDataSet_rezult.FieldByName('CHO').AsInteger:=StrToInt(Form1.SG3.Cells[5,i]);
   Form13.pFIBDataSet_rezult.Post;
   Form13.pFIBDataSet_rezult.Refresh;
   Form13.pFIBDataSet_rezult.Open;
     end;
  Inc(i);
 end;
Проблема в том, что когда я нажимаю на кнопку со вторым кодом, то приложение как бы "зависает" и ни туда, и ни сюда. Приходится его "убивать". Но и записи не заносятся. В чем моя ошибка? Где я ошибся?
Не стоит смеяться над человеком делающим шаг назад, возможно он делает разбег.
artemavd вне форума Ответить с цитированием
Старый 12.12.2009, 17:11   #6
mihali4
*
Старожил
 
Регистрация: 22.11.2006
Сообщений: 9,201
По умолчанию
Так пройдитесь по шагам и посмотрите, в каком месте зависает...
mihali4 вне форума Ответить с цитированием
Старый 12.12.2009, 17:20   #7
artemavd
Старожил
 
Аватар для artemavd
 
Регистрация: 05.06.2008
Сообщений: 4,210
По умолчанию
Если я иду по F8, то ошибок никаких нет при компиляции (их и так не было) и потом запускается программа, а если иду по F7, то начинаются открываться всевозможные модули, используемые в программе..
Не стоит смеяться над человеком делающим шаг назад, возможно он делает разбег.
artemavd вне форума Ответить с цитированием
Старый 12.12.2009, 17:23   #8
mihali4
*
Старожил
 
Регистрация: 22.11.2006
Сообщений: 9,201
По умолчанию
Ну а зачем по F7 (с заходом во все модули и процедуры?). Да еще по фйлу проекта... По F8 идете и все...
Единственная "бряка" - на первой строке procedure TForm13.sBitBtn1Click
То есть делаем RUN и жмем sBitBtn1 - программа тут же остановится на "бряке".
Отсюда и начинаем шагать...
Последний раз редактировалось mihali4; 12.12.2009 в 17:26.
mihali4 вне форума Ответить с цитированием
Старый 12.12.2009, 17:41   #9
artemavd
Старожил
 
Аватар для artemavd
 
Регистрация: 05.06.2008
Сообщений: 4,210
По умолчанию
Поставил бряк на эту строку, нажимаю на кнопку и приложение снова "зависает"..
Не стоит смеяться над человеком делающим шаг назад, возможно он делает разбег.
artemavd вне форума Ответить с цитированием
Старый 12.12.2009, 19:31   #10
mihali4
*
Старожил
 
Регистрация: 22.11.2006
Сообщений: 9,201
По умолчанию
Как это?
На выполнении оператора i:=1; зависает???
Я надеюсь, вы бряку тут поставили?
Код:
procedure TForm13.sBitBtn1Click(Sender: TObject);
var
 i:integer;
begin
о i:=1;
mihali4 вне форума Ответить с цитированием
Ответ
Страница 1 из 3 1 23


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Переделка программы по массиву IDakar Помощь студентам 0 26.11.2009 16:54
Переделка кода hen Общие вопросы C/C++ 6 24.10.2009 17:58
Переделка задачи на Record Impario Помощь студентам 14 16.02.2009 18:49
Двумерные маcсивы(переделка). Hostlman Помощь студентам 2 26.12.2007 19:14

Реклама на форуме - Обратная связь - Правила - Исходники Delphi - Справочник Delphi - Архив - Вверх