Developing.ru

Код: Выделить всё

DWORD GetPrivateProfileString(
  LPCTSTR lpAppName,        // section name
  LPCTSTR lpKeyName,        // key name
  LPCTSTR lpDefault,        // default string
  LPTSTR lpReturnedString,  // destination buffer
  DWORD nSize,              // size of destination buffer
  LPCTSTR lpFileName        // initialization file name
);

Код: Выделить всё

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;

Код: Выделить всё

var
  f : TextFile;
  s, s1, s2 : string;
begin
  s1 := '...'; // тут например abc
  AssignFile(f, '1.txt');
  Reset(f);
  while not Eof(f) do
  begin
    readln(f, s);
    if Pos('...', s) > 0 then // вместо "..." символы после которых идёт поиск, вроде так
    begin
      s2 := Copy(trim(s),Length(s1),255);
      ComboBox1.Items.Add(trim(s2));
    end;
  end;
  closefile(f);
end;

Код: Выделить всё

function get_param(bg,ed:string;rep:string):string;//получение параметров
var i:integer;
begin
i:=pos(bg,rep);
if i<>0 then begin
             i:=i+length(bg)-1;
             delete(rep,1,i);
             get_param:=copy(rep,1,pos(ed,rep)-1);
             end
        else get_param:='';
end;

Используем:
function TForm1.load_LibImControl:бла бла бла; //так же делайте процедуру ниже указанный код можно вставить куда угодно!
var
ff:textfile;
s1,s2:string;
begin
assignfile(ff,extractfilepath(Application.ExeName)+'Installation.sis');
{$I-}
reset(ff);
{$I+}
if ioresult<>0 then
begin
                   exit;
                    end;
repeat
readln(ff,s1);
s2:=copy(s1,1,pos('=',s1)-1);
if s2='LibImControl' then 
например-edit.txt:= get_param('"','"',s1);
например-integer:= StrToInt(get_param('"','"',s1));
//вобщем разберётесь мне очень помогает эта функция! 
until eof(ff);
closefile(ff);
end;