Zahlen-Kombinationen

[freak4fun]

Hallo ,

sowas?

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  i: Integer;
  lReihe: String;
  lTemp: Char;
begin
  lReihe := '1234';
  for i := 1 to length(lReihe) do
    begin
      lTemp := lReihe[1];
      lReihe[1] := lReihe[i];
      lReihe[i] := lTemp;
    end;
  ShowMessage(lReihe);
end;

Eins, zwei mehr Beispiele wären nicht schlecht.

MfG
freak