Ich hole mir aus einer Datenbank Integerwerte, die nur 1 oder 0 sein können. Diese Werte sollen als Angabe für ein Visible false oder true einer Elementes dienen. Hier der Code!
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
| with MainData do begin
if AppDatabase.Connected = true then begin
QuerySuchMaske.ParamByName('FORM_ID').AsInteger := AppForm.Tag;
QuerySuchMaske.Open;
for i:=1 to QuerySuchMaske.Fields.Count do begin
SearchDataMenu.Items[i].Visible := QuerySuchMaske.Fields[1].AsBoolean; end;
QuerySuchMaske.Close;
end;
end; |
An markierter Stelle erhalte ich die Meldung, dass der Intergerwert nicht als boolscher Wert interpetiert werden kann. Nun habe ich wage in Erinnerung, dass eine Funktion gab, die mir bei Eingabe eines Integerwertes wie 0 oder 1, false oder true ausliefert. Wie hieß diese Funktion?
Alternativ könnte ich den Interwert prüfen und darauf hin, true oder false setzen, aber so ist es schöner!
Das Unsympathische an den Computern ist, dass sie nur ja oder nein sagen können, aber nicht vielleicht.
