GetWords

[sjesper]

This function return the words in a string. This is only adviced to be used with 100-150 words, or it will take long time to get the words (This can ofc be used as a kind of "wait" in your script).

 

10 words ~ 54 ms (0.054 seconds)

50 words ~ 277 ms (0.277 seconds)

100 words ~ 700 ms (0,700 seconds)

 

[sCAR]function GetWords(S: String): TStringArray;

var

Len, i, ii, Index, L: Integer;

S2: String;

TSA: TStringArray;

begin

L := Length(S);

TSA := Explode(' ', S);

for ii := 0 to high(TSA) do begin

for i := low(TSA) to high(TSA) do begin

Index := Pos(TSA, S);

Len := PosEx(' ', S, Index);

S2 := Copy(S, Len + 1, 1);

if S2 = ' ' then

Delete(S, Len, 1);

end;

end;

for i := 1 to L do begin

if i = 1 then

if not StartsWith(' ', S) then

break;

Len := Pos(' ', S);

if Len = 1 then begin

Delete(S, Len, 1);

end else begin

break;

end;

end;

result := Explode(' ', S);

end;

 

var

i: Integer;

TSA: TStringArray;

 

begin

TSA := GetWords('Hello Hello Hello Hello Hello Hello Hello Hello Hello HelloHello Hello HelloHello Hello Hello Hello Hello Hello Hello Hello Hello Hello Hello Hello Hello Hello Hello Hello Hello Hello Hello Hello Hello Hello Hello Hello Hello Hello Hello Hello HHello Hello Hello Hello Hello Hello o Hello Hello Hello Hello Hello Hello Hello Hello Hello Hello Hello Hello Hello Hell Hello H');

for i := 0 to high(TSA) do

writeln('TSA[' + IntToStr(i) + '] = ' + TSA);

end.[/sCAR]

[Janilabo]

Nice job sjesper! Good looking function.

[zippoxer]

That's too slow, but a good practice.

 

I'd use the built-in Explode to get words out of a string.

 

1000 words ~ 0ms

5000 words ~ 78ms

 

[sCAR]

program New;

 

var

i, start: Integer;

s: String;

tsa: TStringArray;

 

begin

// make a 5000 word long string

for i := 1 to 5000 do

s := s + 'hello ';

start := GetSystemTime;

tsa := Explode(' ', s);

WriteLn(IntToStr(Length(tsa)) + ' words ~ ' + IntToStr(GetSystemTime-start) + 'ms');

end.

[/sCAR]

[JanisItach]

Похудение это тема, которая всегда животрепещуща для большинства дам. Почти многие среди нас стремятся к идеальной форме, но часто сталкиваются с трудностями и препятствиями на пути к этой цели. Но, с правильным подходом, похудение возможно достижимо без стресса и изнурительных диет. В данной статье мы рассмотрим 10 действенных стратегий похудения, помогающие дамам добиться желанных результатов и сохранить здоровье.

1. Установите цель

Первым шагом к успешному похудению является установление определенной цели. Обусловьте, сколько килограммов вы хотите сбросить и по какой причине. Цель должна быть близкой к реальности, измеримой и достижимой.

2. Питание

Правильное питание играет главную роль в процессе похудения. Сосредотачивайтесь на употреблении натуральных товаров, богатых витаминами и минералами. Избегайте стремительных углеводов и жирной пищи. Устремляйтесь к балансу макро- и микроэлементов в рационе.

3. Физическая активность

Регулярные физические упражнения не только помогут сжигать калории, а также укрепят мускулы, улучшат общее самочувствие и увеличат выносливость. Найдите вид активности, который вам нравится: от йоги до плавания, от бега до танцев.

4. Гидрация

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

5. Сон

Качественный сон играет важную роль в процессе похудения. Пытайтесь спать не менее 7-8 часов в сутки, чтоб ваш организм мог восстановиться, а метаболизм был в норме.

6. Управление стрессом

Стресс может стать препятствием на пути к похудению что нужно чтобы похудеть женщине Найдите способы расслабления и отдыха: медитация, йога, чтение книг, прогулки на свежем воздухе.

7. Каждодневный контроль

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

8. Постепенные изменения

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

[MichaelCax]

Are you a music enthusiast looking to elevate your sound? Look no further! Our music gear store has everything you need to bring your musical dreams to life. From high-quality guitars to powerful amplifiers and all the accessories in between, we've got you covered.

Guitars for Every Taste and Style

Whether you're an acoustic aficionado or an electric guitar wizard, our store offers a diverse range of guitars to suit every player. We carry top brands like Fender, Gibson, Ibanez, and more. Each guitar is meticulously crafted to deliver exceptional sound and playability.

- Acoustic Guitars: Perfect for singer-songwriters and those who love the raw, unplugged sound.
- Electric Guitars: Ideal for rock, blues, and jazz enthusiasts looking to add some flair to their performances.
- Bass Guitars: Providing the deep, resonant tones crucial for any band’s rhythm section.

Amplifiers That Elevate Your Sound

A great guitar deserves an equally great amplifier. Our collection features a variety of amps that cater to different genres and playing environments. From practice amps to stage-ready powerhouses, you'll find the perfect match for your needs.

- Tube Amps: Known for their warm and rich tones, perfect for achieving that classic rock sound.
- Solid State Amps: Reliable and versatile, they offer a consistent performance ideal for any gig.
- Modeling Amps: Advanced technology that mimics the sound of various amp types, giving you a wide range of tones from a single unit.

Essential Accessories

No musician's arsenal is complete without the right accessories. We stock everything from strings and picks to pedalboards and effects pedals. Our knowledgeable staff can help you find exactly what you need to enhance your playing experience.

- Strings and Picks: High-quality materials for durability and superior sound.
- Effects Pedals: From distortion to delay, our pedals can help you craft the perfect tone Bb Cornets
- Pedalboards: Keep your effects organized and ready to use during performances.

Why Shop With Us?

- Expert Advice: Our team of musicians is passionate about helping you find the right gear to achieve your goals.
- Quality Guarantee: We only stock products from trusted brands known for their reliability and superior craftsmanship.
- Customer Satisfaction: Your happiness is our top priority. We offer hassle-free returns and excellent customer service.

Visit our store today and experience the difference quality music gear can make. Elevate your sound and take your music to the next level. Whether you’re a beginner or a seasoned pro, we have the right equipment to help you shine.