Die funktion von folgendem soll sein, dass man im Edit1 eine Zahl eingeben kann und dann auf Passwort erstellen und dann ein Passwort mit der Länge aus dem Edit1 erstellt werden soll.
Code:
Var
X: integer;
function RandName(Length : Integer):String;
var
i : Byte;
begin
randomize();
result := '';
SetLength(Result,Length);
for i := 0 to Length do
begin
Result[i] := Char(Random(25)+65);
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
Label1.Caption := RandName(x);
Edit1.Text := inttostr(X);
end;
Ich habe irgendwas mit der Variabel falsch gemacht, da es vorher ging. Kann mir das jmd verbessern ? Und dann direkt noch eine Frage.. wie schaffe ich es, dass man im Edit Feld nur Zahlen eingeben kann ? Thx im Vorraus.
*edit* Noch eine Frage .. wenn ich das in einem Memo ausgebe wie schaffe ich es, dass es z.B. 5 mal untereinander ausgegeben werden soll aber verschiedene PW´s ?
Zitat
Baum-Darstellung
