Deutsches Lazarusforum

StrToInt gibt es auch mit einem default: http://www.freepascal.org/docs-html/rtl ... ntdef.html
zusätzlich (vor allem bei Typ-Umwandlungen) kann/sollte man Exceptions abfangen. Siehe Beispiel beim Link ganz unten

Muss es denn ohne grafische Oberfläche sein? Wenn nein, dann hab ich hier ein Beispiel:


in Lazarus Projekt -> neues Projekt -> Anwendung
aus dem Menü drei TButtons, ein TImage auf die Oberfläche der Form ziehen
Caption eines Button zu sin(x) ändern
Quelltext mit folgendem ersetzen


unit ...

Ein "Realtime-linux" hört sich wie eine gute Idee an, wenn man Pascal programmieren will (linuxcnc kenne ich nicht, die Website sagt auf den ersten Blick nichts über realtime). Ich kenne da z.B,. das "Realtime Patch", habe es aber nicht ausprobiert.


Das sagt das wiki dazu: http://wiki.linuxcnc ...

Um das Problem eines nicht realtime-fähigen Betriebssystems zu umgehen, könnte man ja ein realtime-fähiges nehmen. In der Wikipedia sind unter 'Echtzeitbetriebssysteme' einige aufgeführt.
Eine einfach Lösung könnte linuxcnc sein. Dort wird zur Maschinensteuerung ein Ubuntu-Derivat verwendet, welches ...

Das ist aber das TFloatSpinEdit. Das hatte ich auch schon vorgeschlagen.

Olli hat geschrieben:Hallo Antrepolit,

wo finde ich denn dieses TFloatEdit, muß ich dazu noch ein extra Paket installieren?
Ich habe mir für diese Felder letztens extra das Paket "JUJIBOUTILS" installiert.

Würde mich auch interessieren! Habs nur zum runterladen gefunden, für Delphi.

Wo ist denn deine zuerst gestellte Frage hin?

Es gibt try..except Blöcke zum Abfangen von Fehlern. Allerdings schlage ich vor, direkt bei der Eingabe zu prüfen. Wie wär's mit FloatSpinEdit-Feldern?

1.
Das Ergebnis kannst du direkt vor der Ausgabe runden, am einfachsten mit 'RoundTo()' aus der Unit math.
Bei dem Datentyp single kommt es bei mir zu seltsamen Rundungs-Ergebnissen. Bei double scheint es zu stimmen.

procedure TForm1.Button1Click(Sender: TObject);
begin
// d: double!
d := ((b ...

Ist ein wenig älter, aber schau mal hier: http://techsupt.winbatch.com/ts/T000001033005F9.html
Eine Suche nach 'Excel Constants' dürfte auch für neuere Versionen von Excel einige Treffer bringen.

und mal in die Dokumentation schauen, das geht meisten schneller als sich durch die Unit zu scrollen. Zudem gibts da oft eine Beschreibung:
http://lazarus-ccr.sourceforge.net/docs ... dex-5.html

ach ja, Crt hat noch mehr. Oft sieht man ja, dass am Ende eines Programms steht: "press any key to exit ...", oder so. Leider klappt das mit readln() nicht. Aber hiermit:
WriteLn();
Write('Beliebige Taste zum Beenden ... ');
repeat
until KeyPressed; // leere Schleife bis eine Taste gedrückt wurde ...

es wär am besten wenn du mal den gesammten quellcode in dem das Runden und so gemacht wird nochmal schreibst, ...
?
Ist ja auch klar, denn ich kann ja schlecht zwei Mal den selben Befehl mit unterschiedlichen Anweisungen angeben, ...

Natürlich kannst du das. Pack das Runden in eine Funktion ...

uses
math, // für intpower()
...

var
digits:integer;
...

begin
...
{Ausgabe runden}
digits := 3; // Anzahl Nachkommastellen NKS
m := round(m * intpower(10, digits)) / intpower(10, digits); // Zahl:=Runden(Zahl*10^NKS)*10^NKS
Write(m: 8 + digits: digits); // Variable: Anzahl ...

noch eine Hilfe:
Jochen

Und wie bekomm ich da das Ergebnis in ein Button?
Button auf, Ergebnis rein, Button zu. Eine genaue Beschreibung hilft den Helfenden ... vielleicht kannst du damit was anfangen:

// zufälliger Rückgabewert zwischen min und max
function RandomMinMax(min, max: integer): integer;
begin
Result ...