Форум программистов, компьютерный форум, киберфорум
Наши страницы
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
dg1n
0 / 0 / 0
Регистрация: 30.10.2015
Сообщений: 2
#1

Необходимо выполнить сортировку списка по алфавиту и дате - Delphi

17.01.2016, 18:33. Просмотров 198. Ответов 0
Метки нет (Все метки)

Пожалуйста помогите,так как с полноэкранками пока что не очень((

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
 
type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Edit5: TEdit;
    Edit6: TEdit;
    Label7: TLabel;
 
    procedure Button1Click(Sender: TObject);
 
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
type
 
TPstudent = ^TStudent;
TStudent = record
k_name: string [20];
nomer:integer;
Data_R:Integer;
Vremya_N_R:integer;
Vremya_C_R:Integer;
Prise:Integer;
next: TPstudent;
end;
 
var head:TPstudent;
 
procedure TForm1.Button1Click(Sender: TObject);
var
work:TPstudent;
begin
new(work);
work^.k_name:=edit1.Text;
work^.nomer:=strtoint(edit2.Text);
work^.Data_R:=StrToInt(edit3.text);
work^.Vremya_N_R:=StrToInt(edit4.text);
work^.Vremya_C_R:=StrToInt(edit5.text);
work^.Prise:=strtoint(edit6.text);
work^.next:=head; 
head:=work; 
edit1.Text:='';
edit2.Text:='';
edit1.Text:='';
edit2.Text:='';
edit3.Text:='';
edit4.Text:='';
edit5.Text:='';
edit6.Text:='';
end; 
 
 
procedure TForm1.Button2Click(Sender: TObject);
var 
work:TPstudent;
st:string;
n:integer;
begin
n:=0;
st:='';
work:=head;
while work <> nil do
begin
n:=n+1;
st:=st+work^.k_name + ' ' + IntToStr(work^.nomer) + ' ' + IntToStr(work^.Data_R) +  ' ' + IntToStr(work^.Vremya_N_R) +
' ' + IntToStr(work^.Vremya_C_R) + ' ' +
IntToStr(work^.Prise) + #13;
work:=work^.next;
if n<>0 then
label1.Caption:=(st + #13)
else showmessage('...');
end;
end;
end.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
17.01.2016, 18:33
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Необходимо выполнить сортировку списка по алфавиту и дате (Delphi):

как сделать сортировку по дате?
Простой алгоритм от меньшей даты к большей... и воторой вопрос как посчитать...

Выполнить сортировку данных в объекте stringgrid
Необходимо выполнить сортировку заполненных вручную данных в новом stringgrid....

Найти среднюю оценку группы и выполнить сортировку оценок по возрастанию
Здравствуйте! Очень нужна ваша помощь. Есть задача: Прочитать из файла 10...

Сортировка списка по алфавиту о обратно.
Нужно обеспечить сортировку списка в TListBox по алфавиту,против алфавита,а...

Упорядочивание списка по дате
Дано 5 человек с информацией о каждом: оценки, группа, дата рождения и т.д....

Сортировка списка файлов по дате
Приветствую. Произвожу поиск файлов по заданному пути по маске *.txt. Получаю...

0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
17.01.2016, 18:33
Привет! Вот еще темы с решениями:

Выполнить сортировку массива, заполненного случайными числами, методом "пузырька"
Дан одномерный массив C. 1) Заполнить массив с помощью генератора случайных...

Выполнить сортировку массива методом "пузырька"
Подруга не может решить задачу.Буду рад помощи. Условие: Дан одномерный...

Выполнить сортировку по алфавиту по названию магазина
Здравствуйте! Есть структура public struct PRICE { ...

Как выполнить сортировку по алфавиту в ListBox(Word) ?
Как выполнить сортировку по алфавиту в ListBox(Word)


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
1
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru