[Delphi]Czytanie znak po znaku

Jak z Memo czytać znk po znaku i porzypisywaći m procedurki........--Delphi 2 , 6 i 5
Ciekawe pomysły i poszukiwanie rozwiązań.

for x := 1 to Length(Memo1.Text) do
JakasProcedura(Memo1.Text[x]);
--Jest jeszcze jeden błąd ... :)

Apel: Piszcie w tematach o jaki język programowania chodzi np. : [Delphi], [C++], itp.

for i:=0 to length(mamo1.lines.text) do
begin
if memo1.lines.text[i]='a' then
....
end;

--
Spin
Delphi - Lets make Windows better....

Jak wyżej, tylko zamiast ciągłych odwołań do memo1.Lines.Text daj
s:=memo1.Lines.Text;

for i:=1 to Length(s) i tak dalej....

Potem tylko memo1.Lines.Text:=s.
Zaoszczędzi to ciągłego wywoływania memo1.Lines.GetText i ogólnie nieco zwiększy szybkość pętli.--Vogel [Delphi 6 PE]

Life is just a dream, you know...
[Cowboy Bebop]