Bevor Du in Deiner Schleife auf n zugreifst solltest Du es zuweisen / initialiseren. Normalerweise hast Du ein Edit zur Eingabe und einen Button zum Start einer Aktion z.b. Berechnung. In der Ereignisbehandlung des Buttons rufst machst Du dann die Berechnung oder rufst diese, in eine weitere Procedur ausgelagert von dort auf.
Beispiel:
Delphi-Quellcode:
procedure Tform1.ButtonBerechnenClick(Sender : TComponent);
begin
// Ggf. vorher überprüfen ob Edit1.Text etwas sinnvolles enthält
Siebdeseratosthenes(StrToInt(Edit1.text));
end;
procedure TForm1.Siebdeseratosthenes(n : integer);
begin
.. Dein Code
end;
Ich hab es ausprobiert, aber es klappt nicht
So sieht es bei mir im Moment aus:
Delphi-Quellcode:
procedure TForm1.BerechnenClick(Sender: TObject);
begin
// Ggf. vorher überprüfen ob Edit1.Text etwas sinnvolles enthält
Siebdeseratosthenes(StrToInt(Edit1.text));
end;
procedure TForm1.Siebdeseratosthenes(n : integer);
var
a: real;
begin
a:= StrtoFloat(Edit1.Text);
end;
const
n=200 ;
var
zahl : array[2..n] of boolean;
p,i,v : integer;
weiter : boolean;
begin
// Eingabe
// Verarbeitung
for i := 2 to n do zahl[i] := true;
p := 2;
while p <= n do
begin
// es werden die Vielfachen von p getrichen
v := 2*p; // v ist das 'Vielfache'
while v <= n do
begin
zahl[v] := false;
v := v+p;
end;
// es wird die nächste nicht gestrichene Zahl gesucht
p := p+1;
if p <= n then weiter := true; // 'weiter' ist ein logischer Schalter
while weiter do
if (p<=n) and (zahl[p] = false)
then
p := p+1
else
weiter := false;
end;
end.