Kleinbuchstaben durch entsprechenden Großbuchstaben ersetzen

delphistart · Beiträge: 119

Hallo,

Seit langem komme ich Mal wieder dazu mich mit Delphi zu befassen :-)

Nun habe ich folgendes Problem:
Ich habe ein Memo Feld in dem ein Text steht. Nun möchte ich diesen gerne so umwandeln, dass statt normaler Schreibweise nur noch Großbuchstaben verwendet werden.

Wie bekomme ich das (möglichst einfach) hin?

Schon vorab Danke für eure Hilfe!

Leuchtturm · Verfasst: So 03.02.08 18:09

UPPERCASE

_________________
Ich bin dafür verantwortlich was ich sage - nicht dafür was du verstehst.

delphistart · Beiträge: 119

Vielen Dank!!!

Das war die Lösung:

markieren

Delphi-Quelltext

1:	function UpperCase(const S: string): string;

ub60 · Beiträge: 765 Erhaltene Danke: 130

Wenn deutsche Umlaute vorkommen können, nimm besser die Funktion "AnsiUpperCase". Sonst fehlen Dir nämlich die Umlaute bei der Umwandlung. Du musst dann noch die Unit SysUtils einbinden, da ist die Funktion drin.

ub60

Hidden · Verfasst: So 03.02.08 19:42

im OnChange dann.

also:

markieren

Delphi-Quelltext

1:
2:
3:
4:

procedure Edit1Change(pObject: TObject);
begin
  Edit1.text := AnsiUpperCase(Edit1.text);
end;

mfG,
Daniel

Yogu · Verfasst: So 03.02.08 21:59

Hidden: Es war ein Memo. Ein Edit hätte auch die Eigenschaft CharCase, die du einfach auf ecUpperCase setzen könntest. (Das nur als Hinweis, falls du mal ein Edit benutzen solltest, und das gleiche Problem hast.)

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme