1
  1. Этот сайт использует файлы cookie. Продолжая пользоваться данным сайтом, Вы соглашаетесь на использование нами Ваших файлов cookie. Узнать больше.
Приветствуем вас,Гость, на форуме IFUD.WS. Обязательно рекомендуется к прочтению правила форума http://ifud.ws/threads/obnovleno-pravila-foruma.7759

Парсер файла

Тема в разделе "Программирование", создана пользователем K_NoW, 17 апр 2015.

  1. TopicStarter Overlay
    K_NoW

    K_NoW HackMe Please

    Регистрация:
    16 мар 2014
    Сообщения:
    464
    Симпатии:
    222
    В общем иногда вы юзаете TIniFile для записи и чтения параметров из ини файлов.
    Я написал ф-цию которая на 30% заменяет данный класс. К примеру если вы кодите троян и вам нужен файл конфига, моя фция фам очень поможет.

    Парсит файл вида:

    Код:
    #коментарий
    параметр:значение
    Сама функция:
    Код:
    Function ParseFile(name,param:string):string;
    var
    fcount:integer;
    tec:String;
    Tfile:TextFile;
    i :integer;
    begin
    assignfile(TFile,name);
    Reset(Tfile,name);
    fcount :=sizeof(TfILE);
    for i:=0 to fcount do begin
    ReadLn(TFile,tec);
    if Copy(tec,1,pos(':',tec)-1) = param then begin
    if not (copy(tec,1,3) = '#') then begin
    result :=Copy(tec,pos(':',tec)+1,length(tec));
    break;
    end;
    end;
    end;
    CloseFile(Tfile);
    end;
     
    • Like Like x 4
    Метки:
  2. TopicStarter Overlay
    K_NoW

    K_NoW HackMe Please

    Регистрация:
    16 мар 2014
    Сообщения:
    464
    Симпатии:
    222
    Для тех кто в танКе:
    Юзать так:
    memo1.text :=ParseFile('файл','параметр');
     
    • Like Like x 1

Поделиться этой страницей

Загрузка...