Einzelnen Beitrag anzeigen

marabu

Registriert seit: 6. Apr 2005
10.109 Beiträge
 
#3

Re: Datenbank mit zufällig generierten Einträgen/Suchfunktio

  Alt 28. Jan 2006, 17:06
Herzlich willkommen in der Delphi-PRAXiS.

mkinzler kann schneller schreiben, als ich denken kann, aber weil ich soviel geschrieben habe, musst du es jetzt auch lesen.

Um eine Zeichenkette mit acht zufällig ausgewählten Buchstaben zu erstellen könntest du so vorgehen: Setze die Länge deiner String-Variable (Delphi-Referenz durchsuchenSetLength). Danach kannst du die Variable wie ein character array ansprechen - s[1] ist dabei der erste Buchstabe. Du kannst ihn durch einen anderen Wert ersetzen:

s[i] := 'A'; Buchstaben haben einen CodeWert - der von 'A' ist Ord('A') ist 65 und es gilt für jeden Buchstaben c: Chr(Ord(c)) = c. Der Nachfolger von 'A' ist 'B', kann man auch so erreichen:

Delphi-Quellcode:
c := 'A';
c := Chr(Ord(c) + 1);
Einen Zufallswert im Bereich 0..n-1 erhältst du mit Random(n). Da A bis Z einen zusammenhängenden Bereich von 26 Buchstaben bilden (ASCII, ANSI) weißt du jetzt welchen Wert n haben sollte.

Wenn du geschickt bist, dann schreibst du dir eine Funktion:

Delphi-Quellcode:
function RandomStr(size: Cardinal): String;
begin
end;
Innerhalb deiner Funktion steht dir das Ergebnis als Variable mit dem Namen Result zur Verfügung. Versuche mal dein Glück.

Grüße vom marabu
  Mit Zitat antworten Zitat