Ergebnis der Suchanfrage

• Forum: Sonstige Fragen zu Delphi

  Re: String "mischen"

    Delphi
    by daniel-volk, 18. Sep 2003
  Noch etwas zu Thema:
  Der Code von anku verursachte bei mir eine Zugriffsverletzung und der Code von neolithos "vergisst" einfach Zeichen, sodass der String hinterher ein paar Zeichen kürzer sein kann oder gleich '' ist.
  Bei meinem Code habe ich mal die Zufälligkeit getestet.
  Dafür habe ich mir ein kleines Prog gebaut, in das ich meinen Originalstring eingegeben habe. Das Prog hat diesen nun...
• Forum: Sonstige Fragen zu Delphi

  Re: String "mischen"

    Delphi
    by daniel-volk, 18. Sep 2003
  So, ich hab mal diesen Code geschrieben und auch getestet:
  
  function TForm1.MixString(mixstr : string):string;
  var i, x1, x2 : longword;
  rem1, rem2 : Char;
  begin
  Case length(mixstr)>0 of
  true : begin
  Screen.Cursor := crHourGlass;
  randomize;