Jak odczytywać kloejno litery w MEMO, może być też richedit.--Delphi 2 , 6 i 5
Ciekawe pomysły i poszukiwanie rozwiązań.
0
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ń.