Anstelle der Zeile mit IfThen eventuell:
Delphi-Quellcode:
case Gefunden of
true : Label9.Caption := 'Das Rezept ist in der Rezeptsammlung vorhanden!';
false: Label9.Caption := 'Das Rezept ist nicht in der Rezeptsammlung vorhanden!';
end;
Mein Delphi kommt mit dem IfThen zurecht.
Im Original steht nicht
Delphi-Quellcode:
Label9.Caption:=('Das Rezept ist in der Rezeptsammlung vorhanden!');
[IfThen(Gefunden,'','nicht ')]);
sondern
Label9.Caption:=Format('Das Rezept ist in der Rezeptsammlung vorhanden!',[IfThen(Gefunden,'','nicht ')]);
Format ist eine Funktion, die zur parametrisierten Ausgabe von Zeichenfolgen dient.
IfThen ist eine Funktion, die abhängig vom Wahrheitsgehalt des ersten Parameters den zweiten oder dritten Parameter ausgibt.
IfThen('ist dieses hier wahr','gebe diese aus','ansonsten jenes');
IfThen(1 = 2,'richtig','falsch');
IfThen(Gefunden,'','nicht ');
Wenn also in der vorherigen Schleife nichts gefunden wurde, so ist Gefunden = false und es wird
nicht ausgegeben. Wurde etwas gefunden, so wird nur ein Leerstring (also '') ausgegeben.