|
 | | |
| Autor | Správa |
|---|
Medo11
Užívateľ
Založený: 10.06.2009
Príspevky: 12
 |  Zaslal: Po 08.03.10 16:32 |   |
ahojte chcem sa opytat a prosim o radu.
aky zdrojak mam dat ked chcem aby moj program co programujem robilo nasledovne:
mam tam riadok aby sa donho pisalo
napr napisem ID111 a vedla je tlacidlo overit.
To by mi malo vypisat ze ci je spravny kod alebo nie.
Moja prva otazka ako a kde si mam navolit moje vlastne kody aby si to zapamatalo a a potom ako mam napisat ten zdrojovy kod ano aleb nie aby mi ho bralo z tej mojej datazaby. dakujem |
| |
  |
|
Fico
Skúsený užívateľ
Založený: 11.01.2009
Príspevky: 908
| | Zaslal: Po 08.03.10 19:05 | |
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. |
| |
 |
|
Medo11
Užívateľ
Založený: 10.06.2009
Príspevky: 12
| | Zaslal: Ut 09.03.10 21:23 | |
Cau no super je to funguje to dakujem. ale ako este nastavim aby mi vybehla aj hlaska ked nie je spravny ten ID kod. Lebo ked napisem teraz ID111 tak vypise ze databaza obsahuje kluc. potrebujem este jedno okno nech vyskoci ze nenachadza sa v databaze . Dakujem |
| |
|
|
Fico
Skúsený užívateľ
Založený: 11.01.2009
Príspevky: 908
| | Zaslal: St 10.03.10 10:23 | |
riadok:
| kód: | | if OK then ShowMessage('Databáza obsahuje kĺúč'); |
sa zmeni na:
| kód: | if OK then ShowMessage('Databáza obsahuje kĺúč')
else ShowMessage('Databáza neobsahuje kĺúč'); |
|
| |
|
|
Medo11
Užívateľ
Založený: 10.06.2009
Príspevky: 12
| | Zaslal: St 10.03.10 10:51 | |
Ďakujem ti Fico veľmi pekne fakt si mi veľmi pomohol  |
| |
|
|
|
Nemôžete pridávať nové témy do tohto fóra.
Nemôžete odpovedať na témy v tomto fóre.
Nemôžete upravovať svoje príspevky v tomto fóre.
Nemôžete mazať svoje príspevky v tomto fóre.
Nemôžete hlasovať v tomto fóre.
|
| |
