Forum: FreePascal
FreePascal
by Beach,
6. Mär 2020
Interessant wie weit man das verkürzen kann.
Danke für die Tipps
Forum: FreePascal
FreePascal
by Beach,
4. Mär 2020
Hab eine andere Funktion im Lazarus Forum gefunden, welche sicherer funktioniert.
Allerdings müsste, um vollständig zu sein, noch 2 Varianten (DezTrenner ',' TausenderTrenner '.' und umgekehrt) zusätzlich behandelt werden.
function MyStrToFloat(AString: string): double;
var
x: Double;
fs: TFormatSettings;
begin
x := NaN;
fs := FormatSettings;
fs.DecimalSeparator := ',';
Forum: FreePascal
FreePascal
by Beach,
3. Mär 2020
Wow. Viel Input...
Danke euch dafür.
Da mus ich mich nochmal in Ruhe mit auseinander setzen. Hab es zwar, glaube ich, Oberflächlich verstanden, aber werde da mal dein Beispiel testen um es auch wirklich zu verstehen.
Womit du prinzipiell Recht hast, aber da ich hier ein fest vorgegebenes Format habe das nicht variabel ist, wird es in diesem speziellen Fall nicht vorkommen. Daher habe...
Forum: FreePascal
FreePascal
by Beach,
3. Mär 2020
Das war QD
Außerdem bin ihc jemand der nur ab und zu aus Spaß sowas macht und dann immer offen ist, wenn er ERklärt bekommt was er falsch macht oder was man ordentlicher "sauberer" lösen kann.
Aber ich vermute das du auf IF error then anspielst? Da so eh der Vergleich auf TRUE gemacht wird?
So grob funktioniert das jetzt sogar. Allerdings scheint meine Funktion, die mit den String mit...
Forum: FreePascal
FreePascal
by Beach,
3. Mär 2020
Ich will kein Array füllen.
Sondern nur prüfen ob die Positionen regelmäßig sind.
so in der Art:
i:= array-array;
for j := 2 to length(array)-1 do
begin
if array-array <> i then
error := TRUE;
Forum: FreePascal
FreePascal
by Beach,
3. Mär 2020
Eine schlechte Erläuterung von mir.
Es handelt sich um Positionen an denen ein Winkel gemessen wurde. Und ich kann nur meine Berechnungen machen, wenn die Abstände dieser Positionen gleich sind.
z.B. alle 100mm
Es geht auch nicht darum diese Positionen zu ergänzen. Sondern einfach nur einen Meldung auszugeben das bei nicht regelmäßigen Positionen eine Umrechnung nicht möglich ist.
Forum: FreePascal
FreePascal
by Beach,
3. Mär 2020
Hallo zusammen,
ich versuche aktuell ein Programm zu machen welches mir Daten konvertiert.
Die Daten liegen als Textdateien in einem speziellen Format vor.
Das Einlesen und extrahieren der Daten ist soweit kein Problem.
Nun habe ich Positionen in einem Stringarray vorliegen. Diese Daten sind in dem Format "0.000000" also mit 6 Nachkommastellen und einem Dezimalpunkt anstelle des Komma....