Potrzebuje procedury na usuwanie wszystkich :
- liczb
- liter
- znaków interpunkcji
- i tak dalej
...z zawartości synmemo o nazwie "NOTA".
Jak na razie zrobiłem takie coś dla "liczb":
Var
Tekst:string;
begin
BEGIN
tekst:=nota.Text;
while Pos('0', tekst) > 0 do Delete(tekst, Pos('0', tekst), 1);
while Pos('1', tekst) > 0 do Delete(tekst, Pos('1', tekst), 1);
while Pos('2', tekst) > 0 do Delete(tekst, Pos('2', tekst), 1);
while Pos('3', tekst) > 0 do Delete(tekst, Pos('3', tekst), 1);
while Pos('4', tekst) > 0 do Delete(tekst, Pos('4', tekst), 1);
while Pos('5', tekst) > 0 do Delete(tekst, Pos('5', tekst), 1);
while Pos('6', tekst) > 0 do Delete(tekst, Pos('6', tekst), 1);
while Pos('7', tekst) > 0 do Delete(tekst, Pos('7', tekst), 1);
while Pos('8', tekst) > 0 do Delete(tekst, Pos('8', tekst), 1);
while Pos('9', tekst) > 0 do Delete(tekst, Pos('9', tekst), 1);
nota.Text:=tekst;
END;
<font color="red">[b][Moderator przypomina o istnieniu tagu delphi][/b]</span>
To oczywiście działa, ale jak mam robić analogicznie dla liter to trochę daje tego kodu... Czy nie ma jakiegoś prostrzego sposobu?