1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:

 


var List:TStringList;
 i,p:integer;

begin
List:=TStringList.Create;
try

     for i:= 2 to 50 do begin
     List.Add(Inttostr(i));
     end;

          for i := List.Count-1 downto 0 do    /??????????????????????
              begin
              p:=StrtoInt(Edit1.Text);         / hier sollten alle Zahlen aus 
              if i mod p =0 then              / der Liste entfernt werden , 
                                              / die durch p ohne Rest teilbar sind; 
              begin                           / funktioniert nicht richtig .... 
              List.Delete(i);
              end;
              Memo1.Lines.Add(List.Text);
              end;
 finally;
 List.Free;
 end;
 end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:

 for i:= 0 to 50 do begin
     List.Add(Inttostr(i));
     end;

          for i := List.Count-1 downto 2 do
              begin

              if i mod 7=0 then
              begin
              List.Delete(i);
              end;
              end;
              Memo1.Lines.Add(List.Text);