Forum: Cross-Platform-Entwicklung
by skoschke,
18. Mär 2021
So, es läuft wieder:
Das Projekt ist in Jahren entstanden und über zig Delphiversionen gewachsen.
Mir war irgendwann aufgefallen, dass ich Massen an Uses in den Units stehen hatte und habe die erst mal alle auskommentiert und nur noch die wieder eingefügt, die der Compiler als fehlend bemeckert hatte.
Dabei ist zum Teil mehr als die Hälfte der vorhandenen uses rausgeflogen.
Das habe ich...
Forum: Cross-Platform-Entwicklung
by skoschke,
3. Mär 2021
So, Testprojekt erstellt, das kaputte Formular eingebunden, da funktioniert überhaupt nichts!
Selbst beim Zuweisen eines Textes zu einem TEdit hängt das Programm.
Füge ich hier nun ein weiteres neues Formular mit ein paar TEdits hinzu, verhalten sich diese wie gewünscht!
Irgendwas ist an dem Formular kaputt, ich wüsste gern was da los ist und wie das repariert werden kann!
Ciao
Stefan
Forum: Cross-Platform-Entwicklung
by skoschke,
2. Mär 2021
Mir ist da noch weiter was aufgefallen:
hier beschrieben beim Debuggen:
https://www.delphipraxis.net/207179-10-4-2-debugger-spinnt-bei-android.html
Dieser Effekt beim Debuggen tritt nur in dem kaputten (was aber ist da kaputt?) Formular auf, gleicher Code in einem anderen Formular wird wie erwartet schrittweise mit F8 abgearbeitet!
Ciao
Stefan
Forum: Cross-Platform-Entwicklung
by skoschke,
2. Mär 2021
Nein, das hatte ich schon mit einem neuen Miniprojekt getestet, dort tritt der Fehler nicht auf...
Ciao
Stefan
Forum: Cross-Platform-Entwicklung
by skoschke,
1. Mär 2021
Ich hatte die Hoffnung, dass es mit Delphi 10.4.2 besser wird...
aber schon der Zugriff auf das TEdit
m := Menge.Text
bringt jetzt schon Laufzeitfehler!
Verdammt, was ist denn da nur los?
Forum: Cross-Platform-Entwicklung
by skoschke,
24. Feb 2021
Ich compiliere Android 32Bit.
Komplettes Clean hat nichts gebracht, auch ein neu auf dem Formular platziertes TEdit macht diese Fehler!
Andere (ähnlich aufgebaute) Formulare funktionieren problemlos!
Was kann da noch kaputtgegangen sein?
Das hat ja alles schon mal funktioniert!
Danke für jegliche Tips!
Forum: Cross-Platform-Entwicklung
by skoschke,
23. Feb 2021
Noch ein Versuch, ein Miniprojekt mit einem Button und einem TEdit
procedure TForm1.Button1Click(Sender: TObject);
begin
edit1.Text:= stringreplace(edit1.Text,'a','b',);
end;
ergibt keinen Fehler!
Forum: Cross-Platform-Entwicklung
by skoschke,
23. Feb 2021
Geänderter Code mit Umweg über Strings:
var
m, p: string;
begin
m := Menge.Text;
m := stringreplace(m, '.', ',', );
p := Preis.Text;
p := stringreplace(p, '.', ',', );
Menge.Text := m; <----- hier knallt es
Forum: Cross-Platform-Entwicklung
by skoschke,
23. Feb 2021
Hallo,
bisher funktionierte folgendes mit 10.3.3:
Menge.Text := stringreplace(Menge.Text, '.', ',', );
wobei Menge ein TEdit ist.