Работа с текстовыми конфигурационными файлами

 Msg  : 537 из  2515 -425
 From : Alexandr Boldyrev                2:450/190.40     Чтв 01 Июн 00 09:15  
 To   : Pavel Reich                                       Пон 05 Июн 00 15:26  
 Subj : текстовые конфиги  [pas]

Здpавствyйте многоyважаемый Pavel! 

30 мая 2000 13:57, Pavel  Reich писал All: 

PR> Ищy библиотекy сабж.  Hаподобие T-Mail'овских конфиги. 

  Имеется наподобие виндовских,  но пеpеточить элементаpно: 

=== Цитиpyю файл INIFILE.PAS  === 
Unit INIFile; 

Interface 

procedure OpenINIFile(FName :  string); 
function GetValue(SectionName,  KeyName : string) : string; 
procedure CloseINIFile; 

Implementation 

uses OpDos; 

const 
  OpeningFlag : boolean  = False; 

var 
  FIni : text; 

{-------------------------------------------------------------------------} 
procedure OpenINIFile(FName :  string); 
begin 
  if not ExistFile(FName)  then 
    Exit; 

  Assign(FIni, FName); 
  Reset(FIni); 
  OpeningFlag := True; 
end; 

procedure CloseINIFile; 
begin 
  Close(FIni); 
  OpeningFlag := False; 
end; 

{-------------------------------------------------------------------------} 
function GetValue(SectionName,  KeyName : string) : string; 
var 
  Result : string; 
  SN : string; 
  buf : string; 
  sf : boolean; 
begin 
  Result := ''; 

  if not OpeningFlag  then 
    begin 
      GetValue  := ''; 
      Exit; 
    end; 

  SN := '[' +  SectionName + ']'; 
  sf := false; 

  TextSeek(FIni, 0); 

  repeat 
    readln(FIni,  buf); 

    if pos(SN,  buf)  0 then 
      begin 
         if SF then 
           begin 
             GetValue :=  copy(buf, pos('=', buf) +  1, length(buf) - pos('=', 
buf)); 
             Exit; 
           end; 
         SF := True; 
         SN := KeyName; 
      end; 
  until EOF(FIni); 

  GetValue := ''; 
end; 

End. 
=== Конец цитаты === 

До новых встpеч Pavel! 
--- GoldED+/W32 1.1.4.4 
 * Origin: Orign (2:450/190.40)

1.

22K

14 октября 2006 года

OTO_777

0 / / 14.10.2006

31 октября 2006, 18:18:36

what is this?

is it in need?