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

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

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

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

Ответ
 
Опции темы Поиск в этой теме
Старый 07.03.2011, 14:39   #1
cargo29
Форумчанин
 
Регистрация: 13.12.2010
Сообщений: 603
По умолчанию Разобраться с функцией Parse

Привет, у меня вопро если не сложно кому обьяснить, видел коды в которых используеться POS с ним я разобрался, но тут встретил кое что и в интернете толком описания нету для чего и как использовать, вот это PARSE если не трудно подскажете для чего и как использовать?
cargo29 вне форума Ответить с цитированием
Старый 07.03.2011, 14:48   #2
Человек_Борща
Старожил
 
Аватар для Человек_Борща
 
Регистрация: 30.12.2009
Сообщений: 11,442
По умолчанию

Чо откуда и зачем?
Что встретил? Нет описания для чего? Использовать что?

Мы что сами должны догадываться, что ты там в интернете нашёл?
Человек_Борща вне форума Ответить с цитированием
Старый 07.03.2011, 16:19   #3
asmodey1
Подтвердите свой е-майл
 
Регистрация: 19.12.2010
Сообщений: 808
По умолчанию

http://pblog.ru/?p=108
asmodey1 вне форума Ответить с цитированием
Старый 07.03.2011, 22:02   #4
cargo29
Форумчанин
 
Регистрация: 13.12.2010
Сообщений: 603
По умолчанию

вот часть кода нашел что такое parse


Код:
function VideoVK(v:string):string ;
  var   li, lin, vkid, vtag ,ndd :string;
    begin
      v:=Parse(' loadFlashPlayer', ',"hash2":"', v);
      li:=Parse('"http:\/\/', '.vkontakte', v);
       if Length(li)=0 then
      begin
       li:=Parse('http:\/\/', '\/', v);
       lin:=parse(li+'\/','\/',v);
       vtag:= Parse('"vtag":"', '"', v);
       vkid:= Parse('vkid":"','","' ,v);
       Result:= 'http://'+li+'/'+lin+'/video/'+vtag+vkid+'.vk.flv' ;
       end
     else
      begin
       vtag:= Parse('"vtag":"', '"', v);
       ndd:= Parse('"thumb":', '","hash":', v);
       ndd:= Parse('vkontakte.ru\/', '\/video', ndd);
       Result:='http://'+li+'.vkontakte.ru/'+ndd+'/video/'+ vtag+'.240.mp4'
      end;
     end;

 (*******************************************************************************)

procedure TForm1.Button2Click(Sender: TObject);
begin
    try
     v:= HTTP.Get(Edit3.Text);
     title:=Parse('">Видео</a> &raquo;','</h1></div>',v);
     Video:=VideoVK(v);
     Edit1.Text:=video;
     f:=Copy(Video,Length(Video)-3,4) ;
     Edit2.text:=title;
     except

    end;
end;
cargo29 вне форума Ответить с цитированием
Старый 08.03.2011, 08:43   #5
Serge_Bliznykov
Старожил
 
Регистрация: 09.01.2008
Сообщений: 26,238
По умолчанию

Parse - это, судя по всему, имя функции, которая описана в данном проекте...
Если у Вас проект компилируется без ошибок, тогда - прав.кнопкой мышки на это слово - "Find declaration" - попадёте на описание этой функции. Там и разбирайтесь, что это и для чего предназначено..

p.s. название темы мне не нравится. Сейчас переименую...
Serge_Bliznykov вне форума Ответить с цитированием
Старый 08.03.2011, 10:31   #6
cargo29
Форумчанин
 
Регистрация: 13.12.2010
Сообщений: 603
По умолчанию

Цитата:
Сообщение от Serge_Bliznykov Посмотреть сообщение
Parse - это, судя по всему, имя функции, которая описана в данном проекте...
Если у Вас проект компилируется без ошибок, тогда - прав.кнопкой мышки на это слово - "Find declaration" - попадёте на описание этой функции. Там и разбирайтесь, что это и для чего предназначено..

p.s. название темы мне не нравится. Сейчас переименую...
Хорошо щас посмотрю....
cargo29 вне форума Ответить с цитированием
Ответ


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

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

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Не могу разобраться с функцией ReadConsole Иллидан Assembler - Ассемблер (FASM, MASM, WASM, NASM, GoASM, Gas, RosAsm, HLA) и не рекомендуем TASM 4 10.10.2010 17:34
Работа с функцией (С) ordoss Помощь студентам 8 03.01.2010 19:02
Подскажите, не могу разобраться с функцией INSERT KARUSHEV БД в Delphi 27 17.07.2009 17:54
Помогите разобраться с функцией ВПР qwertyk Microsoft Office Excel 12 15.07.2009 18:31
Помогите разобраться с собственной функцией MasterofCDM Общие вопросы Delphi 4 03.04.2009 12:15