зависает Project1

[divwond]

добрый день.
уважаемые пользователи, как думаете, что может быть причиной подвисания програмы?
каждая процедура по-отдельности выполняется.а если их использовать в теле программы , то виснет.
что это может быть?

[Porfiriys]

Возможно, у вас в процедурах обращение идет к одной и той же переменной - и в одной процедуре присваивается одно значение этой переменной. С этим значение вторая процедура работать не может - и происходит зависание. Так как то.

[Пепел Феникса]

отладка на что?

[divwond]

Сообщение от Пепел Феникса

отладка на что?

а как её сделать?
где она?=)я только начал осваивать делфи..и в основном всё по примерам познаю

[ArtGrek]

код надо видеть

[divwond]

Сообщение от ArtGrek

код надо видеть

procedure TForm1.ICQClient1MessageRecv(Sender: TObject; Msg, UIN: String);
begin
//Guild
c[1,1]:='г';
c[1,2]:='Г';
c[1,3]:='g';
c[1,4]:='G';
c[1,5]:='ГИЛЬДИЯ';
c[1,6]:='Гильдия';
c[1,7]:='гильдия';
c[1,8]:='guild';
c[1,9]:='GUILD';
c[1,10]:='Guild';
c[1,11]:='Guild';
c[1,12]:='Guild';
c[1,13]:='Guild';
c[1,14]:='Guild';
c[1,15]:='Guild';
c[1,16]:='Guild';
c[1,17]:='Guild';
c[1,18]:='Guild';
  //Nik
c[2,1]:='Nik';
c[2,2]:='NIK';
c[2,3]:='nik';
c[2,4]:='Name';
c[2,5]:='NAME';
c[2,6]:='name';
c[2,7]:='n';
c[2,8]:='N';
c[2,9]:='Ник';
c[2,10]:='НИК';
c[2,11]:='ник';
c[2,12]:='н';
c[2,13]:='Н';
c[2,14]:='Имя';
c[2,15]:='ИМЯ';
c[2,16]:='имя';
c[2,17]:='имя';
c[2,18]:='имя';
  // LVL
c[3,1]:='лвл';
c[3,2]:='ЛВЛ';
c[3,3]:='Лвл';
c[3,4]:='л';
c[3,5]:='Л';
c[3,6]:='lvl';
c[3,7]:='Lvl';
c[3,8]:='LVL';
c[3,9]:='l';
c[3,10]:='L';
c[3,11]:='Level';
c[3,12]:='LEVEL';
c[3,13]:='level';
c[3,14]:='Уровень';
c[3,15]:='УРОВЕНЬ';
c[3,16]:='уровень';
c[3,17]:='У';
c[3,18]:='у';
  //RESET
c[4,1]:='res';
c[4,2]:='Res';
c[4,3]:='RES';
c[4,4]:='reset';
c[4,5]:='Reset';
c[4,6]:='RESET';
c[4,7]:='r';
c[4,8]:='R';
c[4,9]:='рес';
c[4,10]:='Рес';
c[4,11]:='РЕС';
c[4,12]:='РЕСЕТ';
c[4,13]:='Ресет';
c[4,14]:='ресет';
c[4,15]:='р';
c[4,16]:='Р';
c[4,17]:='Р';
c[4,18]:='Р';
  //status
c[9,1]:='s';
c[9,2]:='S';
c[9,3]:='Status';
c[9,4]:='status';
c[9,5]:='STATUS';
c[9,6]:='С';
c[9,7]:='с';
c[9,8]:='СТАТУС';
c[9,9]:='Статус';
c[9,10]:='статус';
c[9,11]:='ст';
c[9,12]:='Ст';
c[9,13]:='СТ';
c[9,14]:='st';
c[9,15]:='ST';
c[9,16]:='St';
c[9,17]:='sssssssssss';
c[9,18]:='sssssssssss';
//pozition
c[10,1]:='=)';
icq := StrToInt(edit3.Text);

               j:=1;
memo4.Text:=msg;
for i:=1 to 10 do begin
                   for k:=1 to 18 do begin s:=c[i,k];
                                         if msg=s then begin j:=2; msg:=s;end;
                                     end;
                 end;
    if j=2 then button4.Click;
    if j=1 then edit4.text:=msg;
    button3.click;
end;

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

[ArtGrek]

s:=c[i,k];

где обозначено что ето за переменая?
покажите код где вызываете процедуру ICQClient1MessageRecv

[divwond]

Сообщение от ArtGrek

s:=c[i,k];

где обозначено что ето за переменая?
покажите код где вызываете процедуру ICQClient1MessageRecv

mas = array[1..10,1..18] of string;

var 
c  : mas;
s  : string;

ICQClient1MessageRecv - вызывается при получении сообщения на ICQClient1

[Stilet]

а как её сделать?

Стань на первую строку в процедуре и жми F5. Потом когда прога брякнется на ней жми F8 и выяснишь где вис.

[Пепел Феникса]

логика кода хромает правда.
нужна еще процедура Button4Click и Button3.Click