Форум на Исходниках.RU https://forum.sources.ru Форум на Исходниках.RU Форум на Исходниках.RU https://forum.sources.ru/index.php?showtopic=421262&view=findpost&p=3845539 Thu, 18 Mar 2021 07:03:25 +0000 Перенос строки https://forum.sources.ru/index.php?showtopic=421262&view=findpost&p=3845539 kiddan Delphi: Общие вопросы https://forum.sources.ru/index.php?showtopic=421262&view=findpost&p=3845528 Wed, 17 Mar 2021 16:47:46 +0000 Перенос строки https://forum.sources.ru/index.php?showtopic=421262&view=findpost&p=3845528 kiddan
Код то покажи, мы не умеем гадать]]> ^D^ima Delphi: Общие вопросы https://forum.sources.ru/index.php?showtopic=421262&view=findpost&p=3845519 Wed, 17 Mar 2021 13:01:02 +0000 Перенос строки https://forum.sources.ru/index.php?showtopic=421262&view=findpost&p=3845519 kiddan Delphi: Общие вопросы https://forum.sources.ru/index.php?showtopic=421262&view=findpost&p=3845510 Wed, 17 Mar 2021 12:14:56 +0000 Перенос строки https://forum.sources.ru/index.php?showtopic=421262&view=findpost&p=3845510
      For I:=1 to length(SIn) do
        Begin
          sOut:=sOut+SIn[I];
          If (I mod 5)=0 then
            Begin
              ShowMessage(sOut);
              sOut:='';
            End;
          If (I=length(sIn))and (sOut<>'') then ShowMessage(sOut);
        End;
]]> ^D^ima Delphi: Общие вопросы https://forum.sources.ru/index.php?showtopic=421262&view=findpost&p=3845509 Wed, 17 Mar 2021 12:08:28 +0000 Перенос строки https://forum.sources.ru/index.php?showtopic=421262&view=findpost&p=3845509 kiddan Delphi: Общие вопросы https://forum.sources.ru/index.php?showtopic=421262&view=findpost&p=3845500 Wed, 17 Mar 2021 09:52:20 +0000 Перенос строки https://forum.sources.ru/index.php?showtopic=421262&view=findpost&p=3845500
    for i := 0 to (Length(s) + 4) div 5  - 1 do begin
      subs := Copy(s, 1 + i*5, 5);
      записать subs
    end;
]]> MBo Delphi: Общие вопросы https://forum.sources.ru/index.php?showtopic=421262&view=findpost&p=3845489 Wed, 17 Mar 2021 07:57:33 +0000 Перенос строки https://forum.sources.ru/index.php?showtopic=421262&view=findpost&p=3845489 67890
09876
54321
01]]> kiddan Delphi: Общие вопросы