[Viajero]

Что то похожее...

Код:

procedure TwMain.fRestoreFiles(); {Восстановление карточек (описания хранятся в *.ini)}
var    
  rSea:integer;
  sType:string;
  sActiveCard:string;
  sForm:string;
begin
  sActiveCard:=stEmpty;
  dirspecCard:=CurrentDir + '\Data\Cards\*.*';
  rsea:=findfirst(dirspecCard,(faAnyFile-faDirectory),flsea);
  while rSea=0 do
    begin
      filespecCard:=CurrentDir + '\Data\Cards\'+flsea.Name;
      flCard:= TIniFile.Create(filespecCard);    {создание файла карты как ini файла}
      sForm:=flCard.ReadString('Description', 'Form','None' );
      if  sForm='Card' then begin
        sType:=flCard.ReadString('Description', 'Type','None');
        if sType='Active' then begin  {восстановление активных карточек}
          sActiveCard:=filespecCard;
        end;
        if sType='Noactive' then fRestoreCard(filespecCard); {восстановление неактивных карточек}
      end;
      flCard.Free;
      rSea:=findnext(flsea);
   end;
   if sActiveCard <> stEmpty then  fRestoreCard(sActiveCard);
end;