Версия для печати
Нажмите сюда для просмотра этой темы в оригинальном формате |
Форум на Исходниках.RU > Delphi: Общие вопросы > Перенос строки |
Автор: kiddan 17.03.21, 07:57 |
Добрый день, вопрос может и глупый но решить не могу! Есть переменная S string, имеет в себе n- количество символов, нужно разбить её на строки по 5 символов и записать в файл. Пример s:= '1234567890098765432101'; на выходе 12345 67890 09876 54321 01 |
Автор: MBo 17.03.21, 09:52 |
Для выделения части строки используйте функцию Copy <{CODE_COLLAPSE_OFF}><{CODE_WRAP_OFF}> for i := 0 to (Length(s) + 4) div 5 - 1 do begin subs := Copy(s, 1 + i*5, 5); записать subs end; |
Автор: kiddan 17.03.21, 12:08 |
Спасибо за помощь!!! Дай Вам Бог здоровья!!!! |
Автор: ^D^ima 17.03.21, 12:14 |
Как ещё вариант: <{CODE_COLLAPSE_OFF}><{CODE_WRAP_OFF}> 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; |
Автор: kiddan 17.03.21, 13:01 |
Странно в ListBox отрабатывает,а при writeln(f,subs); в файле только последние 5 символов! |
Автор: ^D^ima 17.03.21, 16:47 |
kiddan Код то покажи, мы не умеем гадать |
Автор: kiddan 18.03.21, 07:03 |
Разобрался, всем спасибо кто помог!!! |