"Ha ez valóban egy afféle nyílvántarto progi akkor ajánlom hogy az adatokkal vigyáz. ha az adatok titkosítattlan és egyszer vki megsasolja akkor bajba kerülhet az ember mert elvileg a kisebbségi adatokat nem lehet tárolni. Emiat se statisztikai vagy hasonló adatokat is csak beleegyezéssel tárolhatunk"

Igen ez így van, és ha beleegyezik, akkor is vigyázni kell, hogy illetéktelenek ne férjenek hozzá. Illetve az is egy lehetséges megoldás, hogy az ini fájlban nem úgy nevezed meg, hogy kisebbsegi=1, hanem pl.: adat12=1
így:
if pos('adat12=1',memo1.Lines[i])<>0 then
begin kissebbseg:=kissebbseg+1 end;

Akkor ha a progit jelszóval véded, és csak a programban rendelődik hozzá a kisebbségi jelző, akkor az ini fájl értelmezhetetlen lesz másnak, legalábbis nem tartalmaz konkrétan felhasználható adatot más számára. Sőt, ha a nevek karaktereit pl számokkal helyetesíted, úgy hogy a progi vissza tudja alakítani karakterekké, akkor még név sem szerepel az ini fájlban.
Üdv.: Totó

Szia!
Nagyon "konyhai" módon:
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type
TForm1 = class(TForm)
Memo1: TMemo;
Button1: TButton;
Button2: TButton;
OpenDialog1: TOpenDialog;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
egyeni_fejlesztes,logopedia,sni,tizorai,tizoraiebed,tizoraiebeduzsonna,
veszelyeztetett,kissebbseg,ingyenes,kedvezmeny,fizetos:integer;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
if opendialog1.Execute then
memo1.Lines.LoadFromFile(opendialog1.FileName);
end;

procedure TForm1.Button2Click(Sender: TObject);
var i:integer;
begin
for i:=0 to memo1.Lines.Count do
begin
if pos('egyeni_fejlesztes=1',memo1.Lines[i])<>0 then
begin egyeni_fejlesztes:=egyeni_fejlesztes+1 end;
if pos('logopedia=1',memo1.Lines[i])<>0 then
begin logopedia:=logopedia+1 end;
if pos('sni=1',memo1.Lines[i])<>0 then
begin sni:=sni+1 end;
if pos('tizorai=1',memo1.Lines[i])<>0 then
begin tizorai:=tizorai+1 end;
if pos('tizoraiebed=1',memo1.Lines[i])<>0 then
begin tizoraiebed:=tizoraiebed+1 end;
if pos('tizoraiebeduzsonna=1',memo1.Lines[i])<>0 then
begin tizoraiebeduzsonna:=tizoraiebeduzsonna+1 end;

if pos('veszelyeztetett=1',memo1.Lines[i])<>0 then
begin veszelyeztetett:=veszelyeztetett+1 end;
if pos('kissebbseg=1',memo1.Lines[i])<>0 then
begin kissebbseg:=kissebbseg+1 end;
if pos('ingyenes=1',memo1.Lines[i])<>0 then
begin ingyenes:=ingyenes+1 end;
if pos('kedvezmeny=1',memo1.Lines[i])<>0 then
begin kedvezmeny:=kedvezmeny+1 end;
if pos('fizetos=1',memo1.Lines[i])<>0 then
begin fizetos:=fizetos+1 end;

end;Showmessage('sni: '+inttostr(sni));
end;

end.

Üdv.: Totó