Как динамично быстро загрузить в компонент Stringgrid 34 символа?

[SkAndrew]

Добрый день!

Как динамично быстро загрузить в компонент Stringgrid 34 символа по одному в каждую ячейу без традиционного перебора ячеек в цикле?
Если можно небольшой пример.
Спасибо.

[mihali4]

без традиционного перебора ячеек в цикле

Только если написать 34 одинаковых оператора занесения символа в ячейку, правда, важно не ошибиться при простановке индексов (столбцов и строк)...
****************************
Теперь будем ждать вопроса типа: "Как самому написать игру вроде DOOM, только чтобы поменьше буковок вносить в код ?"...

[Квэнди]

в StringGrid (с учетем того что ввод осуществляется в разные строки и столбцы) никак

[Jeni]

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

Как динамично быстро загрузить в компонент Stringgrid 34 символа...

А что подразумевается под словом "быстро"? Быстрее, чем за некоторое заданное время или как?

P.S. Скорее была бы проблема загрузить их медленно.

[SkAndrew]

Речь идет о создании диалогового окна выбора символов наподобие стандартной таблицы символов Windows. Если можно программно вызвать ее то это решение задачи (тогда вопрос как это сделать прогораммно из своего приложения так чтобы после выбора символа он был вписан в, например в компонент Edit1 в положение курсора), если это осуществить нельзя тогда вопрос как вывести и собрать символы в таблицу (их 34) максимально быстро, чтобы при открытии формы с таблицей она какждый раз не создавалась заново. Спасибо.

[Jeni]

Насчет вызова стандартной таблицы символов ничего сказать не могу, а что касается открытия формы с таблицей, то, во-первых, StringGrid хранит всё, что в нее записывалось, т.е. достаточно поместить туда символы один раз, а во-вторых - даже если создавать таблицу заново каждый раз (в том числе вместе с формой), настраивать её и заносить символы, то всё равно это будет занимать ничтожное время (вряд ли больше одной сотой секунды).

[SkAndrew]

Вот я прошу подсказать пример использования процедуры быстрого заполнения ячеек сиволами. Спасибо.

[Jeni]

Пример, конечно, привести можно:

var
  // Массив символов
  CharArray: array[1..34] of Char;

procedure FillTable(Grid: TStringGrid);
var
  I: Integer;
begin
  // Заполнит символами из массива верхнюю строчку заданной таблицы
  for I := 1 to 34 do
    Grid.Cells[I, 0] := CharArray[I];
end;

Вот только я по-прежнему не понимаю, что значит "быстрого заполнения". Даже если бы символов было 34 тысячи, то и тогда было бы очень быстро.

[mihali4]

Речь идет о создании диалогового окна выбора символов наподобие стандартной таблицы символов Windows. Если можно программно вызвать ее то это решение задачи (тогда вопрос как это сделать прогораммно из своего приложения так чтобы после выбора символа он был вписан в, например в компонент Edit1 в положение курсора)

А кто, собственно, мешает вам это сделать?
Файл называется CHARMAP.EXE, вызывайте его себе на здоровье...

[SkAndrew]

Спасибо за ответ.
Я предполагал, что есть решение загрузки массива символов через процедуру StringGrid - StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer; Rect: TRect; State: TGridDrawState)/ И чем загрузка через эту процедуру будет отличаться от приведенного примера Jeni^
var
// Массив символов
CharArray: array[1..34] of Char;

procedure FillTable(Grid: TStringGrid);
var
I: Integer;
begin
// Заполнит символами из массива верхнюю строчку заданной таблицы
for I := 1 to 34 do
Grid.Cells[I, 0] := CharArray[i];
end;
Спасибо!