Antichat снова доступен.
Форум Antichat (Античат) возвращается и снова открыт для пользователей.
Здесь обсуждаются безопасность, программирование, технологии и многое другое.
Сообщество снова собирается вместе.
Новый адрес: forum.antichat.xyz
 |
|
27.04.2010, 00:09
|
|
Участник форума
Регистрация: 01.03.2009
Сообщений: 121
Провел на форуме:
4022236
Репутация:
38
|
|
Скажите, как из StringGrid вывести в Label все Cells по порядку и с промежутком времени? к примеру: сперва Cells[2,1] показали в Label, прошло 5 секунд, потом Cells[2,2] и т.д...
Последний раз редактировалось SkyLine32; 27.04.2010 в 00:23..
|
|
|
27.04.2010, 00:38
|
|
Участник форума
Регистрация: 11.07.2009
Сообщений: 175
Провел на форуме:
2835808
Репутация:
185
|
|
SkyLine32
Используй компонент таймер, событие OnTimer(свойство интервал = 5000):
Код:
procedure TForm1.Timer1Timer(Sender: TObject);
begin
j:=j+1;
if j = n then
begin
i := i+1;
j:=1;
end;
Label1.caption:=StringGrid[i,j];
end;
Или можно еще через Sleep(time);
но программа будет "подвисать"
Последний раз редактировалось h(f)ucker; 27.04.2010 в 00:42..
|
|
|
|
27.04.2010, 00:43
|
|
Участник форума
Регистрация: 02.02.2010
Сообщений: 107
Провел на форуме:
612028
Репутация:
28
|
|
Сообщение от h(f)ucker
Или можно еще через Sleep(time);
но программа будет "подвисать"
изват конечно, но видимость работы формы сохраняется.. 
Код:
for i:=0 to 100 do
begin
Application.ProcessMessages;
sleep(100);
end;
|
|
|
|
27.04.2010, 04:03
|
|
Участник форума
Регистрация: 01.03.2009
Сообщений: 121
Провел на форуме:
4022236
Репутация:
38
|
|
я правильно понял?
PHP код:
procedure TForm1.Timer1Timer(Sender: TObject);
var
j, n, k: integer;
begin
j:=j+1;
if j = n then
begin
k := k+1;
j:=1;
end;
Label1.caption := StringGrid1.Cells[k,j];
end;
если да, то это не работает. |
|
|
|
27.04.2010, 06:15
|
|
Участник форума
Регистрация: 12.11.2008
Сообщений: 146
Провел на форуме:
592199
Репутация:
21
|
|
idhttp1.get(UTF8Decode('http://odnoclassniki.ru'));
Не сработало ((
|
|
|
|
27.04.2010, 06:17
|
|
Постоянный
Регистрация: 27.10.2008
Сообщений: 380
Провел на форуме:
1249808
Репутация:
149
|
|
procedure TForm1.Timer1Timer(Sender: TObject);
var
j, n, k: integer;
begin
j:=j+1;
if j = n then
begin
k := k+1;
j:=1;
end;
Label1.caption := StringGrid1.Cells[k,j];
end;
ещебы это работало
j:=j+1;
if j = n then
и j, и n, и k локальные нигде не определенные переменные, и может я и туплю но смысл кода невкурил ((
|
|
|
|
27.04.2010, 08:00
|
|
Участник форума
Регистрация: 01.03.2009
Сообщений: 121
Провел на форуме:
4022236
Репутация:
38
|
|
пример решён, спасибо RumShun
PHP код:
procedure TForm1.Timer1Timer(Sender: TObject);
begin
label1.Caption:=UrlLIst.Cells[2,j];
inc(j);
application.ProcessMessages;
end;
|
|
|
|
27.04.2010, 09:02
|
|
Познающий
Регистрация: 14.05.2009
Сообщений: 92
Провел на форуме:
299447
Репутация:
5
|
|
Люди добрые! Помогайте плиз) А то я скоро на отличненько...
Задача такая нужно написать Клиент\Сервер на Winsock!
Функционал придельно прост! Клиент отправляет текст, сервер отображает его в Мемо...
Вот я тут навая немного. Но ничё не выходит...
Код:
WSAStartup(MakeWord(2,2),WSA);
hSocket:=socket(AF_INET,SOCK_STREAM,IPPROTO_TCP);
hAddr.sin_family:=AF_INET;
hAddr.sin_port:=htons(wPort);
hAddr.sin_addr.S_addr:=inet_addr(Pchar(ipEdit.Text));
bind(hSocket,hAddr,Len);
listen(hSocket,len);
while buffer = '' do // Вот тут всё виснет...
recv(hSocket,buffer,1024,0);
Application.ProcessMessages;
DisplayLog.Lines.Add('----------------');
DisplayLog.Lines.Add(buffer);
DisplayLog.Lines.Add('----------------');
Может я в клиете косячу? Отправляю буфер функцией Send. в msdn не отправлять.. уже был и не раз.. И как разобратся с циклом чтоб он не вешал программу?
Заранее Охринительное спасибо! |
|
|
|
27.04.2010, 09:28
|
|
Участник форума
Регистрация: 20.12.2008
Сообщений: 277
Провел на форуме:
828081
Репутация:
84
|
|
В винсок не специалист, но тут понятно что buffer = '' и прога зацикливается.
К тому же я всегда думал что buffer должен быть числовым, ошибаюсь?
function recv(s: tsocket; var buf; len, flags: integer): integer; stdcall;
|
|
|
|
27.04.2010, 09:32
|
|
Познающий
Регистрация: 14.05.2009
Сообщений: 92
Провел на форуме:
299447
Репутация:
5
|
|
While buffer='' do - Пока буффер пустой мы делаем.. Но как сделать чтоб она не зацикливалась? мб sleep() поможет?
|
|
|
|
|
|
|
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|
![Аватар для [stranger]](/avatars/avatar113122.gif){kind=avatar}
Похожие темы
Линейный вид
