Ergebnis der Suchanfrage

• Forum: Sonstige Fragen zu Delphi

  Re: String "mischen"

    Delphi
    by anku, 18. Sep 2003
  ok, dann jetzt mal ohne fehler.. :)
  
  
  sOrginal:= 'abcde';
  sKopie:='';
  for i:= 1 to length( sOrginal) do
  begin
  Zufall:= random( Length( sOrginal))+1;
  Insert( sOrginal, sKopie, Zufall);
  end;
• Forum: Sonstige Fragen zu Delphi

  Re: String "mischen"

    Delphi
    by anku, 18. Sep 2003
  versuch es mal so:
  
  var sOrginal, sKopie, sEndproduckt: String;
  i, Zufall: Integer;
  
  begin
  randomize; // am besten bei programmstart ausführen, da sonst of gleiche "zufalls" ergebnisse kommen
  for i:= 1 to length( sOrginal) do
  sKopie:= Chr(255); // mit platzhalter füllen
  for i:= l to length( sOrginal) do