Vlastné kódy najlepšie uložiť do súboru v takomto tvare (súbor nech sa volá napr databaza.txt):
Kód:
ID111
ID112
ID113
ID114
ID115
A potom ich kontrolovať trebars po kliknutí na tlačidlo (na formulári nech je edit, v ktorom bude skúmaný kód a tlačidlo, ktorého obsluha je tu):
Kód:
procedure TForm1.Button1Click(Sender: TObject);
var
f: TextFile;
s: string[5]; // tá 5-ka je dĺžka reťazcov uložená v databáze - každý kód musí mať takúto dĺžku !!!
ok: boolean;
begin
ok:= false;
AssignFile(f, 'databaza.txt');
Reset(f);
while( not EoF(f) ) do begin
readln(f, s);
if (s = Edit1.Text) then begin
OK:= true;
break;
end;
end;
if OK then ShowMessage('Databáza obsahuje kĺúč');
CloseFile(f);
end;
Ak sa kód z Editu nachádza v databáze, vyskočí hláška - to už je ale iba signalizácia, stači to zameniť za požadovaný kód.
