23-07-2015, 06:19 PM
لعمل حلقة محدد من الافضل تستخدم for
كود :
[color=SeaGreen]karika:integer;[/color]كود :
var
x : integer ;
z : string ;
begin
z := memo1.Text ;
x := 0 ;
for karika:=0 to 4 do
if x <= 10 then
begin
memo2.Lines.Add(z);
x := x + 1 ;
end;
> مبرمج مبتدئ < سبحان الله بحمده... سبحان الله العظيم