Odczytywanie kolejnych liter

0

Jak odczytywać kloejno litery w MEMO, może być też richedit.--Delphi 2 , 6 i 5
Ciekawe pomysły i poszukiwanie rozwiązań.

0

a do czego ci to potrzebne ? :-)
popatrz na kod ponizej

var
i : Integer;
Znak : Char;
S : String;
begin

for i := 1 to Length(Memo1.Lines.Text) do
begin
Znak := Memo1.Lines.Text[i]; odczytaj znak
S := S + Znak;
dodaj kolejny znak do zmiennej
end;

Label1.Caption := S; //wyswietl calosc na labelu
end;---=-=[ Delphi 3, 6 ]=-=-
-=-=-==[ LKS ]==-=-=-
-=[ [email protected] ]=-

0

Na pewno nie do wirusa. Tylko do syntezy zadań w programie.--Delphi 2 , 6 i 5
Ciekawe pomysły i poszukiwanie rozwiązań.

1 użytkowników online, w tym zalogowanych: 0, gości: 1, botów: 0