leer - leer - leer - wie lernt es mein Rechner?

[NicoleWagner]

Es geht darum, dass in einem Text-Feld entweder eine Uhrzeit angegeben wird oder eben keine.
Das Feld ist originär sicher leer, denn ich initialisiere es dezidiert mit ''.
Ist das Feld leer, so will ich die Wertzuweisung "Null" (nicht NULL iSv nil) haben.

Mein Problem ist jetzt, dass ich meinem Rechner nicht beibringen kann, was ein "leeres" Feld ist.
Unten meine Versuche. Diese Bedingungen sind alle drei "true", also der Rechner denkt, der Wert wäre NICHT ungleich Null / 00:00 usw.

Was der Rechner denkt?
Da ist schwierig, doch das Ergebnis ist jedenfalls (ich komme mir vor wie bei Anhalter durch die Galaxis): "12".

So sieht ein Codeschnipsel aus:

if (MaskEdit_ExitZeit.EditText<>'00:00') or (MaskEdit_ExitZeit.EditText<>'00:00:00') or (MaskEdit_ExitZeit.EditText<>'') then
try
dat:=StrToTime(MaskEdit_ExitZeit.EditText); // prüft, ob gültiges Datum
EinTrade_.ExitTime:=dat;
except // nur Zeitanteil aus Datum
EinTrade_.ExitTime:=0;
end;

Meine Frage: Wie bringe ich meinem Rechner bei, was ein leeres Feld ist?! (Delphi XE 3, TMaskEdit).
In der Schleife sind noch logische Fehler, um die geht es nicht. Es geht nur um die Zeile mit dem "if". Sie ist "true", wo sie 3 Gründe hätte, "false" zu sein.

[himitsu]

or (Trim(MaskEdit_ExitZeit.EditText)<>'') then

oder mal überlegt/nachgesehn, ob dann nicht eventuell 5 oder 8 Leerzeichen drin sind, wenn es leer ist?
or MaskEdit_ExitZeit.EditText.Trim.IsEmpty then

oder if MatchStr(MaskEdit_ExitZeit.EditText.Trim, ['00:00', '00:00:00', '') then

Und wenn ich solchen Code debuggen sollte, bzw. der mit beim Debuggen über den Weg läuft ... ich würde dich dafür garantiert vierteilen, steinigen und dann dir auch noch den A versohlen.

StrToIrgendwasDef oder TryStrToIrgendwas

Zitat:

// prüft, ob gültiges Datum

Nein, tut es nicht.


Und mal ganz im Ernst ... wenn eh immer 0 rauskommt, sobald Nichts oder Falsches drin steht, dann

Delphi-Quellcode:

dat := StrToTimeDef(MaskEdit_ExitZeit.EditText, 0);
// oder, wenn es nur ums prüfen geht - wenn man sich selber das fehlende IsNullOrWhiteSpace (ohne Parameter) dachgerüstet hat
if not MaskEdit_ExitZeit.EditText.IsNullOrWhiteSpace and TryStrToTime(MaskEdit_ExitZeit.EditText.Trim, Dummy) then
// bzw.
if not MaskEdit_ExitZeit.EditText.Trim.IsEmpty and TryStrToTime(MaskEdit_ExitZeit.EditText.Trim, Dummy) then
//
if (Trim(MaskEdit_ExitZeit.EditText) <> '') and TryStrToTime(Trim(MaskEdit_ExitZeit.EditText), Dummy) then
// ...

So lange es sich nicht um spezielle Fachbegriffe handelt, würde ich aus ästhetischen Gründen von Denglisch abraten.

[NicoleWagner]

Ganz lieben Dank!

So sieht das jetzt bei mir aus:

if MaskEdit_EntryZeit.EditText.IsEmpty
then EinTrade_.EntryTime:=0
else StrToTimeDef(MaskEdit_EntryZeit.EditText, 0);

Dass mein Compiler "MaskEdit_EntryZeit.EditText.IsEmpty" mit zig Fehlermeldungen bedenkt, wäre da nächste Rätsel. Doch egal, er compiliert und es tut, was es soll.

Und ja, das englische Gestammel ist deshalb, weil es Fachtermini sind, die zu übersetzen noch verwirrender wäre, als Denglisch zu stammeln.

[himitsu]

https://docwiki.embarcadero.com/Libr...Helper_Methods
aber daher auch noch die Varianten mit Trim() und <>



Ja, wir haben hier auch zuviel davon, aber "Zeit" hätte ich jetzt nicht als Fachbegriff eingestuft

[Delphi.Narium]

Zeit sind ja auch nur die zweiten 50% des Fachbegriffes.

ExitZeit ist der Fachbegriff, ebenso wie z. B. EntryZeit.

https://ninjacademy.traderfox.de/han...ategie/id-2128

[bernhard_LA]

einfachmal die Fehlermeldungen des Compilers ausschneiden und hier posten, dann kann man ggf. mehr dazu sagen

[NicoleWagner]

Danke für die weiteren Antworten.
"trim" trifft die Sache nicht, weil sie gesagt, die Eingabefelder explizit mit '' intialisiert werden.

@bernhard_LA

zu Compiler-Fehlermeldungen, die ich persönlich für Bugs aus Delphi XE 3 halte:

z.B.
'string enthält kein Element namens isEmty'

zur Zeile
... MaskEdit_EntryZeit.EditText.IsEmpty...

(Hinweis für jene, die nicht alle Postings lesen wollen: Das Kernproblem ist bereits gelöst, die Lösung steht oben, danke @himitsu!)

@Delphi.Narium
und: Ja, der Hinweis auf Traderfox hat die Sache recht gut erkannt!

[peterbelow]

Zitat von NicoleWagner:

zu Compiler-Fehlermeldungen, die ich persönlich für Bugs aus Delphi XE 3 halte:

z.B.
'string enthält kein Element namens isEmty'

zur Zeile
... MaskEdit_EntryZeit.EditText.IsEmpty...

XE3 hatte noch keine TStringhelper-Klasse, wenn mich mein Vergessnis nicht täuscht...

[Redeemer]

Warum eigentlich TMaskEdit und nicht TDateTimePicker?

[NicoleWagner]

@Redeemer, danke für Deine Anregung.
Warum?
Teils aus optischen Gründen. Und teils aus Gründen der Einfachheit. Dieses Feld ist eine Art Notizblock, in das maschinell geschrieben wird und das auch manuell ausgefüllt werde kann. Da ist in diesem Fall ein TEdit kompakter und klarer. Auch optisch, um es von den bereits vorhandenen TDateTimePickern, die ich für andere Zwecke nutze, zu unterscheiden.

Bekomme ich die Compiler-Meldungen irgendwie weg?
Sie bringen nämlich mehrmals am Tag die IDE zum Absturz, dadurch, dass sie einerseits den Arbeitsspeicher massiv zumüllen und andererseits die Programmierhilfe ins Leere greift und die CPU so auslastet, dass ich zum Taksmanager greifen muss. Ich kann da richtig zusehen. Wenn ich merke, sie wird langsam, dann kann ich mit etwas Glück noch schnell meine Arbeit speichern, bevor die Auslastung von 75 auf 99 Prozent hochgeht.