Forum: Object-Pascal / Delphi-Language
by DeddyH,
16. Okt 2008
Vielleicht solltest Du mal ein Grundlagentutorial lesen.
var
f: String;
begin
f := edit1.text;
Shuffle(f);
edit1.text:= f;
end;
Forum: Object-Pascal / Delphi-Language
by DeddyH,
16. Okt 2008
Bei Klaus' Code muss das ein Var-Parameter sein und meins ist eine Funktion.
Forum: Object-Pascal / Delphi-Language
by DeddyH,
16. Okt 2008
Nicht die eleganteste Methode, aber versuch es mal so:
function StrMerge(src: string): string;
var i,j: integer;
begin
SetLength(Result,Length(src));
j := 1;
while Length(src) > 0 do
begin
i := Random(Length(src)) + 1;
Result := src;
Forum: Object-Pascal / Delphi-Language
by DeddyH,
16. Okt 2008
Willst Du denn nun "mischen" oder "umdrehen"?
Forum: Object-Pascal / Delphi-Language
by DeddyH,
16. Okt 2008
So früh am Morgen kann ich noch nicht richtig lesen :mrgreen:
Forum: Object-Pascal / Delphi-Language
by DeddyH,
16. Okt 2008
AFAIK gibt es in StrUtils die Funktion ReverseString.