Deutsches Lazarusforum

Wieso das denn?

if (Shift = [ssCtrl, ssShift]) then ShowMessage('Jetzt');


funktioniert doch einwandfrei.


Ja, wenn du nur wissen willst, ob gleichzeitig Ctrl und Shift gedrückt sind.
In allen anderen Fällen reagiert das nicht.
Kommt halt drauf an, was man braucht.


Wieso ist das mit ...

TShiftState ist kein Enum sondern ein Set:

TShiftStateEnum = (ssShift, ssAlt, ssCtrl,
ssLeft, ssRight, ssMiddle, ssDouble,
// Extra additions
ssMeta, ssSuper, ssHyper, ssAltGr, ssCaps, ssNum,
ssScroll,ssTriple,ssQuad,ssExtra1,ssExtra2);

TShiftState = set of TShiftStateEnum;

Auch in ...

TShiftState ist kein Enum sondern ein Set:

TShiftStateEnum = (ssShift, ssAlt, ssCtrl,
ssLeft, ssRight, ssMiddle, ssDouble,
// Extra additions
ssMeta, ssSuper, ssHyper, ssAltGr, ssCaps, ssNum,
ssScroll,ssTriple,ssQuad,ssExtra1,ssExtra2);

TShiftState = set of TShiftStateEnum;

Auch in ...

Im Plus-Paket wird mir bei gleicher Fragestellung eine andere, ebenfalls funktionierende(!) Lösung ausgespuckt:


uses TypInfo;
var x: (blau, gelb, rot);
x := gelb;
s := GetEnumName( TypeInfo(x), Ord(x) );
ShowMessage(s); // Writeln(s);


Ich kannte bisher keine der Lösungsmöglichkeiten ...

.

Da ich ebenfalls sehr oft FileExists() nutze, muss ich einfach mal blöd fragen: Welche Nachteile oder Katastrophen sind möglich, wenn FileExists(aFilename, false); verwendet wird?

Nicht nur unter diesen kaputten Microsoft-Systemen, sondern eben auch Linux, macOS usw. ...

Die Schattenkopien sind eine Funktion speziell von Windows Server, die der Admin wahlweise aktivieren kann, z.B. für ein Laufwerk.
Ob die dadurch erzeugten Datei-SymLinks durch Windows erzeugt werden oder von irgendeinem anderem Backup-Programm erzeugt werden, spielt ja keine Rolle, denn sie sind ...

Ich habe es jetzt auch noch mit Windoof 10 ausprobiert - das Ereignis "OnActivate" ereignet sich bei JEDEM Wechsel des Focusses, sowohl unter Linux als auch da.

Anbei noch das Testprojekt mit den Forms an "vernünftigen" Positionen ...

...

Leider nicht. (Gerade getestet, wer's nicht glaubt, probier's selber.) "Leider" sage ich jetzt, weil sich immer was tun soll. Dem eingeloggten User werden bestimmte Daten angezeigt. Dann braucht er die erst mal nicht, drückt das Fenster in den "Hintergund". Wenn er's wieder vorholt, kann in ...

Die Doku ist hierzu vielleicht mal ganz hilfreich:

Fatal
The compiler encountered an error, and can no longer continue compiling. It will stop at once.
Error
The compiler encountered an error, but can continue to compile (at most till the end of the current unit).
Warning
if there is ...

Habe es mal ausprobiert.

Tja ...

Und wohin bringt uns die "erste GEMA Klage"? Klagen kann man immer, ob es berechtigt ist, wird das Gericht entscheiden. Und sogar wenn das Gericht findet, dass die Klage berechtigt ist (was ich für nicht sehr wahrscheinlich halte, denn die meisten heute komponierten Musikstücke enthalten ...

Wenn man das so sieht, würde ich Sagen die Terminator und Matrixfilme zeigen da auch ein paar Körnchen Wahrheit. Weil bald brauchen Drohnen keinen Operator mehr, der Entscheidungen trifft. Sowas sollte man bein Thema AI auch philosophisch berücksichtigen.

Und schau mal wieviele Leute an das ...

Außerdem: DeepSeek ist OpenSource - Du kannst es Dir runterladen und selbst trainieren. Dann müssten die Filter wech sein ...

.... ganz zu schweigen vom "Spionage"-Code/Hintertür der chin. Regierung (vorausgesetzt man findet das im Source-Code)


.

Aha, die ersten Verschwörungstheorien ...

Was erwartest du dir für eine Antwort. Jeder kennt die Regeln.

Es ist genau die Antwort, die ich erwartet habe. Also ich habe vielleicht erwartet, dass der Filter in Echtzeit zuschlägt.

Ich will hier nur auf Probleme und Schwachstellen beim "produktiven Einsatz" der angeblichen "KI" hinweisen ...

Ein chinesisches Produkt? Das wollte ich mal testen.

...

Und da sind wir beim nächsten Problem: Was ist wenn ich irgendwann mal Microsoft Copilot nach einen Quellcode-Beispiel für Pascal frage und das Ding mir stattdessen empfiehlt lieber .NET und C# zu verwenden?


Erstaunlich, dass es ...