Hab ja gestern schonmal gepostet, die Programme hab ich alle hinbekommen, jetz fehlt mir noch eins und zwar die Primzahlenberechnung. Wir sollen also die Primzahlen in einem bestimmten Intervall (Feld2 bis Feld3) berechnen. Hab dafür in der Anwendung ne Schaltfläche und die drei Textfelder eben verwendet. Klappt auch alles super, die Primzahlen werden berechnet, nur nicht ausgegeben. Immer nur die letzte kann mir einer sagen, wie ich den Quelltext ändern muss, damit es mir alle mit ein paar Freizeichen dazwischen ausgibt? Das müsste doch mit einem Feld oder einem Zeiger machbar sein, oder? Die einfachste Antwort wäre die beste, damit ich es auch nachvollziehen kann!

void __fastcall TForm1::Button1Click(TObject *Sender)
{
Edit1->Clear();
int i,n,c,d;
int a = StrToInt(Edit2->Text);
int b = StrToInt(Edit3->Text);
if (a>2) d=0;
else d=2;
for(i=a;i<=b;i++)
{
for(n=2;n<i;n++)
{
c=i%n;
if (c==0) break;
}

if (c!=0)
{
d=d+i;
Edit1->Text = IntToStr(d);
}
else Edit1->Text = IntToStr(0);
}
}

Also das d+i usw ist nur, weil ich porobieren wollte, ob die Summe stimmt und die stimmt.

Edit1->Text +=" "+ IntToStr(d); 
} 
else Edit1->Text +=" "+ IntToStr(0); 
} 
}

du hast die Ausgabe immer wieder überschrieben, und du gibst den falschen Wert aus

Edit1->Clear();
int i,n,c;
int a = StrToIntDef(Edit2->Text,0);
int b = StrToIntDef(Edit3->Text,0);
for(i=a;i<=b;i++)
{
  for(n=2;n<i;n++)
  {
    c=i%n;
    if (c==0) break;
    }

  if (c!=0)
  {
    if (Edit1->Text != "") Edit1->Text = Edit1->Text + ", ";
    Edit1->Text = Edit1->Text + IntToStr(i);
    }
  }

/Edit : zu spät.. Server lahmt gerade

bis bald
akari

JAu habe auch gerade gesehen das da was nicht stimmt

Liebe Grüße, Elli.