hab jetzt auch noch nicht getestet und nur geguckt...
warum die ZeichenArrays als String?
1 Zeichen = Char
und wenn du mehrdimensionale Arrays verwendest, dann könntest du die Angelegenheit, mit der Groß- und Kleinschreibungs, einfacher handhaben
Delphi-Quellcode:
easyaabc : array[1..62] of char = (...);
abc : array[boolean] of array[1..26] of char = (...);
vokale : array[boolean] of array[1..5] of char = (('a', 'e', ...), ('A', 'E', ...));
konsonante : array[boolean] of array[1..21] of char = (...);
das ganze dann noch als Konstanten (siehe vorredner) wäre auch schöner ^^
z.B.
Delphi-Quellcode:
if odd(I) then begin
pw := pw + vokaleklein[random(4)+1];
end
else
begin
pw := pw + konsonanteklein[random(20)+1];
end;
zu
pw := pw + vokale[odd(I), random(4)+1];
oder halt nur Kleinschreibung
pw := pw + vokale[false, random(4)+1];
oder *editiertes vom vorredner anseh* mit Strings
Delphi-Quellcode:
const easyaabc = '.....';
abc : array[boolean] of string = ('...', '...');
vokale : array[boolean] of string = ('aeiou', 'AEIOU');
konsonante : array[boolean] of string = ('...', '...');
pw := pw + vokale[false][random(4)+1];