Habe mir deinen Code jetzt nicht weiter durchgelsen, da ich der Meinung bin, dass es eigentlich viel einfacher geht ... hier mein Vorschlag:
Delphi-Quellcode:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, ExtCtrls;
type
TForm1 =
class(TForm)
Edit1: TEdit;
Edit2: TEdit;
Button1: TButton;
ListBox1: TListBox;
procedure Button1Click(Sender: TObject);
private
{ Private-Deklarationen }
public
{ Public-Deklarationen }
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
Function Primzahl(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 start, ende, i: Word;
begin
start := StrToInt(Edit1.Text);
ende := StrToInt(Edit2.Text);
for i := start
to ende
do
begin
if Primzahl(i)
then
begin
if (Primzahl(i+2))
and (i+2 <= ende)
then ListBox1.Items.Add(IntToStr(i) + '
& ' + IntToStr(i+2));
end;
end;
end;
end.
Brauchst für dein Prog zwei Edits, einen Button und eine ListBox zur Ausgabe. Fertig
