Einzelnen Beitrag anzeigen

Pogoner

Registriert seit: 10. Okt 2013
22 Beiträge
 
Delphi 6 Enterprise
 
#32

AW: Große String-Liste out of Memory - Hilfe?

  Alt 21. Apr 2014, 14:25
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;

Geändert von Pogoner (21. Apr 2014 um 17:02 Uhr)
  Mit Zitat antworten Zitat