Ohne weiter auf das Thema einzugehen..
Das ist dir gelungen.
Wenn noch jemand etwas zum Thema beitragen möchte: Meine Frage ist immernoch offen, ob die 12 Aufrufe einer "Not Found" - Seite pro Sekunde eine wesentliche Belastung für einen Webserver darstellen (Die Seite existiert ja nicht). Sollte die Frage bejaht werden, so werde ich die Zahl verringern. Es geht hier - ums zum 10. Mal zu sagen - nicht darum, den Server anzugreifen.
Meine zweite Frage ist programmtechnischer Natur: Wenn ich 4 Felder derart berechnen möchte:
Zufallsgenerator('abcdefghijklmnopqrstuvwxyz','1234567890','abcdefghijklmnopqrstuvwxyz','1234567890')
Dann funktioniert das...so nicht?
Also der Reihenfolge nach a1a1-->a1a2-->a1a3-->...-->c3g6-->c4g7-->c4g8 etc... Das Rekursiv-Denken fällt mir wirklich schwer -.-
Delphi-Quellcode:
function TForm1.Zufallsgenerator(astring: string;bstring: string; cstring: string; dstring: string)
Procedure ErstelleString(const Basis: string);
var
npw: string;
I1, I2, I3, I4, u: Integer;
begin
for I1 := 1 to 26 do begin
npw := Basis + astring[I1] ;
for I2 := 1 to 10 do begin
npw := npw + bstring[I2] ;
for I3:= 1 to 26 do begin
npw:= npw + cstring[I3] ;
for I4:= 1 to 10 do begin
npw := npw + dstring[I4]; //Aber so funktioniert es eindeutig nicht^^
showmessage (npw);
var
I: Integer;
begin
For I := 1 to length(bstring) do begin
// showmessage (inttostr(I));
ErstelleString(bstring[I]);
end;
end;