Forum: Object-Pascal / Delphi-Language
Delphi
by Khabarakh,
30. Jan 2005
So, hab jetzt mal das ganze Programm angeschaut.
Gestartet, auf Panel1 geklickt, "Zu wenig Arbeitsspeicher" :lol: .
Also:
1. Du solltest Backspace im Edit1 zulassen.
2. Button1 wird deaktiviert, wenn das Kennwort zu lang ist. ok. Aber der Vorgang wird doch mit Label1 gestartet :wink: .
3. Der Fehler: String ist die Länge des Strings. Der Inhalt des Strings fängt erst bei String an :!: ....
Forum: Object-Pascal / Delphi-Language
Delphi
by Khabarakh,
30. Jan 2005
function RandName(Length : Integer):String;
var
i : Byte;
begin
// randomize(); hier raus
result := '';
SetLength(Result,Length);
for i := 0 to Length do
begin
Result := Char(Random(25)+65);
Forum: Object-Pascal / Delphi-Language
Delphi
by Khabarakh,
29. Jan 2005
Hab gerade deinen anderen Thread gelesen, da ist mir ein Fehler in RandName aufgfallen: Randomize nie mehrmals aufrufen!