RightStr() macht mehr Ärger als geplant

[Jens Hartmann]

Hier wäre auch eine Möglichkeit Primzahlen zu berechnen.

Delphi-Quellcode:

function isPrim(zahl: Integer): boolean; 
var 
  i: Integer; 
begin 
  result := true; 
  if zahl = 1 then 
    begin 
      result := false; 
      exit; 
    end; 
  for i := 2 to zahl div 2 do 
    begin 
      if zahl mod i = 0 then 
        begin 
          result := false; 
          exit; 
        end; 
    end; 
end; 

procedure TForm1.Button1Click(Sender: TObject); 
var 
  x, y, i: Integer; 
begin 
  x := StrToInt(Edx.Text); 
  y := StrToInt(Edy.Text); 
  for i := x to y do 
    begin 
      if isPrim(i) then 
        begin 
          Memo1.Lines.Add(IntToStr(i)); 
        end; 
    end; 
end;