Работа с StringGrid и Memo

@hashishin · Регистрация: 20.10.2021

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

Здраствуйте уважаемые форумчане!
Помогите пожалуйста
Есть StringGrid, значения из 4(последнего) столбца которого нужно вставить в Memo.
А именно:
Значения эти получаются после проведения расчёта. Каждому значению(т.е. ячейке) соответствует определённая запись из слов.
Нужно чтобы в Memo это выводилось так, чтобы словосочетание у которого самое большое значение стояло в первой строке, а следующие - по убыванию этих значений.

Буду рад всем кто откликнется.

@krapotkin · 29.11.2021, 10:21

Сообщение от D1973

на другие темы форума

думаю в этой формулировке п 5.8 неприменим

@mr-Crocodile · 29.11.2021, 10:25

hashishin, ты свою проблему решил? Код от Silly_coder из сообщения #18 подошёл?
Если нет, то какая у тебя Delphi и что конкретно у тебя не получается?

Пытливый, D1973, по моему, тут же всё очевидно - автору темы нужно вывести в мемо мероприятия (нулевой столбец грида) в порядке убывания приоритета (это значение с плавающей запятой, рассчитанное и помещённое в 4-м столбце грида (глобальные приоритеры).

@hashishin · 29.11.2021, 11:17 **[ТС]**

mr-Crocodile,
Нет, код из сообщения #18 не подошёл

Добавлено через 9 минут

Сообщение от D1973

Вот Вам никто не сказал грубого слова, обращаются уважительно, на "Вы", пытались понять Ваши тяжкие думы... Что не так-то?
А то, что помощи Вы не получили, так это сами судите, какая ситуация складывается

Я и не говорил что форумчане невоспитанные и грубо высказывающиеся.
Честно, я не такого мнения о Вас имею.

Сообщение от D1973

скорее вызовет очередной негатив...

и нету у меня никакого негатива.

Добавлено через 4 минуты
mr-Crocodile,

Сообщение от mr-Crocodile

то какая у тебя Delphi и что конкретно у тебя не получается?

Delphi 7
С выводом в Memo разобрался.
Но нужно чтобы в Memo 0-ой столбец грида выводился сортировкой с зависимостью от 4-го столбца грида

@D1973 · 29.11.2021, 11:20

Сообщение от krapotkin

думаю в этой формулировке п 5.8 неприменим

krapotkin, конечно же Вы правы. Это я что-то зарапортовался, имел в виду другие форумы... А ссылки на любые разделы нашего форума конечно же разрешены.

@hashishin · 29.11.2021, 11:26 **[ТС]**

Сообщение от mr-Crocodile

Пытливый, D1973, по моему, тут же всё очевидно - автору темы нужно вывести в мемо мероприятия (нулевой столбец грида) в порядке убывания приоритета (это значение с плавающей запятой, рассчитанное и помещённое в 4-м столбце грида (глобальные приоритеры).

Совершенно верно

Добавлено через 5 минут

Сообщение от D1973

А ссылки на любые разделы нашего форума конечно же разрешены.

Вывод данных из Stringgrid в Memo

вот тут рассматривается очень похожее на моё

@D1973 · 29.11.2021, 12:26

Сообщение от hashishin

нужно чтобы в Memo 0-ой столбец грида выводился сортировкой с зависимостью от 4-го столбца грида

Неужели надо просто это?

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
uses ..., Math;
...
function fSort(X: TStringList; i1, i2: integer): integer;
var k: integer;
begin
  k := CompareValue(StrToFloat(X.ValueFromIndex[i1]), StrToFloat(X.ValueFromIndex[i2]));
  if k = 0 then result := CompareText(X.Names[i1], X.Names[i2]) else result := -1 * k;
end;
 
procedure TForm1.BitBtn1Click(Sender: TObject);
var i: integer;
begin
  with TStringList.Create do begin
    for i := StringGrid1.FixedRows to StringGrid1.RowCount - 1 do
      Add(Format('%s = %s', [StringGrid1.Cells[0, i], StringGrid1.Cells[4, i]]));
    CustomSort(fSort);
    for i := 0 to Count - 1 do
      Memo1.Lines.Add(Names[i]);
    Free;
  end;
end;

Сортировка по убыванию 5-го столбца, если что...

@hashishin · 29.11.2021, 12:55 **[ТС]**

Сообщение от D1973

Неужели надо просто это?

получается да, Спасибо Вам!

Добавлено через 3 минуты
а подскажите пожалуйста как сделать так чтобы эта процедура начиналась не с первой строки, а со второй
просто вот такая ошибка есть EConvertError with message "приоритеты' is not a valid floating point value

@qwertehok · 29.11.2021, 12:59

Сообщение от hashishin

процедура начиналась не с первой строки

а почему она начинается с первой?
у тебя же наверняка for i:=0 to xxx
вот тут и увеличивай на 1

Сообщение от hashishin

просто вот такая ошибка есть

или проверяй что ты в переменную пишешь

@D1973 · 29.11.2021, 12:59

А я уже сколько раз про это Ваше "проявление смекалки" говорил? Так и не убрали? Ну вот так сделайте.

Delphi
1
for i := StringGrid1.FixedRows + 1 to StringGrid1.RowCount - 1 do

@hashishin · 29.11.2021, 13:23 **[ТС]**

D1973,
Спасибо!

Добавлено через 10 минут
D1973,
Ещё один вопрос и это последний
а как можно пронумеровать то что выводится в Memo?

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

Delphi
1
Add(Format('%s = %s', [StringGrid1.Cells[0, i], StringGrid1.Cells[4, i]]));

как я понял,
эту строку менять же?

@Silly_coder · 29.11.2021, 13:51

Сообщение от hashishin

а как можно пронумеровать то что выводится в Memo?

Delphi
1
Memo1.Lines.Add(IntToStr(memo1.lines.count)+ ' '+ Names[i]);

@hashishin · 29.11.2021, 13:59 **[ТС]**

Silly_coder,
от души душевно в душу

@Пытливый · 29.11.2021, 15:13

Я еще вчера решение с помощью SQL-запроса опубликовал, но спросил, верно ли ТС опубликовал свой пример, но ТС ничего не ответил по теме. Ну а на нет и суда нет. Так-что обижаться ему надо было на себя и свою невнимательность.

@hashishin · 29.11.2021, 15:45 **[ТС]**

Новые блоги и статьи Все статьи Все блоги /
Часы электронные Uhbif79 12.08.2026 Выкладываю программу часов. Программа позволяет: 1. Использовать системное время и дату, 2. Есть возможность вводить время и дату вручную. 3. Реализованы 2 будильника: начало и конец рабочего дня. . . .	Часы с будильником на основе класса QLCDNumber Uhbif79 12.08.2026 Всем добрый день, выкладываю программу часов с будильником на основе класса QLCDNumber. Здесь я пробовал самостоятельно создавал классы, впервые столкнулся с видимостью переменной одного класса из. . .	Установка MinGW GCC 16.2 и CMake 8Observer8 10.08.2026 VK Видео: https:/ / vkvideo. ru/ video-240781534_456239017 YouTube: eY5-5PyI9NM Текстовая версия	Неделя из жизни имитационной модели склада: мои кривые руки растут, откуда надо anaschu 10.08.2026 Неделя из жизни имитационной модели склада: как я почти написал неправильную логику и что с этим делать Работаю сейчас над учебно-рабочим проектом: строю в AnyLogic имитационную модель процессов. . .
Калькулятор для расчета родства russiannick 07.08.2026 1. Задача: Создать калькулятор для расчета родства. Родственных связей существует 8 ступеней, такие как: p - отец P - мать q - муж Q - жена b - брат B - сестра s - сын S - дочь	Мир по моей воле kumehtar 07.08.2026 Когда-то кажется, что всё просто. Ты весь такой светлый. Причиняешь добро. Борешься за справедливость в этом тёмном мире. Потом начинаешь замечать одну неприятную вещь. Почти каждый хороший. . .	Кредитный калькулятор Maks 05.08.2026 Решение задачи по прикладной информатике средствами 1С. Задача: Напишите приложение-калькулятор, которое помогает рассчитывать параметры кредита для аннуитетного и дифференцированного видов. . .	У нас сейчас поговорку "Опять 25" нужно переделать на "Опять +35". kumehtar 04.08.2026 С ностальгией вспоминаю времена моего детства, когда у нас и правда +25 - была максимальная температура летом. Раньше +25 °C реально казались вершиной жары, когда можно было весь день пропадать на. . .

@hashishin 0 / 0 / 0 Регистрация: 20.10.2021 Сообщений: 53

	Работа с StringGrid и Memo 27.11.2021, 21:34. Показов 3552. Ответов 33 Метки delphi 2007, delphi 5-7, delphi 7, memo, stringgrid (Все метки) Здраствуйте уважаемые форумчане! Помогите пожалуйста Есть StringGrid, значения из 4(последнего) столбца которого нужно вставить в Memo. А именно: Значения эти получаются после проведения расчёта. Каждому значению(т.е. ячейке) соответствует определённая запись из слов. Нужно чтобы в Memo это выводилось так, чтобы словосочетание у которого самое большое значение стояло в первой строке, а следующие - по убыванию этих значений. Буду рад всем кто откликнется. 0

@mr-Crocodile 3054 / 1673 / 657 Регистрация: 19.03.2019 Сообщений: 5,380
	29.11.2021, 10:25
	hashishin, ты свою проблему решил? Код от Silly_coder из сообщения #18 подошёл? Если нет, то какая у тебя Delphi и что конкретно у тебя не получается? Пытливый, D1973, по моему, тут же всё очевидно - автору темы нужно вывести в мемо мероприятия (нулевой столбец грида) в порядке убывания приоритета (это значение с плавающей запятой, рассчитанное и помещённое в 4-м столбце грида (глобальные приоритеры). 1

@hashishin 0 / 0 / 0 Регистрация: 20.10.2021 Сообщений: 53
	29.11.2021, 13:59 [ТС]
	Silly_coder, от души душевно в душу 0

@Пытливый 3764 / 2272 / 705 Регистрация: 29.05.2013 Сообщений: 9,622
	29.11.2021, 15:13
	Я еще вчера решение с помощью SQL-запроса опубликовал, но спросил, верно ли ТС опубликовал свой пример, но ТС ничего не ответил по теме. Ну а на нет и суда нет. Так-что обижаться ему надо было на себя и свою невнимательность. 0

@hashishin 0 / 0 / 0 Регистрация: 20.10.2021 Сообщений: 53
	29.11.2021, 15:45 [ТС]
	0

Работа с StringGrid и Memo

Решение