[ Delphi / Pascal ] — начинающим: задаем вопросы (архивная - 2015)

Если ты так пробовал и у тебя не получилось, значит в Label11 записано число не в чистом виде.

 

Все разобрался. Моя невнимательность, забыл для второго условия скобку закрыть.

 

есть строка вида "kjjjkkj2.5jkjn,,,hfd45jgfvjlkfdii10,2hfhg"

как из неё выбрать только числа?

 

Самое простое рег-кой,

Code:

[\d]*

, а потом в цикле все вхождения получить.

 

PHP:

function parse(s: string ): string;
 var i: integer;
 begin
   for i := 1 to length( s ) do
        if s[i] in ['0'..'9']  then
          result :=  result + s[i];
end;


 

дано массив из 4х чисел
m[1]:=i;
m[2]:=j;
m[3]:=n*1;
m[4]:=n-j;
нужно найти среди них самое маленькое,
Как? Подскажите...

 

Господа, не подскажете, где лисичка хранит инфу о проксях?

 

необходимо реализовать одновременное нажатие кнопки в чужом в приложении на неск компах
самое нажати сделал через APi
остался вопрос об одновременном нажатии

 

Есть ссылка на файл, есть доступ на фтп сервер, можно ли передать файл на сервер минуя мой компьютер?

 

Кто может помочь? Есть файл бд в acsess'e, подключаюсь через ado и в компонент DBLookupComboBox вывожу 1 поле. Есть ли какой нибудь метод, чтобы определить, что я выбрал в DBLookupComboBox.

 

нет, нельзя

 

Отправка и получение сообщений в Vk

Авторизовался

Code:

procedure TForm1.Button1Click(Sender: TObject);
var PageProfile:string;
begin

 IdHTTP1.AllowCookies:=true;
 IdHTTP1.HandleRedirects:=true;
 try
  PageProfile:=IdHTTP1.get('http://vkontakte.ru/login.php?email='+edit1.Text+'&pass='+edit2.Text);
 except
 end;
 if Pos('logout', PageProfile)<>0 then
  Memo1.Lines.Add('Авторизация удалась')
 else
  Memo1.Lines.Add('Авторизация не удалась');

end;

Собственно как отправлять сообщения догадываюсь,больше интересует такой вопрос- как узнать,что сообщение пришло?
Я пытался таким способом

Code:

q:=IdHTTP1.get('http://m.vk.com/mail');

   if Pos('<em>1</em>',q) or Pos('<em>2</em>',q) <>0 then
     Memo1.Lines.Add('You have a new message')
           else
     Memo1.Lines.Add('You have not a new message');

Но это не совсем удачный способ.Если будет <em>3</em>,т.е входящих 3 сообщения,то в Memo выведется следующее <<You have not a new message>>.

 

если сообщений нет:

если есть

пляши от этого.

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

 

Что-то не получается(
как спарсить именно то,что между тегами? <em>число сообщений</em>

Code:

haveMsg:='<em>1</em>';
q:=IdHTTP1.get('http://m.vk.com/mail');
       mes:=IntToStr(Pos(haveMsg,q));

number:=copy(mes,5,1);
       if StrToInT(number)<>0 then

     Memo1.Lines.Add('You have a new message')
           else
     Memo1.Lines.Add('You have not a new message');

Ничего не просходит,появляется такая ошибка

'''' is not a valit integer value

 

помогите плиз решить
паскаль
буду благодарен

 

PHP:

number:=copy(mes,5,1); // <== Переменной number может быть присвоено пустое значение, которое в ф-ции StrToInT(number) вызывает исключительную ситуацию...

2«DEXTER», простенькие задачки на масивы && циклы... В гугле можно найти море инфы по данной теме + пост не в том разделе

 

Модераторы, прошу перенести пост в соответствующий раздел, только не удаляйте)

 

А что делать в таком случае?)

 

юзай StrToIntDef(number, 0) вместо StrToInt(number), тогда в случае ошибки преобразования строки в целое число будет возвращаться 0

 

Спасибо,применение StrToIntDef исправило ошибку.
Теперь проблема с самим парсингом.

PHP:

haveMsg:='<em>1</em>';
q:=IdHTTP1.get('http://m.vk.com/mail');
       mes:=IntToStr(Pos(haveMsg,q));
       Memo1.Lines.Add(mes);
      
       number:=copy(mes,5,1);
       if StrToIntDef(number,0)<>0 then

     Memo1.Lines.Add('You have a new message')
           else
     Memo1.Lines.Add('You have not a new message');


Авторизация идет без проблем,но выводится что сообщений нет,хотя я специально отправил себе одно непрочитанное сообщение.Попытался вывести то,что парсится Memo1.Lines.Add(mes); в Memo вывелось значение 0 .Почему?По идее же там должна быть строка?