Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Lazarus, Free Pascal, CodeTyphon
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 30.03.2016, 14:29   #11
Аватар
Старожил
 
Аватар для Аватар
 
Регистрация: 17.11.2010
Сообщений: 19,042
По умолчанию

Цитата:
А если исправить мой код?
Сам не можешь вместо + значок * поставить?
Если бы архитекторы строили здания так, как программисты пишут программы, то первый залетевший дятел разрушил бы цивилизацию
Аватар вне форума Ответить с цитированием
Старый 30.03.2016, 14:39   #12
Filka
Форумчанин
 
Регистрация: 29.10.2015
Сообщений: 272
По умолчанию

serge-first, мой вариант не катит?
Filka вне форума Ответить с цитированием
Старый 30.03.2016, 14:54   #13
serge-first
Пользователь
 
Регистрация: 27.02.2013
Сообщений: 66
По умолчанию

Цитата:
Сообщение от Аватар Посмотреть сообщение
Сам не можешь вместо + значок * поставить?
Это понятно))) А как, чтобы считывало именно от A до F ???

Спасибо.
serge-first вне форума Ответить с цитированием
Старый 30.03.2016, 14:56   #14
serge-first
Пользователь
 
Регистрация: 27.02.2013
Сообщений: 66
По умолчанию

Цитата:
Сообщение от Filka Посмотреть сообщение
serge-first, мой вариант не катит?
К сожалению нет(

Нужно именно здесь исправить, чтобы подобно этому коду было и использовать Format

Код:
procedure TForm1.FormCreate(Sender: TObject);
const N=16;
      M=16;
var Col,Row: integer;
begin
StringGrid1.ColCount:=N;
StringGrid1.RowCount:=M;
for Col:=0 to StringGrid1.ColCount - 1 do
for Row:=0 to StringGrid1.RowCount - 1 do
   begin
    if Col=0 then StringGrid1.Cells[Col,Row]:=Format('%x',[Row]) else
    if Row=0 then StringGrid1.Cells[Col,Row]:=Format('%x',[Col]) else
    StringGrid1.Cells[Col,Row]:=Format('%x',[Col+Row]);
   end;

StringGrid1.Width := StringGrid1.DefaultColWidth * StringGrid1.ColCount;
StringGrid1.Height := StringGrid1.DefaultRowHeight * StringGrid1.RowCount;

end;

end.
serge-first вне форума Ответить с цитированием
Старый 30.03.2016, 14:57   #15
Filka
Форумчанин
 
Регистрация: 29.10.2015
Сообщений: 272
По умолчанию

Я имел в виду для сложения.
Filka вне форума Ответить с цитированием
Старый 30.03.2016, 14:58   #16
serge-first
Пользователь
 
Регистрация: 27.02.2013
Сообщений: 66
По умолчанию

Цитата:
Сообщение от Filka Посмотреть сообщение
Я имел в виду для сложения.
Масштабно вышло)
serge-first вне форума Ответить с цитированием
Старый 30.03.2016, 15:49   #17
Dvoishnik
Форумчанин
 
Регистрация: 12.02.2011
Сообщений: 808
По умолчанию

Код:
procedure TForm1.FormCreate(Sender: TObject);
const N=16;
      M=16;
var Col,Row: integer;
begin
StringGrid1.ColCount:=(N-9);
StringGrid1.RowCount:=(M-9);
for Col:=9 to StringGrid1.ColCount +8 do
for Row:=9 to StringGrid1.RowCount +8 do
   begin
    if Col=9 then StringGrid1.Cells[Col-9,Row-9]:=Format('%x',[Row]) else
    if Row=9 then StringGrid1.Cells[Col-9,Row-9]:=Format('%x',[Col]) else
    StringGrid1.Cells[Col-9,Row-9]:=Format('%x',[Col+Row]);
   end;

StringGrid1.Width := StringGrid1.DefaultColWidth * StringGrid1.ColCount;
StringGrid1.Height := StringGrid1.DefaultRowHeight * StringGrid1.RowCount;

end;
Терпение!Дежурный экстрасенс скоро свяжется с вами!
Dvoishnik вне форума Ответить с цитированием
Старый 30.03.2016, 17:49   #18
serge-first
Пользователь
 
Регистрация: 27.02.2013
Сообщений: 66
По умолчанию

Супер) Всё работает) От души)
serge-first вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
[Delphi] ИЗ четырнадцатеричной системе счисления в десятеричной системе счисления Safok Помощь студентам 1 17.11.2014 22:41
Умножение в 4-системе счисления StoneGod Общие вопросы C/C++ 3 11.10.2014 15:56
Не работает преобразование кода из одной системы счисления в ID в другой системе счисления Ultran PHP 1 09.11.2013 21:15
В римской системе счисления Maxloki Паскаль, Turbo Pascal, PascalABC.NET 5 23.07.2013 20:47
Длинная Арифметика в не 10^n системе счисления svloyso Общие вопросы C/C++ 1 15.02.2011 16:05