|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
17.01.2011, 08:17 | #1 |
Пользователь
Регистрация: 17.01.2011
Сообщений: 12
|
Сортировка в списке
Бьюсь всю ночь ничего не получается, помогите хоть чем: необходиомо, чтобы программа открывала список , состоящий из текст1;символ;текст2 и сортировала список по алфавиту после символа...
Пример: парам пам пам | пам => пам парам пам | амп пам парам пам | амп => пам пам парам | мпа пам пам парам | мпа => парам пам пам | пам Последний раз редактировалось Uroboros; 17.01.2011 в 08:19. |
17.01.2011, 08:58 | #2 | |
Старожил
Регистрация: 20.04.2008
Сообщений: 5,528
|
Цитата:
программа — запись алгоритма на языке понятном транслятору
|
|
17.01.2011, 09:00 | #3 |
Пользователь
Регистрация: 17.01.2011
Сообщений: 12
|
Код:
Последний раз редактировалось Stilet; 17.01.2011 в 10:19. |
17.01.2011, 12:40 | #4 |
Пользователь
Регистрация: 17.01.2011
Сообщений: 12
|
Спасибо Stilet, что подправил, но увы я так и не дождался ответа.
Вот решение, если кому интересно... Что надо изменить в процедуре Button3Click, чтобы открывало и закидывало правильно? Прикрепил программу с примером.. Основной смысл открыть txt файл и посортировать: До: фыва олдж|фыва ячсм|зшщгуцк апро йцук, екг|нгшщ После: ячсм|зшщгуцк апро йцук, екг|нгшщ фыва олдж|фыва мда, более 150 просмотров и ни одного совета, спасибо за помощь... Последний раз редактировалось Stilet; 18.01.2011 в 18:26. |
18.01.2011, 00:44 | #5 |
Пользователь
Регистрация: 17.01.2011
Сообщений: 12
|
Вот уже почти полный код программы, осталось только найти причину(ошибка где-то в Button3), почему при открытии готового файла, программа его не редактирует ...
procedure TForm1.FormCreate(Sender: TObject); begin memo1.Clear; memo2.Clear; memo3.Clear; edit1.Clear; edit2.Clear; edit3.Clear; button1.Enabled:= false; end; procedure TForm1.Button1Click(Sender: TObject); begin w.fam:=edit1.Text; //ввод значений w.adr:=edit2.Text; w.bed:=edit3.Text; write(f,w); memo1.Lines.Add(w.fam); memo2.Lines.Add(w.adr); memo3.Lines.Add(w.bed); edit1.Clear; edit2.Clear; edit3.Clear; end; procedure TForm1.Button2Click(Sender: TObject); begin SaveDialog1.Title:='Создать файл'; SaveDialog1.DefaultExt:='.txt'; if SaveDialog1.Execute then begin fname:=SaveDialog1.FileName; AssignFile(f,fname); Rewrite(f); end; button1.Enabled:=true; end; procedure TForm1.Button3Click(Sender: TObject); var i:integer; begin OpenDialog1.Title:='Открыть файл'; if OpenDialog1.Execute then fname:=OpenDialog1.Filename; memo1.clear; memo2.clear; memo3.clear; assignfile(ft,fname); reset(ft); readln(ft,s); if pos('|',s)<>0 then begin closefile(ft); assignfile(ft,fname); reset(ft); while not eof(ft) do begin readln(ft,s); memo1.Lines.Add(copy(s,1,pos('|',s)-1)); memo2.Lines.Add('|'); memo3.Lines.Add(copy(s,pos('|',s)+1 ,length(s))); end; closefile(ft); end else begin AssignFile(f,fname); Reset(f); While not eof(f) do begin read(f,w); memo1.lines.add(w.fam); memo2.lines.add(w.adr); memo3.lines.add(w.bed); end; CloseFile(f); end; end; procedure TForm1.Button4Click(Sender: TObject); begin SaveDialog1.Title:='Сохранить в текстовом файле'; SaveDialog1.DefaultExt:='.txt'; if SaveDialog1.Execute then begin fnamet:=SaveDialog1.FileName; AssignFile(ft,fnamet); Rewrite(ft); end; writeln(ft); reset(f); while not eof(f) do begin read(f,w); with w do writeln(ft,fam:0,adr:0,bed:0); end; closeFile(f); closeFile(ft); end; procedure TForm1.Button5Click(Sender: TObject); var r,n:integer; begin memo1.clear; memo2.clear; memo3.clear; reset(f); n:=0; while not eof(f) do //создаем массив записей begin read(f,w); inc(n); a[n]:=w; end; for i:=1 to n do begin //сортируем их по алфавиту for r:=i+1 to n do if a[r].bed<a[i].bed then begin w:=a[i]; a[i]:=a[r]; a[r]:=w; end; memo1.Lines.Add(a[i].fam); memo2.Lines.Add(a[i].adr); memo3.Lines.Add(a[i].bed); end; closefile(f); end; end. |
18.01.2011, 16:02 | #6 |
Пользователь
Регистрация: 17.01.2011
Сообщений: 12
|
Бред
Изменил мнение...
Последний раз редактировалось Uroboros; 18.01.2011 в 20:42. |
18.01.2011, 16:17 | #7 |
!=
Участник клуба
Регистрация: 08.09.2008
Сообщений: 1,751
|
Что вы тавк ужасно кричите, как будто мы заняли у вас 100 рублей и не берём телефон? У всех есть свои дела, своё свободное время. Многие когда не очень много времени просматривают темы где мало ответов, у вас тут очень много постов, просто считают что идёт обсуждение.
Сейчас посмотрю попробую помочь. |
18.01.2011, 16:27 | #8 |
Пользователь
Регистрация: 17.01.2011
Сообщений: 12
|
ну да, все посты мои=) а кричу я от безисходности, второй день на форуме сижу и мозг ломаю, что не так..спасибо.
|
18.01.2011, 16:32 | #9 |
!=
Участник клуба
Регистрация: 08.09.2008
Сообщений: 1,751
|
так ещё раз, просто уточнить, нужно чтоб в memo3 список был отсортированый? больше ничего?
|
18.01.2011, 16:40 | #10 |
Пользователь
Регистрация: 17.01.2011
Сообщений: 12
|
извини вторую страницу не заметил(
тоесть беру загружаю файл, редактирую в программе(сортирую по ответу) и сохраняю, надо чтобы во всех трех мемах строчки сдвигались |
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
удаление в списке | zhenya.ya | Помощь студентам | 0 | 07.06.2010 21:08 |
ЗАмена в списке | meizy | Помощь студентам | 2 | 03.06.2010 22:31 |
Поиск в односвязном списке | DOJ | Общие вопросы C/C++ | 6 | 04.10.2009 13:34 |
поиск IP в списке | TaTT DoGG | PHP | 6 | 13.08.2008 18:53 |