Eingabe mischen

[STS301]

Danke! es funktioniert!!!!

[STS301]

hi nochmal, wenn die Eingabe leer ist, soll irgendein Text(Buchstaben(groß und klein), Zahlen, Sonderzeichen) erstellt werden. Wie mache ich das?

[Medium]

Random() + Chr() + ASCII Tabelle

[STS301]

danke, werde ich mir morgen ansehen, ich habe ein Problem, wenn ich in das Eingabefeld ein Sonderzeichen (zb. $) eingebe, dann löscht er den eintrag und macht nichts.

[AlexII]

Zitat von Klaus01:

Hallo,

ich musste die shuffle Routine noch etwas anpassen:

Delphi-Quellcode:

procedure Shuffle(var s: String);
var
  i, j: integer;
  temp : Char;
begin
  for i := length(s) downto 1 do
  begin
    j := Random(i)+1;
    temp := s[i];
    s[i] := s[j];
    s[j] := temp;
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  s: String;
begin
  s:= Edit1.Text;
  shuffle(s);
  Edit1.Text:=s;
end;

Grüße
Klaus

Ich verstehe nicht, wieso das funktioniert wenn die Shuffle-Procedure kein Rückgabewert hat?

[Sir Rufo]

Wegen dem var

Delphi-Quellcode:

procedure Shuffle(var s: String);
begin
  ...
end;

[AlexII]

Zitat von Sir Rufo:

Wegen dem var

Delphi-Quellcode:

procedure Shuffle(var s: String);
begin
  ...
end;

Ok, und sonst könnte es auch so gehen, oder?

Delphi-Quellcode:

function Shuffle(s: String): String;
var
  i, j: integer;
  temp : Char;
begin
  for i := length(s) downto 1 do
  begin
    j := Random(i)+1;
    temp := s[i];
    s[i] := s[j];
    s[j] := temp;
  end;

  Result := s;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  s: String;
begin
  s:= Edit1.Text;
  shuffle(s);
  Edit1.Text:=s;
end;

[Headbucket]

Zitat von AlexII:

Ok, und sonst könnte es auch so gehen, oder?

Nicht ganz.

Delphi-Quellcode:

//Falsch:
procedure TForm1.Button1Click(Sender: TObject);
var
  s: String;
begin
  s:= Edit1.Text;
  shuffle(s); // der Rückgabewert wird hier nirgends übergeben
  Edit1.Text:=s;
end;

//Richtig:
procedure TForm1.Button1Click(Sender: TObject);
var
  s: String;
begin
  s:= Edit1.Text;
  s:= shuffle(s);
  Edit1.Text:= s;
end;

//Optimiert:
procedure TForm1.Button1Click(Sender: TObject);
begin
  Edit1.Text:= shuffle(Edit1.Text);
end;

Grüße

[AlexII]

Thx

[Sir Rufo]

Wenn kein var dann sollten die Parameter nicht beschrieben werden. Und bei einem string -Parameter dann ein const verwenden (Performance).

Delphi-Quellcode:

function Shuffle(const AStr : String ): String;
var
  i, j: integer;
  temp : Char;
begin
  Result := AStr;
  for i := length(Result) downto 1 do
  begin
    j := Random(i)+1;
    temp := Result[i];
    Result[i] := Result[j];
    Result[j] := temp;
  end;
end;