Forum: Object-Pascal / Delphi-Language
by St0rmhunter,
14. Nov 2011
So vielen Dank an alle Helfer, war noch Unterwegs in letzter Zeit und hatte keine Zeit für die Programmierung des Programms.
Die Lösung von Gammatester war genau das was ich brauchte jetzt funktioniert endlich auch alles =)
r := b;
for i:=2 to a do begin
r := r*b mod m;
end;
Nochmal ein großes Danke an alle Helfer, dieses tollen Forums 8-)
Forum: Object-Pascal / Delphi-Language
by St0rmhunter,
4. Nov 2011
Ok danke für die Tipps mit den Showmessages =)
Das mit F7 funktioniert einfach nicht, ich kann f7 drücke oder übers menu gehen und es passiert einfach nichts, das meinte ich mit funktioniert irgendwie nicht ^^
So der Fehler wird dann bei Trunc( liegen, da meine zahlen meistens viel größer sind wie z.B. 142^23 oder ähnlich groß.
Hätte jemand eine Idee wie ich denn bei so großen Zahlen den...
Forum: Object-Pascal / Delphi-Language
by St0rmhunter,
4. Nov 2011
@DeddyH
Mit durchsteppen hast du bestimmt das mit F7 gemeint, also den nächsten Befehl immer erst nach F7 ausführen oder? :? Wenn ja ... das klappt bei mir irgendwie nicht :?
Dann wo denkst du denn sind Zwischenvariablen angebracht? :? Wüsste nicht wo es hilfreich wäre oder nützlich wäre.
Und zu der Idee mit der minimalen Fehlerbehandlung, sry aber ich weiß nicht was du damit meinst?
Forum: Object-Pascal / Delphi-Language
by St0rmhunter,
3. Nov 2011
Upps da hab ich wohl die -2 vergessen for i:=1 to length(memo1.text)-2 do.
Nee kenne copy nicht. :?
So habe die -2 ergänzt und trotzdem kommt noch die Fehlermeldung "Invalid floating point operation" :?
Forum: Object-Pascal / Delphi-Language
by St0rmhunter,
2. Nov 2011
Ich habe ein seltsames Problem, wie der Titel schon sagt beim Klicken auf den Button2 kommt immer die Fehlermeldung "Invalid floating point operation".
Meine Variablen:
var
Form1: TForm1;
i,j: Integer;
Bst,b: Extended;
Das hier ist der Quellcode zu Button2:
procedure TForm1.Button2Click(Sender: TObject);