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;

[Headshot037]

Danke für die viele Hilfe!


jaenicke: danke^^ ich idiot!^^
kannst du mir folgendes erklären:

[Fehler] Unit1.pas(47): Es gibt keine überladene Version von 'RightStr', die man mit diesen Argumenten aufrufen kann
:wiejetzt:
MfG
Headshot037

[alzaimar]

Zitat:

Zitat von jaenicke

Haaalt, der eine Fehler ist hier erstmal

Danke jaenicke. Ich wollte den Thread schon wegen Am-Thema-Vorbei-Reden anprangern :zwinker:

[himitsu]

OK, wenn "g" ein Integer ist (PS: warum hast du die Variablendeklaration nicht lokal in der Prozedur drin?)

Zitat:

Delphi-Quellcode:

if RightStr(g,1)=2 or RightStr(g,1)=4 or RightStr(g,1)=5 or RightStr(g,1)=6 or RightStr(g,1)=8 or RightStr(g,1)=0 then

aber dann fehlen so oder so Klammen :roll:

Delphi-Quellcode:

if ((g mod 10)=2) or ((g mod 10)=4) or ((g mod 10)=5) or ((g mod 10)=6) or ((g mod 10)=8) or ((g mod 10)=0) then

bzw: (keinen Bereichsprüfung drin ... grund steht schonmal weiter oben)

Delphi-Quellcode:

if (g mod 10) in [2, 4, 5, 6, 8, 0] then

> mod

[Headshot037]

aaaaaah danke danke danke du hast mich gerettet =)
Bekommst auch nen Platz in den Credits =D

Warum ich die Variablendeklaration am Anfang schreibe und nicht in der Prozedur? Nun ja, ich habs so gelernt. Woher sollte ich es auch besser wissen =D Ein Schüler kann eben nur so gut sein, wie sein Meister. Aber ich denke ich habe hier die Community als neuen Meister gefunden =)

Ab sofort werde ich das natürlich in der Procedure schreiben ;)

Danke nochmal!
:zwinker:

[himitsu]

Variablen immer so nah wie möglich an ihrem Verwendungsord definieren.

Das merkst du eigentlich schon bei den Schleifenvariablen für For-Do-Schleifchen, denn diese müssen dord deklariert werden, wo sie benötigt werden, oder hat der Compiler nicht bei "a" gemeckert?

Zitat:

[DCC Warnung] Unit1.pas(40): W1019 FOR-Schleifenvariable muss eine einfache lokale Variable sein

Hat erstmal einen sehr großen Vorteil, es kann nicht passieren, daß du mal ausversehn eine Variable mehrfach verwendets.
(und globale Variablen werden eh ungern gesehn)