Suche Hilfeper Instant Messenger für schnelle Fragen bzgl Delphi

[JannF]

Hallo,

wie der Titel schon sagt,
suche ich Leute die Lust haben einem blutigen Delphianfänger per ICQ oder MSN weiterzuhelfen :pale:,
falls ich kleinere Fragen habe wie mommentan :)

[EWeiss]

Zitat:

Zitat von JannF (Beitrag 1170950)

Hallo,

wie der Titel schon sagt,
suche ich Leute die Lust haben einem blutigen Delphianfänger per ICQ oder MSN weiterzuhelfen :pale:,
falls ich kleinere Fragen habe wie mommentan :)

Warum ICQ, MSN
Denke das hier genug Leute bereit sind bei problemen zu helfen vorrausgesetzt das man selber mitarbeitet.

Willkommen in der DP.

gruss

[Luckie]

Auch "kleine" Fragen können im Forum gestellt werden. Dazu ist es da. Und vielleicht bist du nicht der einzige der eine Antwort auf die Frage sucht.

[JannF]

Na denn stelle ich mal die Fragen einfach hier, die größeren Fragen bzgl. dieses Threads stehen schon im Thread selbst.

Ich versuche nun den String mithilfe einer Schleife von vorne nach hinten zu kopieren und jedesmal dazu zufällige Strings zu generieren und den Originalbuchstaben an der Richtigen vorgegebenen Stelle einzufügen.
Nun fehlt mir aber das nötige Wissen um Delphi zu sagen, dass es dies für jeden Buchstaben im String machen soll.


Meine Idee wäre:

for (position)1 to lenght(string) do
begin
generiere zufälligen Strin einer seperat angegebenen Länge
insert(string von jetziger Position, bei angegebener Position)
end

Vielleicht kann mir ja jemand auch die Frage wie ich zufällige Zeichenketten mit bestimmter Länge generiere im Fragethread beantworten ;)

[sx2008]

Delphi-Quellcode:

{**************************************************************************
 * NAME:    RandomString
 * DESC:    Erzeugt einen zufälligen String
 * PARAMS:  len: länge des erzeugten strings
 *          CharSet: string der die zu verwendenden Zeichen enthält
 *************************************************************************}
function RandomString(const len: Integer; const CharSet: string): string;
var
   i: Integer;
   pResult : PChar;
begin
   SetLength(Result,len); // Speicher im Result-String reservieren
   pResult := PChar(Result);
   for i := 1 to len do
   begin
      pResult^ := CharSet[1+Random(Length(CharSet))];
      Inc(pResult);
   end;
end;

// Beispiel Aufruf
teststring := RandomString(10, '0123456789ABCDEF');

[JannF]

dankesehr, wie kann ich denn die position in der Zeichenkette für die Schleife definieren?

[Luckie]

Zitat:

Zitat von JannF (Beitrag 1170954)

Na denn stelle ich mal die Fragen einfach hier, die größeren Fragen bzgl. dieses Threads stehen schon im Thread selbst.

Argh. Dann machen wir da auch weiter. Geschlossen.