УСТРАНЕНИЕ КОНКУРЕНТОВ. БЛОКИРОВКА ДОМЕНОВ, БЛОКИРОВКА ИНСТАГРАМ/ТЕЛЕГРАМ И ДРУГОЕ. ПРОВЕРЕННЫЙ СЕЛЛЕР.

ANTICHAT — форум по информационной безопасности, OSINT и технологиям

ANTICHAT — русскоязычное сообщество по безопасности, OSINT и программированию. Форум ранее работал на доменах antichat.ru, antichat.com и antichat.club, и теперь снова доступен на новом адресе — forum.antichat.xyz.
Форум восстановлен и продолжает развитие: доступны архивные темы, добавляются новые обсуждения и материалы.
⚠️ Старые аккаунты восстановить невозможно — необходимо зарегистрироваться заново.

		Форум АНТИЧАТ > Программирование_OLD > С/С++, C#, Delphi, .NET, Asm
[Delphi]/[Pascal] Задай вопрос, получи ответ

Страница 293 из 677

293

Опции темы

Поиск в этой теме

Опции просмотра

#2921

27.02.2009, 16:45

cremator (c)

Постоянный

Регистрация: 20.06.2008

Сообщений: 323

Провел на форуме:
1240829

Репутация: 165

Отправить сообщение для cremator (c) с помощью ICQ

strtoint('xc') переводит строку в числовое значение! Тебе вообще что надо?

#2922

27.02.2009, 21:55

ZET36

Участник форума

Регистрация: 08.10.2007

Сообщений: 259

Провел на форуме:
500748

Репутация: 137

slesh спасибо, но опять в файл записывает 2 байта, может что не так с запросом?

#2923

27.02.2009, 22:05

Hellsp@wn

Постоянный

Регистрация: 29.04.2007

Сообщений: 496

Провел на форуме:
2715445

Репутация: 588

ZET36

не правильный подход в принципе. т.к. recv может вернуть 0, но это не будет ошибкой! просто в данный момент в сокете нет данных.

так что советую или читать про сокеты, или использовать wininetapi

з.ы. код ужасен:

Цитата:

i := recv(sock, buf, length(buf), 0);
writeln(f, buf);

и что же запишится в файл?

понятно что данные из buf, но сколько же их будет? 255 или меньше?

Последний раз редактировалось Hellsp@wn; 27.02.2009 в 22:08..

#2924

27.02.2009, 22:59

Maxxxtri23

Познающий

Регистрация: 20.12.2008

Сообщений: 76

Провел на форуме:
432982

Репутация: 6

Гдето видел в манулах как сделать для нескольких форм "ресурсы", но теперь немогу найти. Тоесть у меня есть главная форма и дочерняя и мне надо допустим в дочерней форме в Edit1 пишешь значение и оно меняется в главной форме в Label1 тоесть как связать компоненты главной формы с дочерней?

#2925

27.02.2009, 23:48

Maxxxtri23

Познающий

Регистрация: 20.12.2008

Сообщений: 76

Провел на форуме:
432982

Репутация: 6

Все вродебы разобрался, кому интересно оказывается нужно было 2 форму прописать в Uses первой и аналогично со 2 формой

#2926

28.02.2009, 19:37

Uname-A

Познающий

Регистрация: 19.08.2008

Сообщений: 69

Провел на форуме:
458484

Репутация: 31

Есть TМемо
В нем записано ~ такое:
12345678@asdasdas
12356468@ascvxcczs
12567678@ascxvdas7
12345678@aszx43543
Так вот как получить переменную того что до @ и того что после?
Например как ' + memo1.Lines[i] + ' переменная всей строки.....

#2927

28.02.2009, 21:46

~~De-visible~~

Banned

Регистрация: 06.01.2008

Сообщений: 904

Провел на форуме:
4037638

Репутация: 1821

Отправить сообщение для De-visible с помощью ICQ

Цитата:

Сообщение от Uname-A

pos,copy functions

#2928

28.02.2009, 21:57

AlexTheC0d3r

Постоянный

Регистрация: 25.07.2008

Сообщений: 454

Провел на форуме:
1229135

Репутация: 425

Отправить сообщение для AlexTheC0d3r с помощью ICQ

Цитата:

Сообщение от Uname-A

Код:

var i,j:integer;
m,k:string;
begin
i:=0;
j:=1;
for i=0 to memo1.lines.count-1 do
begin
for j=1 to lenght(memo1.lines[i]) do
begin
m:=memo1.lines[i];
k:=memo1.lines[i];
if m[j]:='@' then
begin
delete (m,j,maxint);
delete(k,1,j);
end;
end;
end;
end;

проверь, должно работать...
писал без подсветки синтаксиса и не в компиляторе.

Последний раз редактировалось AlexTheC0d3r; 28.02.2009 в 23:52..

#2929

28.02.2009, 23:14

Uname-A

Познающий

Регистрация: 19.08.2008

Сообщений: 69

Провел на форуме:
458484

Репутация: 31

У тебя в слове 'длина' ошибка =)
lengt => length
А так все ок Код рабочий СПС

#2930

01.03.2009, 13:54

Djezul

Познающий

Регистрация: 08.12.2008

Сообщений: 58

Провел на форуме:
153361

Репутация: 10

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