Gerade Zahl

[rüssel]

Hallo,
ich wollte aus einem zufallsfeld welches in einem memo ausgegeben wird alle Zahlen löschen die gerade sind.

Leider schaffe ich das nicht.

Mein Ansatz ist das die jeweilige zahl moduliert mit 2 gleich 0 ist.
Leider komm ich nicht dazu dass dieser Vergleich im memo stattfindet und dass diese Zahlen gelöscht werden

Mit freundlichen Grüßen

rüssel

[Helmi]

wie wärs damit:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  i: Integer;
  n: Integer;

begin
  for i := Pred(Memo1.Lines.Count) downto 0 do
    If TryStrToInt(Memo1.Lines.Strings[i], n) then
      If (n mod 2) = 0 then
        Memo1.Lines.Delete(i);
end;

[rüssel]

Vielen Vielen Dank

[himitsu]

Odd

[edit]
auf "New" klicken > www.delphipraxis.net/issue-436/

[Helmi]

Zitat von himitsu:

Odd

Der vollständigkeitshalber:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  i: Integer;
  n: Integer;

begin
  for i := Pred(Memo1.Lines.Count) downto 0 do
    If TryStrToInt(Memo1.Lines.Strings[i], n) then
      If not Odd(n) then
        Memo1.Lines.Delete(i);
end;

[rüssel]

Dankeschön

Also falls es nicht unpassend ist hätte ich noch eine Frage bezüglich des Programms, und zwar
wenn man nur Primzahlen möchte habe ich probiert, das hier anzuhängen, aber es funktioniert nicht,
könntet ihr mir vielleicht einen Ratschlag geben.

Delphi-Quellcode:

var a,i,n:integer;
begin
   a:=1;
   for i := Pred(Memo1.Lines.Count) downto 0 do
    If TryStrToInt(Memo1.Lines.Strings[i], n) then
      If not odd(n) then
        Memo1.Lines.Delete(i);
       If n = 1 then Memo1.Lines.Delete(i);
         if n <> 1 then
          begin
           repeat
            a:=a+1
           until n mod a = 0;
            if n mod a <> 0
            then Memo1.Lines.Delete(i);
          end;
end;

Falls es keine Umstände bereitet köntet ihr mir Pred und TryStrtoint erklären, bitte.

[Uwe Raabe]

Zitat von himitsu:

Odd

Odd ist übrigens wesentlich performanter! Es prüft einfach nur das niederwertigste Bit des Operanden. Daran erkennt man, daß Pascal noch aus Zeiten stammt, in denen Rechenzeit kostbar war.