![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
ini файлы [D6, Win95/98]
don_dampster © (2002-10-04 18:05:00)Как записать значение в ini файл? Как прочитать?
Заранее благодарен.
OxOTHuK (2002-10-04 23:33:00) [1]2 don_dampster © Разгребайте молодой человек
OxOTHuK (2002-10-04 23:32:00) [2]function ReadIni(ASection, AString : String) : String;
var
sIniFile: TIniFile;
sPath : String[60];
const
S = "xyz"; { стандартная строка для выдачи ошибок чтения }
begin
GetDir(0,sPath);
sIniFile := TIniFile.Create(sPath + "\Name.INI");
Result := sIniFile.ReadString(ASection, AString, S); { [Section] String=Value }
sIniFile.Free;
end;
procedure WriteIni(ASection, AString, AValue : String);
var
sIniFile: TIniFile;
sPath : String[60];
begin
GetDir(0,sPath);
sIniFile := TIniFile.Create(sPath + "\Name.INI");
sIniFile.WriteString(ASection, AString, AValue);; { [Section] String=Value }
sIniFile.Free;
end;
{ReadSection считывает все пункты указанной секции - т.е. ключи перед знаком "="
ReadSectionValues полностью считывает все строки указанной секции, т.е. Punkt=xyz }
AL2002 (2002-10-04 23:14:00) [3]WEB-транслятор какой-нить поставь, или любой переводчик, который с буфером обмена работает и мультилайновым текстом. С головой хватит.
Anatoly Podgoretsky (2002-10-04 22:02:00) [4]don_dampster © (04.10.02 18:19)
М что же теперь делать, профессию менять, или у тебя это хобби, тем более надо знать лучше мастеров и не исключено, что лучше носителей
AL2002 (2002-10-04 20:03:00) [5]Или переводчик рядом запускай.
Poirot (2002-10-04 19:55:00) [6]Братец, учи Англицкий и не задавай глупых вопросов!!!
AL2002 (2002-10-04 18:31:00) [7]myIni:=TIniFile.Create(".\MyIni.ini");
myIni.WriteString("Kto","Vasia","Pupkin");
Str:=myIni.ReadString("Kto", "Vasia", "");
don_dampster (2002-10-04 18:19:00) [8]Но там же не по русски!
AL2002 (2002-10-04 18:07:00) [9]Юнит такой есть - IniFiles.
Там в хелпе по нему всё расписано.