Суббота, 20.04.2024, 13:32 Приветствую вас Гость | Группа "Гости" 
Меню сайта

Категории раздела
Вирусология [40]
Статьи о вирусах
Системные [1]
Работа с системой
Примеры [45]
Приёмы, функции, процедуры
Ceти [1]
Работа с интернет
Шуточные программы [5]
Пишем шуточные программки
Остальное [6]
Всё что не вошло

Популярные статьи

Недавние темы

Опрос
Вы женаты/замужем?
Всего ответов: 9

Главная » Статьи » Delphi » Примеры

Урок по Дельфи. “INI-files”
Создаем новое приложение.

А теперь сделаем программу с поддержкой, например, языков (русский и английский).

Кидаем на форму компонент TLabel, Tbutton и еще TButton.

В свойстве Caption пишем:

Для Label - Программа

Для Button1 - Русский

Для Button2 - English

Далее ищем код примерно такого содержания:

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;

И заменяем его (Copy-Paste) на этот:

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, IniFiles;

Как видите, появился еще один модуль - inifiles, который отвечает за сами ини-файлы.

Далее еще проще:

var
  Form1: TForm1;

  INI: TiniFile; // добывляем переменную типа TiniFile;

Теперь два раза быстро кликаем на Button1 и вставляем:

INI:=TInifile.Create(’c:\lang.ini’); // Создание переменной
Button1.Caption:=ini.ReadString(’RUS’,'Button1?,'’);
Button2.Caption:=ini.ReadString(’RUS’,'Button2?,'’);
Label1.Caption:=ini.ReadString(’RUS’,'Label1?,'’);

Разберемся, что к чему.

TIniFile имеет кучу паремтров ЧТЕНИЯ и ЗАПИСИ

readstring - прочитать строку, соответственно

writestring - записать.

Так же есть чтение boolean, integer и прочее…

Но нам нужен сам файл..

Создаем новый текстовый документ, переименовывыем как lang.ini

И вставляем следуещее:

[RUS]
Button1=Русский
Bitton2=Английский
Label1=Программа
Form1=Выберите язык

[ENG]
Button1=Russian
Bitton2=English
Label1=Application
Form1=Choose language

[MES]
Message=Hello, world!

Все это просто строки, которые указываются в параметрах чтения/записи, т.е

readstring(section:string;ident:string;default:string;)

Section - название СЕКЦИИ, в нашем случае это [RUS] (УКАЗЫВАТЬ БЕЗ СКОБОК в ПРОГРАММЕ, А В БЛОКНОТЕ СТАВИТЬ СКОБКИ)

Ident - Параметр, находящийся в какой-то секции, как Button1=

Default - если у параметра Ident будет отсутствовать стока (вид Button1=), то

параметр примет вид Button1=”то, что вы указали в параметре Default”

Тот же вид имеет writestring.

Теперь сохраните файл lang.ini на диске C:, запустите программу и нажмите на кнопку Button1 (Русский) - и увидите те надписи, что Вы написали…

Тот де принцип и у Button2.

-А что за секция [MES] ?-спросите Вы.

-А сейчас узнаете, - скажу я и попрошу Вас читать далее:

Можете поставить еще одну кнопку на форму и вставить такой код:

showmessage(ini.readstring(’MES’,'Message’,'’);

И при нажатии на кнопку покажется сообщение со строкой из ini-файла!!!

—–

Вобщем, тут просто разобраться…дерзайте!!!

Категория: Примеры | Добавил: dolphin (27.09.2008)
Просмотров: 4626 | Рейтинг: 4.0/1

Всего комментариев: 0
avatar
Профиль


Логин:
Пароль:

Поиск

Наша кнопка
Вирусология, взгляд из Delphi

Статистика
Top.Mail.Ru Яндекс.Метрика Счетчик тИЦ и PR
Статистика материалов
Файлов: 454
Форум: 1165/8116
Коментариев: 768
Новостей: 29

Статистика пользователей
Всего: 331
За неделю: 2
Вчера: 0
Сегодня: 0
Всего онлайн: 1
Гостей: 1
Пользователей: 0

delphicode.ru © 2008 - 2024 Хостинг от uCoz