Memo Großschreibung zu Kleinschreibung ..

[Gast]

Hi,

ich habe in meinem Memo alles Großbuchstaben aber will alle zu kleinen Buchstaben machen .. wie geht das am besten ? Die suche hat "stringreplace" gesagt aber das ist glaube ich besser für Zeichen oder ?!? Und wenn es nur mit stringreplace geht, wie ? Muss ich das ganze Alphabet auflisten ?

Danke für eure Hilfe im Voraus !!
Tigerhead

[cfmx]

Hallo,

das geht noch viel einfacher:
Memo.Lines.Text = LowerCase(Memo.Lines.Text); Gruß Stefan

[KLS]

ganz einfach

memo.text := lowercase(memo.text);


Edit: Das können ja nur sekundenbruchteile gewesen sein *g*

[toms]

Hi,

AnsiLowerCase konvertiert den angegebenen String in Kleinbuchstaben

function AnsiLowerCase(const S: string): string;

[Gast]

Danke Funktioniert !


Edit: Weiß auch jemand wie man das mischen kann ? Mit Random oder so ? Also z.B. "bdhGDhsNmdbS" oder so ?!?

[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

[Gast]

Ne das ist irgendein Fehler drin .. ganz unten das := makiert er mit der Meldung:

Zitat:

Left Side cannot be assigned to

[KLS]

Indirekt geht es.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  i: Integer;
  temp : string;
begin
  Randomize;
  Memo.Lines.Text:= LowerCase(Memo.Lines.Text);
  temp := memo.Text;
  for i := 1 to length(Memo.Text) do if Random <= 0.5 then
  begin
    temp[i] := UpCase(temp[i]);
    memo.Text := temp;
  end;
end;

[Gast]

Juhuu *freu* endlich geht es .. jetzt suche ich noch eine Funktion um Zahlen zu integrieren Danke dir !!