"Забить" алфавит по порядку в stringgrid

@anyakrg · Регистрация: 22.10.2012

Мне нужно просто, чтобы когда ты запускаешь программу в ячейках stringgrid-а показывается русский алфавит по порядку

@Arigato · 26.04.2014, 22:31

Delphi

procedure TForm1.FormCreate(Sender: TObject);
var
  c: char;
begin
  for c := 'А' to 'Я' do
    StringGrid1.Cells[Ord(c)-Ord('А'),0]:=c;
end;

@anyakrg 0 / 0 / 1 Регистрация: 22.10.2012 Сообщений: 183
		1
	"Забить" алфавит по порядку в stringgrid 26.04.2014, 22:17. Показов 1767. Ответов 1 Метки нет (Все метки) Мне нужно просто, чтобы когда ты запускаешь программу в ячейках stringgrid-а показывается русский алфавит по порядку 0

	26.04.2014, 22:31

Решение