Ergebnis der Suchanfrage

• Forum: Object-Pascal / Delphi-Language

  Re: Memo Großschreibung zu Kleinschreibung ..

    Delphi
    by Binärbaum, 31. Jan 2005
  Wenn du das zufällig mischen willst, müsstest du das für jedes Zeichen einzeln machen. Z. B. so:
  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:= UpCase(Memo.Lines.Text);
  end;