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

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

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 09.05.2018, 21:43   #11
Shouldercannon
Участник клуба Подтвердите свой е-майл
 
Аватар для Shouldercannon
 
Регистрация: 26.01.2008
Сообщений: 1,893
По умолчанию

Вот неплохо
Код:
procedure TForm1.FormCreate(Sender: TObject);
begin
  StringGrid1.Cells[0, 0] := 'Номер';
  StringGrid1.Cells[1, 0] := 'Приём';
  StringGrid1.Cells[2, 0] := 'Выдача';
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  IniFile: TIniFile;
  I, I2: Integer;
begin
  try
    IniFile := TIniFile.Create(ExtractFilePath(Application.ExeName) + 'test.ini');
    try
      for I := 1 to StringGrid1.RowCount - 1 do // Цикл с 1, Fixed row не нужен
      begin
        for I2 := 0 to StringGrid1.ColCount - 1 do
        begin
          IniFile.WriteString('Row' + IntToStr(I), 'Item' + IntToStr(I2), StringGrid1.Cells[I2, I]);
        end;
      end;
    except
    end;
  finally
    FreeAndNil(IniFile);
  end;
end;

procedure TForm1.Button2Click(Sender: TObject);
var
  IniFile: TIniFile;
  SL: TStringList;
  Col, Row, I, I2: Integer;
begin
  // Очистка таблицы
  for Col := 0 to StringGrid1.ColCount - 1 do
    for Row := 1 to StringGrid1.RowCount - 1 do StringGrid1.Cells[Col, Row] := ''; // Цикл с 1, Fixed row не трогаем
  try
    IniFile := TIniFile.Create(ExtractFilePath(Application.ExeName) + 'test.ini');
    SL := TStringList.Create;
    try
      IniFile.ReadSections(SL);
      StringGrid1.RowCount := SL.Count + 1; // + 1 из-за Fixed row
      StringGrid1.ColCount := 3;
      Col := 0;
      Row := 1;
      for I := 0 to SL.Count - 1 do
      begin
        for I2 := 0 to 2 do
        begin
          StringGrid1.Cells[Col, Row] := IniFile.ReadString(SL.Strings[I], 'Item' + IntToStr(I2), '');
          inc(Col);
        end;
        Col := 0;
        inc(Row);
      end;
    except
    end;
  finally
    FreeAndNil(IniFile);
    FreeAndNil(SL);
  end;
end;
Shouldercannon вне форума Ответить с цитированием
Старый 09.05.2018, 21:52   #12
min@y™
Цифровой кот
Старожил
 
Аватар для min@y™
 
Регистрация: 29.08.2014
Сообщений: 7,656
По умолчанию

Я сделал всё, что мог. Умываю руки...

Расскажу я вам, дружочки, как выращивать грибочки: нужно в поле утром рано сдвинуть два куска урана...
min@y™ вне форума Ответить с цитированием
Старый 10.05.2018, 02:46   #13
northener
ПШП
Участник клуба
 
Регистрация: 15.07.2013
Сообщений: 1,859
По умолчанию

Цитата:
Сообщение от Shouldercannon Посмотреть сообщение
Всё не так просто.
Опять вы чего-то умалчиваете.
northener вне форума Ответить с цитированием
Ответ


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

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

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Как такое вот, реализовать как на картине HellMercenariess Общие вопросы Delphi 4 28.01.2017 10:12
как реализовать такое же меню как и здесь KWNlnc Общие вопросы Delphi 7 08.06.2010 22:46
Как реализовать на с++ Xnet Общие вопросы C/C++ 1 27.05.2010 22:20
Кнопки как RadioButton'ы в GroupBox'e. Как реализовать? Casper-SC Общие вопросы .NET 9 06.03.2010 20:07
Игра,угадай задуманное число,Ошибка деления на ноль!!! Rid Помощь студентам 4 22.10.2009 21:12