При сортировке программа сдвигает строку на одно значение вниз, как исправить?

@kalanda · Регистрация: 06.02.2018

Студворк — интернет-сервис помощи студентам

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
procedure TForm2.Button10Click(Sender: TObject);
type
tu = record
q,w,e,r,t,y,u,ip,o,p,a:string;
end;
var
F:textfile; il:integer;
la:array[1..300] of tu;
i:integer;  x1:tu;  lll:integer;
ii:integer;  oii:integer;
begin
il:=1;
for i :=il to sg.RowCount-1 do
begin
la[i].q:=sg.cells[0,i];
la[i].w:=sg.cells[1,i];
la[i].e:=sg.cells[2,i];
la[i].r:=sg.cells[3,i];
la[i].t:=sg.cells[4,i];
la[i].y:=sg.cells[5,i];
la[i].u:=sg.cells[6,i];
la[i].ip:=sg.cells[7,i];
la[i].o:=sg.cells[8,i];
la[i].p:=sg.cells[9,i];
la[i].a:=sg.cells[10,i];
end;
begin
 for ii:=1 to sg.RowCount-1 do
 for i:=1 to sg.RowCount-1 do
 if la[i].q>la[i+il].q then
 begin
 x1:=la[i];
 la[i]:=la[i+il];
 la[i+il]:=x1;
 end;
 end;
 for i:=1 to sg.rowcount-0 do
 begin
 sg.cells[0,i]:=la[i].q;
 sg.cells[1,i]:=la[i].w;
 sg.cells[2,i]:=la[i].e;
 sg.cells[3,i]:=la[i].r;
 sg.cells[4,i]:=la[i].t;
 sg.cells[5,i]:=la[i].y;
 sg.cells[6,i]:=la[i].u;
 sg.cells[7,i]:=la[i].ip;
 sg.cells[8,i]:=la[i].o;
 sg.cells[9,i]:=la[i].p;
 sg.cells[10,i]:=la[i].a;
 end;
 end;

@WarlikeLaux · 12.06.2018, 20:42

Судя по "логике" Вашей программы в 37 строчке надо sq.RowCount - 1, но код конечно...

@kalanda · 12.06.2018, 20:45 **[ТС]**

Я знаю что переменные не те , но не для себя просто .

Добавлено через 1 минуту
нет, не в этом проблема

@WarlikeLaux · 12.06.2018, 20:55

kalanda, тогда будь добр изложи условие задачи и если можешь выложи проект, потому что по коду я что-то не вижу никаких ошибок логических, чтобы какая-то из строк "съезжала вниз", хотя может просто потому что код вообще не читабельный...

@kalanda · 12.06.2018, 21:04 **[ТС]**

я нашел ошибку , дело было в переменных запутался сам

@WarlikeLaux · 12.06.2018, 21:14

kalanda, бывает, но все равно нужно как-то оптимизированнее все делать (а главное читабельно + с комментариями), какая ни была бы задача и какой ни был бы заказчик)

Новые блоги и статьи Все статьи Все блоги /
Модель заражения группы наркоманов alhaos 17.04.2026 Условия задачи сформулированы тут Суть: - Группа наркоманов из 10 человек. - Только один инфицирован ВИЧ. - Колются одной иглой. - Колются раз в день. - Колются последовательно через. . .	Мысли в слух. Про "навсегда". kumehtar 16.04.2026 Подумалось тут, что наверное очень глупо использовать во всяких своих установках понятие "навсегда". Это очень сильное понятие, и я только начинаю понимать край его смысла, не смотря на то что давно. . .	My Business CRM MaGz GoLd 16.04.2026 Всем привет, недавно возникла потребность создать CRM, для личных нужд. Собственно программа предоставляет из себя базу данных клиентов, в которой можно фиксировать звонки, стадии сделки, а также. . .	Знаешь почему 90% людей редко бывают счастливыми? kumehtar 14.04.2026 Потому что они ждут. Ждут выходных, ждут отпуска, ждут удачного момента. . . а удачный момент так и не приходит.
Фиксация колонок в отчете СКД Maks 14.04.2026 Фиксация колонок в СКД отчета типа Таблица. Задача: зафиксировать три левых колонки в отчете. Процедура ПриКомпоновкеРезультата(ДокументРезультат, ДанныеРасшифровки, СтандартнаяОбработка) / / . . .	Настройки VS Code Loafer 13.04.2026 { "cmake. configureOnOpen": false, "diffEditor. ignoreTrimWhitespace": true, "editor. guides. bracketPairs": "active", "extensions. ignoreRecommendations": true, . . .	Оптимизация кода на разграничение прав доступа к элементам формы Maks 13.04.2026 Алгоритм из решения ниже реализован на нетиповом документе, разработанного в конфигурации КА2. Задачи, как таковой, поставлено не было, проделанное ниже исключительно моя инициатива. Было так:. . .	Контроль заполнения и очистка дат в зависимости от значения перечислений Maks 12.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: реализовать контроль корректности заполнения дат назначения. . .

@WarlikeLaux 9 / 9 / 12 Регистрация: 17.01.2018 Сообщений: 281
	12.06.2018, 20:42
	Судя по "логике" Вашей программы в 37 строчке надо sq.RowCount - 1, но код конечно... 0

@kalanda 0 / 0 / 1 Регистрация: 06.02.2018 Сообщений: 307
	12.06.2018, 20:45 [ТС]
	Я знаю что переменные не те , но не для себя просто . Добавлено через 1 минуту нет, не в этом проблема 0

@WarlikeLaux 9 / 9 / 12 Регистрация: 17.01.2018 Сообщений: 281
	12.06.2018, 20:55
	kalanda, тогда будь добр изложи условие задачи и если можешь выложи проект, потому что по коду я что-то не вижу никаких ошибок логических, чтобы какая-то из строк "съезжала вниз", хотя может просто потому что код вообще не читабельный... 0

@kalanda 0 / 0 / 1 Регистрация: 06.02.2018 Сообщений: 307
	12.06.2018, 21:04 [ТС]
	я нашел ошибку , дело было в переменных запутался сам 0

@WarlikeLaux 9 / 9 / 12 Регистрация: 17.01.2018 Сообщений: 281
	12.06.2018, 21:14
	Сообщение было отмечено kalanda как решение Решение kalanda, бывает, но все равно нужно как-то оптимизированнее все делать (а главное читабельно + с комментариями), какая ни была бы задача и какой ни был бы заказчик) 1

При сортировке программа сдвигает строку на одно значение вниз, как исправить?

Решение