AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Sprachen und Entwicklungsumgebungen Sonstige Fragen zu Delphi Delphi Zufallswert generieren?! (mit Zahlen und Buchstaben)
Thema durchsuchen
Ansicht
Themen-Optionen

Zufallswert generieren?! (mit Zahlen und Buchstaben)

Ein Thema von Plague · begonnen am 10. Apr 2004 · letzter Beitrag vom 10. Apr 2004
Antwort Antwort
Plague

Registriert seit: 6. Okt 2003
591 Beiträge
 
#1

Zufallswert generieren?! (mit Zahlen und Buchstaben)

  Alt 10. Apr 2004, 18:16
Hallo,

wie kann ich einen 20-stelligen Wert generieren, der aus Buchstaben und Zahlen besteht? Ist das möglich?
Ich möchte Datein automatisch so benennen um bei einem Haufen von Datein nicht in Schwierigkeiten zu kommen.

Im Endeffekt soll es eben so aussehen:
GXM72M7MLAS910A01HC7 + *.jpg = GXM72M7MLAS910A01HC7.jpg

Wie kann ich das realisieren?
Gibt es dafür vielleicht sogar eine Komponente?

Gruß
Thomas
  Mit Zitat antworten Zitat
Benutzerbild von toms
toms
(CodeLib-Manager)

Registriert seit: 10. Jun 2002
4.648 Beiträge
 
Delphi XE Professional
 
#2

Re: Zufallswert generieren?! (mit Zahlen und Buchstaben)

  Alt 10. Apr 2004, 18:24
Hi,

Entweder per

1) GetTempFileName

2) GUID:

Delphi-Quellcode:
uses
  ComObj, ActiveX;

procedure TForm1.Button1Click(Sender: TObject);
var
  ID: TGUID;
begin
  CoCreateGuid(ID);
  if CoCreateGuid(ID) = S_OK then
    Label1.Caption := Copy(GUIDToString(ID),2,36);
end;
Thomas
  Mit Zitat antworten Zitat
Keldorn

Registriert seit: 6. Mär 2003
Ort: Meißen
876 Beiträge
 
Delphi 10.1 Berlin Professional
 
#3

Re: Zufallswert generieren?! (mit Zahlen und Buchstaben)

  Alt 10. Apr 2004, 18:25
Hallo

wenn es dir um Zufallswerte geht, nimm doch einfach einen String z.B. s:='ABCDEFGHI...012...' und ermittels eine Zufallszahl bis maximal Länge des strings. mit diesem Zeichen kannst du dann dir irgendeine Kombination aufbauen.

was für ein Haufen dateien? Irgendwie sollte der Dateiname "sprechen" und nicht irgendwelcher Kauderwelch sein. Vielleicht kommst du mit einem Muster 'Bild0001.jpg' besser. z.B. 'Bild'+fortlaufende-nummer immer solange mit Fileexists und erhöhung der fortlaufenden Nummer testen, bis die Datei noch nicht exisitiert.

Mfg Frank

Lükes Grundlage der Programmierung:
Es wird nicht funktionieren
(Murphy)
  Mit Zitat antworten Zitat
Antwort Antwort


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 07:45 Uhr.
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz