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. Постепенные изменения

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