Liebe Community,
ich möchte ein Werkzeug schreiben, was Seriennummern auf Gültigkeit prüft.
Gedacht habe ich mir das so:
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
| if (Edit3.Text = '75475-09408-24881-53371-07741') or (Edit3.Text = '48090-48938-70401-95127-28075') or
(Edit3.text = '76315-87873-32685-36470-64126') or (Edit3.Text = '17032-73316-42406-74026-72489') or (Edit3.Text = '33660-37236-51521-33065-22426') or
(Edit3.Text = '49856-16314-32028-92560-28316') or (Edit3.Text = '49424-19867-07733-35950-90691') or (Edit3.Text = '36546-35187-99492-42434-19190') or
(Edit3.Text = '19762-84982-57230-85446-40507') or (Edit3.Text = '48804-72071-93219-27780-02817') or (Edit3.Text = '15755-65551-23622-84769-82797') or
(Edit3.Text = '45922-11513-41417-25355-84374') or (Edit3.Text = '08896-48651-14984-14537-49135') or (Edit3.Text = '62642-57594-59441-13193-15085') or
(Edit3.Text = '98485-57291-89948-35326-49359') or (Edit3.Text = '04175-04769-69742-30189-14078') or (Edit3.Text = '28848-72965-68434-40166-69027') or
(Edit3.Text = '63258-17404-50100-33977-72736') or (Edit3.Text = '89258-23953-71251-80432-28597') or (Edit3.Text = '72744-95349-84944-17428-33814')
then
Application.MessageBox('Überprüfung erfolgreich abgeschlossen.','GoetheQuiz 2010 Sicherheit',mb_ICONINFORMATION or mb_OK);
if (Edit3.Text <> '75475-09408-24881-53371-07741') or (Edit3.Text <> '48090-48938-70401-95127-28075') or
(Edit3.text <> '76315-87873-32685-36470-64126') or (Edit3.Text <> '17032-73316-42406-74026-72489') or (Edit3.Text <> '33660-37236-51521-33065-22426') or
(Edit3.Text <> '49856-16314-32028-92560-28316') or (Edit3.Text <> '49424-19867-07733-35950-90691') or (Edit3.Text <> '36546-35187-99492-42434-19190') or
(Edit3.Text <> '19762-84982-57230-85446-40507') or (Edit3.Text <> '48804-72071-93219-27780-02817') or (Edit3.Text <> '15755-65551-23622-84769-82797') or
(Edit3.Text <> '45922-11513-41417-25355-84374') or (Edit3.Text <> '08896-48651-14984-14537-49135') or (Edit3.Text <> '62642-57594-59441-13193-15085') or
(Edit3.Text <> '98485-57291-89948-35326-49359') or (Edit3.Text <> '04175-04769-69742-30189-14078') or (Edit3.Text <> '28848-72965-68434-40166-69027') or
(Edit3.Text <> '63258-17404-50100-33977-72736') or (Edit3.Text <> '89258-23953-71251-80432-28597') or (Edit3.Text <> '72744-95349-84944-17428-33814') then
Application.MessageBox('Ihre Angabe ist unvollständig oder fehlerhaft.','GoetheQuiz 2010 Sicherheit',mb_ICONSTOP or mb_OK);
end; |
Leider wird, wenn die Seriennummer richtig ist, sowihl das negative, als auch das positive Dialogfeld eingeblendet. Ich weiß aber nicht warum.
Überprüft werden müssen 20 Seriennummern.
Besten Dank im Voraus!
