Jak wydobyc sam tekst bez innych znakow

Jak wydobyc same litery ciag znakow skladajacy sie tylko z liter alfabetu ?

np w polu MEMO1 mam tekst:

23ala34 ma 20tego kota w do4mku

potrzebuje wydobyc sam tekst bez cyfr i innych znakow typu przecinek kropka nawias itd itp
wynik do edit1.text ala ma tego kota w domku

Ktos z Was wie jak sie do tego zabrac ?

var
  i: Iteger;
  S: String;
  C: Char;
begin
  S := '';
  for I := 1 to Length(Tekst) do
    begin
      C := Tekst[I];
      if C in ['a'..'z'] then
        S := S + C;
    end;

Pisane na szybko i z głowy, ale coś w ten deseń.

Przejdź przez wszystkie litry i odrzuć te, które ni są literą

jak zrobisz tak [a..z] to wtedy bedzie wylapywac tylko male litery trzeba to zrobic tak [A..z]

no i oczywiscie powinny byc ''

Hugo napisał(a)

jak zrobisz tak [a..z] to wtedy bedzie wylapywac tylko male litery trzeba to zrobic tak [A..z]

if LowerCase(C) in ['a'..'z'] then

Nie trzeba. :P

Ja bym użył AnsiLowerCase

A tu się zgodzę. :)