BBB » 13 мар 2007, 17:52
Сейчас_не_спящий,
Переименовывать файл совершенно нет нужды. В функции указывается полное имя файла (включая расширениее)
Оказывается, в Delphi есть класс TIniFile (uses IniFiles)
Использовать, видимо, как-то так (пишу по help-у, в Дельфях не приходилось этого делать).
Код: Выделить всё
Var vIni : TIniFile;
st_adyrh :string;
begin
vIni.Create ('C:\MyFlder\MyFile.TXT');
st_adyrh := ReadString (
'SYSTEM', // раздел файла
'adyrh', // ключ, т.е. то, что слева от твоего '='
'adyrh'); // значение по умолчанию, т.е. то, что вернет функция,
// если ключ 'adyrh' в разделе 'SYSTEM' или вообще раздел
// 'SYSTEM' отсутсвуют
vIni.Free ();
end;
Или, если не использовать этот класс, то:
Код: Выделить всё
var Buffer: array[0..2047] of Char;
stResult : String;
Section, Ident, Default : string
FileName : string;
begin
FileName := 'C:\MyFlder\MyFile.TXT';
Section := 'SYSTEM';
Ident := 'adyrh';
Default := 'adyrh';
SetString (stResult,
Buffer,
GetPrivateProfileString (PChar(Section),
PChar(Ident), PChar(Default), Buffer, SizeOf(Buffer),
PChar(FileName)));
end;
[b]Сейчас_не_спящий[/b],
Переименовывать файл совершенно нет нужды. В функции указывается полное имя файла (включая расширениее)
Оказывается, в Delphi есть класс TIniFile (uses IniFiles)
Использовать, видимо, как-то так (пишу по help-у, в Дельфях не приходилось этого делать).
[code]
Var vIni : TIniFile;
st_adyrh :string;
begin
vIni.Create ('C:\MyFlder\MyFile.TXT');
st_adyrh := ReadString (
'SYSTEM', // раздел файла
'adyrh', // ключ, т.е. то, что слева от твоего '='
'adyrh'); // значение по умолчанию, т.е. то, что вернет функция,
// если ключ 'adyrh' в разделе 'SYSTEM' или вообще раздел
// 'SYSTEM' отсутсвуют
vIni.Free ();
end;[/code]
Или, если не использовать этот класс, то:
[code]
var Buffer: array[0..2047] of Char;
stResult : String;
Section, Ident, Default : string
FileName : string;
begin
FileName := 'C:\MyFlder\MyFile.TXT';
Section := 'SYSTEM';
Ident := 'adyrh';
Default := 'adyrh';
SetString (stResult,
Buffer,
GetPrivateProfileString (PChar(Section),
PChar(Ident), PChar(Default), Buffer, SizeOf(Buffer),
PChar(FileName)));
end;
[/code]