| | |
| Stránka: 1 z 1
| [ Príspevkov: 5 ] | |
Autor | Správa |
---|
Registrovaný: 10.06.09 Prihlásený: 02.07.12 Príspevky: 12 Témy: 7 | Napísal Medo11: 08.03.2010 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
|
|
Registrovaný: 11.01.09 Prihlásený: 20.04.24 Príspevky: 1385 Témy: 9 Bydlisko: Hrinova | Napísal Fico: 08.03.2010 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.
|
|
Registrovaný: 10.06.09 Prihlásený: 02.07.12 Príspevky: 12 Témy: 7 | Napísal autor témy Medo11: 09.03.2010 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
|
|
Registrovaný: 11.01.09 Prihlásený: 20.04.24 Príspevky: 1385 Témy: 9 Bydlisko: Hrinova | Napísal Fico: 10.03.2010 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ĺúč');
|
|
Registrovaný: 10.06.09 Prihlásený: 02.07.12 Príspevky: 12 Témy: 7 | Napísal autor témy Medo11: 10.03.2010 10:51 | |
|
Ďakujem ti Fico veľmi pekne fakt si mi veľmi pomohol
|
|
| Stránka: 1 z 1
| [ Príspevkov: 5 ] | |
Podobné témy | Témy | Odpovede | Zobrazenia | Posledný príspevok |
---|
| Lazarus v Delphi, Visual Basic | 2 | 1710 | 03.03.2010 15:50 mathio | | Lazarus - problém v Delphi, Visual Basic | 8 | 786 | 22.12.2011 17:50 wiini | | Lazarus - diakritika v Delphi, Visual Basic | 6 | 791 | 02.01.2014 9:31 BX | | Lazarus - procedúra v Ostatné | 2 | 832 | 17.02.2012 23:06 luboss8 | | Lazarus - pin v Delphi, Visual Basic | 8 | 680 | 21.02.2017 11:41 BX | | Lazarus - Symbolický odkaz v Delphi, Visual Basic | 0 | 483 | 08.10.2013 18:33 David22 | | Lazarus a Delphi v Delphi, Visual Basic | 6 | 926 | 18.02.2011 9:12 Fico | | Lazarus - rotate Image v Delphi, Visual Basic | 3 | 718 | 12.11.2012 23:50 F3RY | | Lazarus OOP smernik v Delphi, Visual Basic | 0 | 521 | 30.03.2014 1:56 F3RY | | typove subory v LAZARUS v Assembler, C, C++, Pascal, Java | 1 | 436 | 15.12.2015 21:34 matesko3 | | Lazarus - pocet pvkov pola v Assembler, C, C++, Pascal, Java | 5 | 309 | 30.04.2013 18:10 BX | | Lazarus - premenne v OOP v Delphi, Visual Basic | 19 | 895 | 11.01.2013 17:04 F3RY | | Lazarus - ako na to v Assembler, C, C++, Pascal, Java | 20 | 886 | 17.06.2015 9:43 reDo | | Polia - lazarus programovanie pomoooc v Delphi, Visual Basic | 3 | 747 | 28.11.2012 14:00 BX | | Lazarus a Win CE v Delphi, Visual Basic | 0 | 476 | 25.10.2012 14:26 jbakos | | Delphi / Lazarus - Form fixed v Delphi, Visual Basic | 1 | 444 | 12.05.2014 1:02 F3RY |
| Nemôžete zakladať nové témy v tomto fóre 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
|
|