Форум программистов, компьютерный форум, киберфорум
Наши страницы
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Delphi Определение стоимости ... http://www.cyberforum.ru/delphi-beginners/thread419048.html
Задание 4 Цена 1 кг сыра k рублей. Составить программу, определяющую стоимость 100 г, 200 г, 300 г, 400 г, 500 г, 600 г, 700 г, 800 г сыра. Задание 6 Даны действительные числа x, y, z....
Двусвязный список, сортировка пузырьком Delphi
Доброго времени суток уважаемые форумчане. Нужна помощь написания программы. Условие такое: написать двусвязный список и провести в нём сортировку пузырьком. Среда разработки само собо Delphy7(тот...
Вырезка цифрк с изображения Delphi
Я пытаюсь научиться распозновать капчи, довел капчу до этого вида далше не знаю как вырезать цыфарки, я бы вырезал по координатам фиксированным, только не получается т.к положение цифр по X u Y...
Delphi Текст модуля Добрый день. Помогите разобраться в следующем вопросе: почему нельзя ничего объявлять в теле модуля вне процедур? unit Main; interface uses Windows, Messages, SysUtils, Variants, Classes,... http://www.cyberforum.ru/delphi-beginners/thread418942.html
Delphi Двумерный массив. http://www.cyberforum.ru/delphi-beginners/thread418929.html
Помоги пожалуйста с лаб. работой, обычно проблем не возникает но тут, возникла проблема с тем, что нужно определить есть ли в массиве столбец, в котором имеются одинаковые элементы. Задание: Дан...
Delphi Что является size в приведенном коде
procedure TFigure.Hide; begin Canvas.Pen.Color:= clWhite; Canvas.Brush.Color:= clWhite; Canvas.Rectangle(x - size div 2, y - size div 2, x + size div 2, y + size div 2); end; procedure...
Выручайте. 3 програмы нужны к завтрашнему дню Delphi
12. Сколько имеется двузначных чисел, у которых сумма цифр делится на 13, а произведение цифр на 8. 14. Найти двузначное число, у которого сумма квадратов цифр десятков и единиц делится на 3....
Delphi Как удалить каждый третий символ слова Всем добрый день. Прошу вашей помощи. Как мне удалить каждый третий символ слова. Что-то я в ступор впадаю... procedure TForm1.Button1Click(Sender: TObject); begin if n<3 then showmessage... http://www.cyberforum.ru/delphi-beginners/thread418910.html
Delphi Движение фигуры по диагонали http://www.cyberforum.ru/delphi-beginners/thread418882.html
Помогите сделать движение по диагонали туда и обратно не выходя за границы Вот программа
Delphi Получить все общие делители заданных чисел 1.Факультету выделен стипендиальный фонд в размере f руб./мес. Результаты сессии таковы: n1 ─ «отличников», n2 ─ «хорошистов», n3 ─ «троечников». Повышенная стипендия (для отличников) составляет s1... http://www.cyberforum.ru/delphi-beginners/thread418870.html
Zubastic
1 / 1 / 1
Регистрация: 22.04.2011
Сообщений: 39
28.12.2011, 05:59  [ТС] 0

Настройки конфигурации

28.12.2011, 05:59. Просмотров 703. Ответов 3
Метки (Все метки)

Ответ

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Menus, inifiles;
 
type
  TForm1 = class(TForm)
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    N5: TMenuItem;
    procedure N3Click(Sender: TObject);
    procedure N2Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
  Config:TIniFile;
 
implementation
{$R *.dfm}
 
procedure TForm1.FormCreate(Sender: TObject);
begin
if not FileExists('config.ini')
   then
    begin
      ShowMessage('Настройте настройки в меню!!!');
      Config:=TIniFile.Create('Config.ini');
      Config.WriteString('Settings','1','');
      Config.WriteString('Settings','2','');
      Config.WriteString('Settings','3','');
      Config.WriteString('Settings','4','');
      Config.WriteString('Settings','5','');
    end;
 
 
 
end;
 
procedure TForm1.N3Click(Sender: TObject);
begin
 close;
end;
 
procedure TForm1.N2Click(Sender: TObject);
begin
   MessageBox(Handle,PChar('Программа для рассчета.'),PChar('Info'),MB_ICONWARNING+MB_OK);
end;
 
end.
Проблема: не создается файл config.ini с инишниками работаю впервые поэтому желательна помощь...в некоторых гайдах указывается полный путь, мне же нужно, чтобы программа искала инишник в папке с собой и нигде более, т.е. динамический путь, а не абсолютный...

Добавлено через 2 часа 57 минут
Проблема с фрейм, не знаю как сделать, чтобы при тыке в меню открывался фрейм

Добавлено через 1 час 53 минуты
Реализовал без фрейма, но проблема с сохранением осталась...

Добавлено через 1 час 56 минут
вообщем напишу, чтобы сохранить в папке с программой нужно написать не:
Delphi
1
Config:=TIniFile.Create('Config.ini');
, а
Delphi
1
Config:=TIniFile.Create('.\Config.ini');
, в первом случае ини попадет в папку с виндоус, но по сути это правило плохого тона, почему инишник должен лежать в папке с виндой, если он для программы?
2 точки повышают уровень, т.е. конфиг файл не в папке с программой, а на уровень выше.

Вернуться к обсуждению:
Настройки конфигурации
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
28.12.2011, 05:59
Готовые ответы и решения:

Читать настройки приложения из файла конфигурации
Добрый день. Хотелось бы часть настроек программы вывести в конфиг-файл, но как грамотно это...

Текущая система конфигурации не поддерживает настройки на уровне пользователя
Здравствуйте! Разрабатываю службу WCF которая бы искала документе в системе электронного...

Как перенести все настройки сайта (тему, настройки, плагины, настройки) на другой сайт и домен?
Как перенести все настройки сайта (тему, настройки, плагины, настройки) на другой сайт и домен....

К какой конфигурации придёт машина Тьюринга (исходя из начальной конфигурации)
Работа машины Тьюринга определяется следующей программой: {q}_{1}3\rightarrow {q}_{1}3L;...

Влияние расширения конфигурации на скорость загрузки конфигурации
Платформа 1С:Предприятие 8.3 (8.3.11.2867) Конфигурация УправлениеТорговымПредприятиемДляУкраины,...

3
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2019, vBulletin Solutions, Inc.
Рейтинг@Mail.ru