Hey,

erstmal Sorry, aber mir ist kein besserer Titel eingefallen. Ich habe in der Suche auch schon danach gesucht und das einzige was mir vielleicht geholfen hätte ist

markieren

Code:

Memo1.lines.add (RandName(X));

aber wenn ich dann F) klicke lädt mein PC irgendwie ganz lang und das Proggi reagiert nicht mehr.

Meine Situation:
Ich habe 1 Edit Feld und 1 Memo Feld. >> Wenn man auf den Button klickt, dann wird ein Word mit der Länge die im Edit Feld angegeben ist angegeben. >> [BSP] Im Edit Feld steht die Zahl 10 und ich klicke auf den Button dann wird 1 Wort mit 10 Zeichen generiert.

Mein Vorhaben:
Ich will noch ein Edit Feld machen wo man die Anzahl der Wörter die erstellt werden sollen angeben kann. Also man gibt im Edit1 Feld z.B. 2 ein und im Edit2. Feld z.B. 5 ein dan sollen 5 Wörter mit jeweils 2 Zeichen erstellt werden. Aber untereinander. Wie mache ich das ?

Hiermit gebe ich momentan die Wörter noch aus:

markieren

Code:

Memo1.Text := RandName(X);

Wäre wirklich Cool wenn mir jmd helfen könnte ! Danke im Vorraus schon an alle Leser des Threads

Gr33tz!
Tigerhead

Hi,
verstehe dein Problem noch nicht ganz.
Was funktioniert denn jetzt genau nicht?
Untereinander weißt du ja schon wie man sie darstellen kann:

markieren

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
 Memo1.Lines.Add('Wort1');
 Memo1.Lines.Add('Wort2');
end;

Nimm ne Schleife:

markieren

Delphi-Quellcode:

for i := 1 to strtoint(Edit2.Text) do
 Memo1.Lines.Add(RandName(X)); // Randname enthält/generiert hier entsprechende Wörter

Hab gerade deinen anderen Thread gelesen, da ist mir ein Fehler in RandName aufgfallen: Randomize nie mehrmals aufrufen!

Danke Elite, glaube, dass das funktionieren würde, doch irgendwie lädt meiner ganz lange wenn ich mit memo1.lines.add probiere das Programm zu starten. Ich denke, dass von Khab der Beitrag wichtig ist. Aber habe keine Ahnung wie ich das umschreiben kann ... kann mir das jmd von euch vielleicht machen ?

markieren

Code:

var
  Form1: TForm1;
  Key: Char;
  X: integer;

implementation

{$R *.dfm}

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.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  if not (key in ['0' .. '9'])then
  key:=#0
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  X := 12
end;

procedure TForm1.Edit1Change(Sender: TObject);
var XY : integer;
begin
  XY := 30;
  if StrToInt(Edit1.text) > (XY)
  then begin
    StatusBar1.Panels[0].Text := 'Kennwörter mit mehr als '+inttostr(XY)+' Zeichen';
    Button1.Enabled := false;
  end;
  if StrToInt(Edit1.text) < (XY)
  then begin
    StatusBar1.Panels[0].Text := '';
    Button1.Enabled := true;
  end;
  X := StrToInt(Edit1.Text);
end;

procedure TForm1.Panel1Click(Sender: TObject);
var i: Byte;
begin
  for i := 1 to strtoint(Edit2.Text) do
  Memo1.Lines.Add(RandName(X));
end;

zusammenfalten · markieren

Delphi-Quellcode:

function RandName(Length : Integer):String;
var
  i : Byte;
begin
// randomize(); hier raus
  result := '';
  SetLength(Result,Length);
  for i := 0 to Length do
  begin
    Result[i] := Char(Random(25)+65);
  end;
end;

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  if not (key in ['0' .. '9'])then
  key:=#0
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  X := 12;
  randomize //und hier rein
end;

[EDIT]:

markieren

Delphi-Quellcode:

var
  Form1: TForm1;
  Key: Char;
  X: integer;

Globale Variablen sind pöse .
Verschiebe sie in den private-Teil von TForm1.

[EDIT2]
Natürlich nur Key und x .

So, hab jetzt mal das ganze Programm angeschaut.
Gestartet, auf Panel1 geklickt, "Zu wenig Arbeitsspeicher" .
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 .
3. Der Fehler: String[0] ist die Länge des Strings. Der Inhalt des Strings fängt erst bei String[1] an .
  for i :=1 to Length do 4. Nett wäre es noch, wenn Fehleingaben abgefangen werden (mit try...except).
5. Wofür die globale Variable Key? Die benutzt du doch sowieso nicht, es kommt nur zu Überschneidungen mit der Key-Variable im KeyPress Event.
6. XY kannst du gleich als Konstante deklarieren, wenn du ihr nur einen festen Wert zuweißt.

Lange Rede kurzer Sinn:

zusammenfalten · markieren

Delphi-Quellcode:

type
  TForm1 = class(TForm)
    Memo1: TMemo;
    Edit1: TEdit;
    StatusBar1: TStatusBar;
    Button1: TButton;
    Edit2: TEdit;
    procedure Panel1Click(Sender: TObject);
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
    procedure FormCreate(Sender: TObject);
    procedure Edit1Change(Sender: TObject);
  private
    X: integer; // !
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;


implementation

{$R *.dfm}

function RandName(Length : Integer):String;
var
  i : Byte;
begin
  result := '';
  SetLength(Result,Length);
  for i :=1 to Length do // !
  begin
    Result[i] := Char(Random(25)+65);
  end;
end;

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  if not (key in ['0' .. '9'])then
  key:=#0
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  X := 12;
  randomize // !
end;

procedure TForm1.Edit1Change(Sender: TObject);
const XY = 30; // !
begin
  if StrToInt(Edit1.text) > (XY)
  then begin
    StatusBar1.Panels[0].Text := 'Kennwörter mit mehr als '+inttostr(XY)+' Zeichen';
    Button1.Enabled := false;
  end;
  if StrToInt(Edit1.text) < (XY)
  then begin
    StatusBar1.Panels[0].Text := '';
    Button1.Enabled := true;
  end;
  X := StrToInt(Edit1.Text);
end;

procedure TForm1.Panel1Click(Sender: TObject);
var i: Byte;
begin
  for i := 1 to strtoint(Edit2.Text) do
  Memo1.Lines.Add(RandName(X));
end;

end.

PS: EIGVHMMQXE
BRMBQKGTOY
NMAELUMJTU
WJIUVMQQAG
XUKVUXYKUC
JSADTBDCMG
HBXUREJJCK
OCRQHFFPCX
KRYAPKDRNK
COVWQTHCRM


[EDIT]
Panel1 habe ich gelöscht, dafür bei Button1 und OnClick Panel1Click eingetragen. Ich denke, dass du es so auch hast.

hi, wirklich nett von dir, dass du probierst mir zu helfen aber irgendwie geht das nicht.

Wenn ich den Befehl

markieren

Code:

Memo1.Text := RandName (X);

lasse, dann gehts Wunderbar nur halt leider ohne Zeilen und mehrere Wörter Sobald ich dann

markieren

Code:

Memo1.Lines.Add(RandName(X));

nehme, dann geht nicht mehr. Wenn ich aber anstatt ""RandName (X)"" dann ""'X'"" dann gehts .. irgendwie verträgt sich die Variabel und das Lines.add nicht, och menno ich glaube ich schaffs nie Noch jmd irgendeine Idee ? Wenn das fertig ist, dann ist das Proggi fertig..

Gr33tz!
Tigerhead

// Edit habe deins nicht gelesen .. werde es gleich mal probieren ) THX schonmal !

Okay Danke Khabarakh es funktioniert nun Zu den Punkten von dir werde ich gleich mal das Forum durchsuchen Hast mir wirklich Sehr geholfen !!