AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Thema durchsuchen
Ansicht
Themen-Optionen

Zeichenkette per zufall ändern

Ein Thema von horst · begonnen am 19. Mai 2004 · letzter Beitrag vom 19. Mai 2004
 
horst

Registriert seit: 1. Jul 2003
347 Beiträge
 
Delphi 2007 Professional
 
#1

Zeichenkette per zufall ändern

  Alt 19. Mai 2004, 18:28
hallo...
ich will von einer zeichenfolge die nur aus einsen und zweien besteht z.b. '111,111,111,111,111,111' (beispiel 6 dreier gruppen können ach 4 0der 9 dreiergruppen sein) irgend eine zweite stelle einer dreiergruppe von einer 1 in eine 2 wandeln oder umgekehrt wenn schon eine 2 drin steht, das ganze natürlich nach zufallsprinzip. wie mache ich das am dümmsten.
zeichenkette könnte auch so aussehen '121,211,111,112,211,121'
es sind immer zwischen 4 und 9 dreiergruppen pro zeichenkette
weis jemand rat? bin für jede hilfe dankbar

das habe ich bisher:

Delphi-Quellcode:
     while zeile = nfolge[jetztzeil] do
      begin
       randomize;
       tonfehler := Random((anzton*3)+(anzton-1))+1;
       if copy(zeile,tonfehler,1) = '1then
        begin
         zeile := copy(zeile,1,tonfehler-1)+'2'+copy(Zeile,tonfehler+1,length(zeile));
         ok := True;
        end
       else
        if copy(zeile,tonfehler,1) = '2then
         begin
          zeile := copy(zeile,1,tonfehler-1)+'1'+copy(Zeile,tonfehler+1,length(zeile));
          ok := True;
         end;
      end;
diese routine eine erste oder eine zweite oder eine dritte stelle ich brauche aber nur eine zweite stelle
es darf aber nur die 2te oder 6te oder 10te oder 14te oder 18te oder 22te stelle verändert werden bei eine zeichenkette mit 6 dreierblöcken
  Mit Zitat antworten Zitat
 


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 23:46 Uhr.
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz