Ok Now I will send you my code
procedure TAnaform.TrnsferButton1Click(Sender: TObject);
var
i:integer;
begin
for i:=1 to 82 do
TLabel(DisplayForm.FindComponent('Label'+inttostr(i))).caption:=
TMemo(Anaform.FindComponent(('Memo'+inttostr(i)))).Lines[0];
DisplayForm.Show;
end;
But when I entered the '0' inside "lines" property of memo components in object inspector instead of "Memo1","Memo2" and others... the code is working truely. If I delete everything in lines of memo components(think as a "space" character), some text inside some memo components are going to labels in spaces and no values that I entered into the memo components in Anaform
Ok now I have another problem. the problem is hidden inside that code scope:procedure
TAnaform.FormKeyPress(Sender: TObject; var Key: Char);
var
a:string;
begin
a:='A';
for i:=1 to 82 do
begin
if a = TMemo(Anaform.FindComponent(('Memo'+inttostr(i)))).Lines[0]
begin
if (not (Key in )) then
begin
Key:=#0;
Beep;
end;
end;
end;
as you see above, I have 82 memo components in the form. and I have to enter alphanumeric characters instead of numeric characters inside some of memo components (its count may be 6 or 8). but I still dont understand why this code scobe doesnt work in my project working...Can you help me duoas pls?
