Janilabo Posted October 5, 2012 Share Posted October 5, 2012 This function copies (partial) string from str - copy process starts at pos1 and ends to pos2. Works both ways, Low=>High (normal copy) and High=>Low (reversed copy). Included an example. const TEST_STR = 'Janilabo is a nub! '; START_POS = 1; END_POS = 21; function StrCopy(str: string; pos1, pos2: Integer): string; var i, l: Integer; begin l := Length(str); if (l > 0) then begin if (pos1 < 1) then pos1 := 1; if (pos1 > l) then pos1 := l; if (pos2 < 1) then pos2 := 1; if (pos2 > l) then pos2 := l; case (pos1 < pos2) of False: if (pos1 <> pos2) then begin SetLength(Result, ((pos1 - pos2) + 1)); for i := pos1 downto pos2 do Result[((pos1 - i) + 1)] := str[i]; end else Result := Copy(str, pos1, 1); True: Result := Copy(str, pos1, ((pos2 - pos1) + 1)); end; end; end; begin ClearDebug; WriteLn('StrCopy(''' + TEST_STR + ''', ' + IntToStr(START_POS) + ', ' + IntToStr(END_POS) + '): ' + #13#10 + StrCopy(TEST_STR, START_POS, END_POS) + ' [Low=>High]'); WriteLn(''); WriteLn('StrCopy(''' + TEST_STR + ''', ' + IntToStr(END_POS) + ', ' + IntToStr(START_POS) + '): ' + #13#10 + StrCopy(TEST_STR, END_POS, START_POS) + ' [High=>Low]'); end. Quote Link to comment Share on other sites More sharing options...
LordJashin Posted October 5, 2012 Share Posted October 5, 2012 Nice this is what I was looking for when it comes to that Copy function! Quote Link to comment Share on other sites More sharing options...
TerryKig Posted July 18 Share Posted July 18 bull traps banda ms crypto dovi buy bitcoin send to wallet can you buy fraction of bitcoin price slash how do you buy bitcoins with cash can i buy bitcoin through chase mark cuban investments akcja bitcoin .25 bitcoin how much is 0.29 bitcoin optimism token acesso bitcoin which crypto coin to buy now crypto.com gala v2 inj coin market cap 5usd in bitcoin in 2012 best foreign crypto exchange bitcoin mining free poly matic price how to use bitcoin atm machine otc trading crypto bitcoin what can u buy $khai crypto 500 plus bitcoin how to buy bitcoin with litecoin coinbase 2014 what is bitcoin how much usd to buy 1 bitcoin 1 bitcoin kac dolar sec etf crypto fbtc market cap buy house uk bitcoin 6 most secure ways to store bitcoin and recieve transactions 0.2 bitcoin in usd bitquery.io adam 1986 bitcoin what to do with pearls in animal crossing free $sos crust crypto how much bitcoin can i buy on cash app daily 3200 usd in bitcoin cryptography games davinci jeremie shiba inu academie crypto 00426 bitcoins to dollars free games to earn real money remnant 2 multiplayer not working 200000 in bitcoin league of legends 14.7 Quote Link to comment Share on other sites More sharing options...
TerryKig Posted July 23 Share Posted July 23 marc andreessen artificial intelligence ar crypto project price catch buy visa cards with bitcoin nft marketplace collapse best crypto algorithm polygon price prediction 2023 ethereum price prediction 2025 buy linden with bitcoins aave to bitcoin pain in left wrist icd 10 a16z crypto dfinity dex check openocean finance actual bitcoin coin investing in bitcoin without buying bitcoin crypto font will bonk reach 1 cent banks invest in crypto exodus buy bitcoin fee bitcoin cash buy usa 350 million lost bitcoin wallet what banks use the quantum financial system celsius app 0.03 bitcoin to euro bitcoin mining app brillion crypto is it a good time to buy bitcoin 2023 activematrix bitcoin buy bitcoin colorado wax price crypto solana live price adwords archives - noticias de bitcoin - mega-manga how to buy bitcoin without transaction fee bad bunny crypto parking buying bitcoin on bitcoin.com crypto games ios best crypto to buy under 1 cent synapse crypto 730 euro to bitcoin arkham computer crypto best coinbase crypto to buy free yon celestia light node rewards usd to bitcoin all about bitcoins mining hash ai whale markets the dollar collapse how to buy bitcoin in india without kyc Quote Link to comment Share on other sites More sharing options...
DarrelSnush Posted October 9 Share Posted October 9 Как найти аудиопоздравления на телефон: полезные советы Праздничные дни и особенные события в жизни отличная возможность изумить собственных недалёких оригинальным поздравлением. Ежели вы желайте отправить аудиопоздравление на телефон, но не понимаете, с чего же стоит начать, эта статья окажет вам помощь найти подходящие решения. 1. Поиск готовых аудиопоздравлений Существует огромное количество ресурсов, в каком месте можно найти готовые аудиопоздравления: - Веб-веб-сайты специальные сайты и блоги предлагают коллекции аудиопоздравлений на разные поводы: дни рождения, anniversaries, Новый год и другие праздники. Воспользуйтесь запросами в поисковике, такими как аудиопоздравления скачать либо аудиопоздравления на телефон. - Прибавления многие мобильные приложения для создания поздравлений делают отличное предложение встроенные аудиофайлы. Попробуйте установить прибавленья, такие как "Пожеланья" или "Картинки и пожелания". 2. Запись собственного аудиопоздравления Если вы желайте добавить личный штрих, запишите пожелание сами: - Телефон используйте прибавленье для записи звука (встроенное в телефон либо посторонние прибавленья). Просто нажмите на запись, произнесите пожелание и сохраните файл. - Редактирование при помощи приложений для редактирования звука (например, Audacity либо GarageBand) вы можете добавить музыку, эффекты либо улучшить качество записи. 3. Отправка аудиопоздравления После всего этого как вы нашли либо записали аудиопоздравление, для вас нужно отправить его: - ММС вы можете выслать аудиофайл через MMS. Просто выберите файл и отправьте его, как обычное известие. - Мессенджеры воспользуйтесь популярными приложениями, такими как WhatsApp, Viber либо Telegram, чтобы отправить аудиозапись. Всегда есть возможность прибавленья текста и эмодзи, чтоб сделать пожеланье более выразительным. - Email если нужно отправить длинный https://audiosms.ru/ файл, используйте электронную почту. Прикрепите аудиофайл к известью и отправьте его адресату. 4. Использование социальных сетей Если вы хотите сделать пожелание более общественным, опубликуйте его на своих страницах в социальных сетях: - Instagram Stories либо Facebook загрузите аудиофайл или добавьте его в видео, которое можно оформить с помощью благовидных фонов и фильтров. - VK вы можете сделать пост с аудиозаписью и поделиться им с приятелями или в обществах. Заключение Аудиопоздравления это хороший метод изумить и порадовать недалёких. Выбор готовых аудиофайлов, творение собственного поздравления либо внедрение мессенджеров и соц сетей это все поможет вам найти образцовый метод поздравить своих друзей и родных. Не побаивайтесь проявлять креативность, и ваш подарок станет незабываемым! Quote Link to comment Share on other sites More sharing options...