Hilfe bei Schleifen Problem

[Tido]

Moin Leutings
Habe momentan ein kleines Problem! Undzwar bin ich gerade dabei ein kleines Allzweck-Tool zu schreiben... Sitze jetzt seit 3 Stunden an einem Problem, bei dem mir weiß Gott warum die Lösung nicht einfallen will

Naja, Quellcode: FrEe-hAcK.com :: NoPaste

Wäre sehr nett wenn mir jemand helfen könnte (THX is klar )

mfg

[ocz]

Randomize vielleicht.

[Tido]

Klappt auch nicht, EDIT: Fehelermeldung, Sry, war in Eile^^

[ocz]

Klappt auch nicht, n Error!

Wie kriegt man da denn nen Error? Genaue Fehlerbeschreibung + code in CODEtag.

[Tido]

[DCC Fehler] Unit9.pas(100): E2034 Zu viele Parameter
[DCC Fehler] Unit9.pas(100): E2008 Inkompatible Typen

[ocz]

[dcc fehler] unit9.pas(100): E2034 zu viele parameter
[dcc fehler] unit9.pas(100): E2008 inkompatible typen

was soll ich mit dem fehler ohne code. Biiiiiiitte-.-

[Tido]

Code:FrEe-hAcK.com :: NoPaste

[ocz]

Omg. BISSCHEN Eigeninitiative wär schon schön. Nicht einfach blind Randomize lesen und einsetzen... Vielleicht hätteste lieber mal nach Randomize gegoogelt und dann hinterher auch VERSTANDEN warum ich das vorgeschlagen habe...

SetLength(Result,len); // Speicher im Result-String reservieren 
Randomize;
  pResult := PChar(Result); 
  assignfile(f, 'pwlist.txt'); 
  for i := 1 to le do 
  begin 
  append(f); 
  for il := 1 to len do 
  begin 
    pResult^ := Charset[1+Random(Length(Charset))]; 
    Inc(pResult); 
  end; 
  writeln(f, result); 
  sleep(10); 
  flush(f); 
  closefile(f); 
  end;

[Tido]

Soo^^ Erstmal danke für deine Hilfe, muss jedoch sagen, dass es immernoch nicht funktioniert! Es kommen keine Fehler mehr, jedoch gibt er immernoch immer das selbe PW aus!

UND ich habe das randomize im nachhinein auch so eingesetzt... Hat auch nichts gebracht! (Nur damit du nicht denkst, ich lasse mir hier alles vorkauen^^)

MfG

[ocz]

Soo^^ Erstmal danke für deine Hilfe, muss jedoch sagen, dass es immernoch nicht funktioniert! Es kommen keine Fehler mehr, jedoch gibt er immernoch immer das selbe PW aus!

Dann beschreibe den Fehler doch nochmal bitte genauer. Und zeig hier mal die Ausgabe.