Новые пользователи
Активные пользователи
[ Новые сообщения · Участники· Правила форума · Поиск · RSS ]
Страница 1 из 11
Архив - только для чтения
Форум » Программирование на Delphi » Готовые решения » Как в Delphi запустить цикл с шагом? (Аналог Step в Visual basic)
Как в Delphi запустить цикл с шагом?
PWorkДата: Понедельник, 22.01.2018, 12:58 | Сообщение # 1
Группа: Администраторы
Сообщений: 15
Статус: Offline
Иногда бывает нужен цикл с шагом - например, чтобы поделить строку на подстроки.  Мне такой цикл понадобился, когда я писал прогу Res2Pas.

Итак, представляю Вашему вниманию два варианта циклов с шагом:


Код
procedure TForm1.Button1Click(Sender: TObject);
var
  s:string;
  I,k:Integer;
begin
  s:='Длинная-предлинная-тестовая-строка,-которая-будет-разбита-циклом-на-подстроки';

{
// вариант первый. Цикл while..do

  I:=1;
  while I <= Length(S) do
  begin
    Memo1.Lines.Add(Copy(S, I,4));
    I:=I+4; //4 - это шаг цикла
  end;
}  
{
// вариант второй. Цикл For..do

for k:=0 to (Length(S)-1) div 3 do //3 - это шаг цикла
begin
  i:=1+k*3;
  Memo1.Lines.Add(Copy(S, I,3));
end;
}
end;


Надеюсь, кому-нибудь данная информация пригодится.
Форум » Программирование на Delphi » Готовые решения » Как в Delphi запустить цикл с шагом? (Аналог Step в Visual basic)
Страница 1 из 11
Поиск:
X

Внимание!

Ваш браузер уязвим для рекламы. Установите AdBlock Plus! https://adblockPlus.org

uCoz