Vokale aus Memo löschen

kreuzkrieter · Beiträge: 47

Hallo,

wie kann ich aus einem Text im Memo die Vokale rauslöschen, ohne dass an den jeweiligen Stellen Leerzeichen entsehen?

.Chef · Beiträge: 1112

Ich drücks mal in Worten aus: Du gehst den Text vom1. bis zum letzen Zeichen durch, prüfst mit einem set aus den Vokalen und entfernst alle entsprechenden Chars aus dem String. Pseudo:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:

while zähler < textlänge do
begin
  if text[zähler] in vokalset do delete(text,zähler,1);
  inc(zähler);
end;

Ein bißchen Eigenbeitrag will ich dir ja noch überlassen. ;-)

Gruß,
Jörg

_________________
Die Antworten auf die 5 häufigsten Fragen:
1. Copy(), Pos(), Length() --- 2. DoubleBuffered:=True; --- 3. Application.ProcessMessages bzw. TThread --- 4. ShellExecute() --- 5. Keine Vergleiche von Real-Typen mit "="!

StefanH · Verfasst: So 21.11.04 16:08

.Chef hat folgendes geschrieben:

if text[zähler] in vokalset do delete(text,zähler,1);

THEN!

_________________
"Als es noch keine Computer gab, war das Programmieren noch relativ einfach."(Edsger W. Dijkstra)
"Ich bin nicht von Sinnen, sondern ich rede wahre und vernünftige Worte." (Paulus)

.Chef · Beiträge: 1112

StefanH hat folgendes geschrieben:

THEN!

Ähm ... nein!

.Chef hat folgendes geschrieben:

while text[zähler] in vokalset do delete(text,zähler,1);

_________________
Die Antworten auf die 5 häufigsten Fragen:
1. Copy(), Pos(), Length() --- 2. DoubleBuffered:=True; --- 3. Application.ProcessMessages bzw. TThread --- 4. ShellExecute() --- 5. Keine Vergleiche von Real-Typen mit "="!

kreuzkrieter · Beiträge: 47

ok
thx

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme