Memo Großschreibung zu Kleinschreibung ..

[Binärbaum]

Wenn du das zufällig mischen willst, müsstest du das für jedes Zeichen einzeln machen. Z. B. so:

Delphi-Quellcode:

procedure Grossklein;
var i: Integer;
begin
 Randomize;
 Memo.Lines.Text:= LowerCase(Memo.Lines.Text);
 for i:= 1 to length(Memo.Lines.Text) do
  if Random<=0.5 then Memo.Lines.Text[i]:= UpCase(Memo.Lines.Text[i]);
end;

Ist ungetestet, aber müsste funktionieren.

MfG
Binärbaum