Primzahlen + Löschen

[Wormid]

Wenn Du es so meinst, wie ich es in meinem obigen Post verstanden habe, dann müsste Button1Click wie folgt aussehen:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var i: Integer;
begin
  for i := 0 to mmEin.Lines.Count - 1 do
    if not isPrim(StrToInt(mmEin.Lines[i])) then
      mmAus.Lines.Add(mmEin.Lines[i])
end;

Dein Type TFeld und die Prozeduren RemoveAt und RemovePrim wären
dann ünnötiger Ballast...


Gruß

Wormid