|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
01.08.2007, 14:12 | #1 |
Форумчанин
Регистрация: 15.06.2007
Сообщений: 182
|
Сортировка данных
В Memo1 у меня находится такой текст:
Код:
То есть должно получится так: Код:
|
01.08.2007, 14:19 | #2 |
Белик Виталий :)
Старожил
Регистрация: 23.07.2007
Сообщений: 57,097
|
Как всегда - циклами :
[I]procedure TForm1.Button1Click(Sender: TObject); var i:integer; s:string; begin //********* FOR ****************** for i :=0 to Memo1.Lines.Count-1 do begin s:=memo1.Lines[i]; delete(s,length(s),1); while s[length(s)]<>';' do delete(s,length(s),1); memo1.Lines:=s; end; //******* END FOR ****************{} end;
I'm learning to live...
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Автоматическая сортировка большого обьема данных в формате xml | artfunk | Microsoft Office Excel | 3 | 04.09.2008 15:35 |
1. Сортировка Шелла по убыванию 2. Сортировка вставками по убыванию | Arkuz | Помощь студентам | 1 | 25.09.2007 17:16 |
Сортировка данных | Таня84 | БД в Delphi | 7 | 20.02.2007 15:56 |