Delphi для начинающих

Форум программистов и сисадминов Киберфорум

Войти

Регистрация
Восстановить пароль

Другие темы раздела
Delphi Как проверить, целое число или вещественное? https://www.cyberforum.ru/ delphi-beginners/ thread1315873.html Доброго времени суток! Как в делфи проверить целое число или вещественное. Если вещественное то записывать его, если целое то добавлять DecimalSeparator + 0. Например: если введено 0.99 то в ячейку добавляем -> 0.99 если введено 1 то в ячейку добавляем -> 1.0	Delphi Разработка тестовой программы с использованием Комбобокс Как можно сделать так чтобы варианты ответов можно было выбирать в ComboBox?
Delphi Составить программу вычисления суммы первых N натуральных четных чисел В среде delphi https://www.cyberforum.ru/ delphi-beginners/ thread1315862.html	Delphi Составить программу, которая из трёх заданных чисел выберет минимальное https://www.cyberforum.ru/ delphi-beginners/ thread1315861.html сделать а среде delphi
Delphi Есть ли в Дельфи аналоги templates из C++? есть ли в делфи аналоги плюсовых шаблонов? (templates) помнится есть какой то тип Variant, но это же вроде больше похоже на void* ? то бишь нетипизированный указатель? или тип auto опять таки из тех же плюсов...	Delphi Получить на экране два слова, движущиеся по экрану по одной горизонтальной прямой навстречу друг другу https://www.cyberforum.ru/ delphi-beginners/ thread1315711.html Получить на экране два слова, например ТЕСТ, движущиеся по экрану по одной горизонтальной прямой навстречу друг другу. Первое слово должно двигаться от левого края экрана к правому, второе ─ от правого края к левому. Движение должно выполняться до полного совмещения слов.
Delphi Прервать одну процедуру из другой процедуры Есть кнопка Button2, клик по которой вызывает процедуру, и есть вторая процедура косвенно запускаемая внутри первой процедуры. Так вот нужно сделать так, чтобы первая процедура, до её полного завершения, завершалась процедурой номер два. Код первой процедуры: procedure TForm3.Button2Click(Sender: TObject); begin PasswordDlg.ShowModal; showmessage('Ты не смог((00'); end; https://www.cyberforum.ru/ delphi-beginners/ thread1315704.html	Delphi Переделать программу под ООП хелп))
Delphi По очереди раскрасить строки RichEdit в красный цвет https://www.cyberforum.ru/ delphi-beginners/ thread1315683.html Мне надо по очереди раскрасить строки richedit в красный. Делаю так: for i:=0 to form1.richedit1.lines.count-1 do begin form2.RichEdit1.SelStart:=Pos(form2.RichEdit1.Lines, Form2.RichEdit1.text)-1; form2.RichEdit1.SelLength:=Length(form2.RichEdit1.lines); form2.RichEdit1.SelAttributes.Color:=255; end; Но раскрашивает неравномерно почему-то	Delphi Динамические структуры данных: алгоритм поиска в цепном списке элемента с минимальным значением Разработать алгоритм поиска в цепном списке элемента с минимальным значением. https://www.cyberforum.ru/ delphi-beginners/ thread1315678.html
Отправка команды в консоль / Counter Strike sourse Delphi И так, нужно программно отправить команду в консоль. В данном случае у нас команда "connect 212.16.194.69:27015" Раскидаю алгоритм действия. Запускам игру Запускаем программу По истечению тика на таймере отправляется запрос в консоль игры	Delphi Заполнить двумерный массив размерности 10х10 случайными числами на отрезке [-25,25] 1.Дан двумерный массив размерности 10х10. Заполнить его случайными числами на отрезке . Найти среднее арифметическое элементов первой строки. Вывести исходный массив и полученный результат на печать. 2.Дан двумерный массив размерности 10х10. Заполнить его случайными числами на отрезке . В каждой строке массива найти количество элементов, больших заданного числа H. Результат получить в... https://www.cyberforum.ru/ delphi-beginners/ thread1315644.html

darankos2

0 / 0 / 2

Регистрация: 20.01.2013

Сообщений: 81

Закрасить ячейку в Stringgrid с минимальным элементом - Delphi - Ответ 6924625

01.12.2014, 13:02. Показов 1160. Ответов 1

Метки (Все метки)

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

Доброго времени суток!

Не как не могу разобраться с раскрашиванием ячеек!

Delphi

1	var ACol, ARow: Integer; Rect: TRect;

Delphi

1
2
3

StringGrid1.Canvas.Brush.Color:=clRed;
if ((ACol=2)and(ARow=2)) then
  StringGrid1.Canvas.FillRect(Rect);

Найти нашел, но не понимаю в чем дело....почему не закрашивает мин элемент:

Delphi

With StringGrid1 do
 for i:=1 to RowCount-1 do
 begin
 min:=strtoint(StringGrid1.Cells[0,i]);
  for j:=0 to ColCount-1 do
  if (strtoint(StringGrid1.Cells[j,i])<min) then
  begin
  min:=Strtoint(StringGrid1.Cells[j,i]);
  ShowMessage(IntToStr(min));
  end;
  StringGrid2.Cells[0,i]:=IntToStr(min);
  end;      end;

п.с Убрал из-за не рабочего состояния)

Это все на TForm1.Button1Click(Sender: TObject);
Помогите мне с тем, чтобы stringgrid закрашивал или подчеркивал мин. элемент.
и еще, как находить пред последний минимальный элемент?,а вообще тут задача задача про Метод Мака)

Вернуться к обсуждению:
Закрасить ячейку в Stringgrid с минимальным элементом Delphi

Следующий ответ

Programming

Эксперт

94731 / 64177 / 26122

Регистрация: 12.04.2006

Сообщений: 116,782

01.12.2014, 13:02

Готовые ответы и решения:

Как закрасить ячейку в StringGrid?
А как закрасить ячейку(и) в StringGrid?

Как закрасить ячейку в StringGrid?
Мне необходимо чтобы при нажатии bitbtn закрашивались все ячейки в StringGrid в которых...

Закрасить ячейку в Stringgrid по клику
Такая проблема - нужно, чтобы при клике на ячейку в Stringgrid она окрашивалась в определенный цвет...

Как закрасить определённую ячейку в StringGrid
Как закрасить определённую ячейку черным цветом и чтобы в нее нельзя было вводить букву. Это для...

IT_Exp

Эксперт

87844 / 49110 / 22898

Регистрация: 17.06.2006

Сообщений: 92,604

01.12.2014, 13:02

Помогаю со студенческими работами здесь

Закрасить определенную ячейку StringGrid-а другим цветом
возможно ли сделать так: чтобы с помощью ТОЛЬКО кнопки (потомучто у меня есть цикл где копирует в...

Как закрасить ячейку в Stringgrid, в которой есть "*"
Всем привет! Подскажите мне пожалуйста, как закрасить ячейки Stringgrid в которой есть "*"?

Нужно строку с минимальным элементом поменять местами со столбцом с максимальным элементом
Кто может подсказать что тут не так? procedure TForm1.Button1Click(Sender: TObject); begin...

поменять местами столбец с минимальным элементом и столбец с максимальным элементом
Вводится матрица вещественных чисел,необходимо поменять местами столбец с минимальным элементом и...

Наверх