Четверг, 21.11.2024, 22:28 Приветствую вас Гость | Группа "Гости" 
Меню сайта

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

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

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

Опрос
Кто вы в программировании?
Всего ответов: 507

Главная » Статьи » 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)
Просмотров: 4751 | Рейтинг: 2.5/2

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



Поиск

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

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

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

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