|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
28.01.2011, 15:48 | #1 |
Форумчанин
Регистрация: 25.05.2010
Сообщений: 169
|
Разделить строчку
Помогите плз решить проблему. Есть строка длинной в n символов. Надо разделить эту строку на группы с конца по 3 символа
Пример 1234567899 1 234 567 899 Желательно кодом |
28.01.2011, 16:52 | #2 |
Пользователь
Регистрация: 22.01.2011
Сообщений: 25
|
procedure TForm1.Button1Click(Sender: TObject);
var s,s2:string ;n,i,m:integer; begin s:= Edit1.Text; n:= length(s); m:= n div 3; m:= n-m*3; Edit2.Text:= copy(s,1,m); for i:=1 to n div 3 do begin Edit2.Text:= Edit2.Text +' '+ copy(s,m+1,3) ; m:=m+3; end; |
28.01.2011, 16:53 | #3 |
!=
Участник клуба
Регистрация: 08.09.2008
Сообщений: 1,751
|
Код:
Последний раз редактировалось vovk; 28.01.2011 в 16:58. Причина: опередили)) |
28.01.2011, 17:09 | #4 | |
Участник клуба
Регистрация: 07.07.2007
Сообщений: 1,518
|
Цитата:
Навскидку... Код:
|
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Порезать строчку | KoBRaAndrey | Общие вопросы Delphi | 3 | 30.04.2010 11:27 |
слои в строчку | 1div | HTML и CSS | 7 | 19.12.2008 16:36 |
Рразъясните строчку. | Amen | Помощь студентам | 11 | 30.08.2008 02:45 |
Как с поиощью hiew вставить в файл строчку, "раздвинуть" файл и вставить туда строчку? | barand | Assembler - Ассемблер (FASM, MASM, WASM, NASM, GoASM, Gas, RosAsm, HLA) и не рекомендуем TASM | 2 | 28.06.2008 10:58 |