Es ist zwar eine blöde Frage aber wie kann ich LStatus.Caption:='2.50' mit in die Bedingung einbauen
In diesem Fall überspringt er diesen Befehl.
Delphi6
If Memo2.Lines.Strings[0]='2301' then
Memo2.Lines[1]:='Bitte zahlen Sie '+FloatToStr(2.50)+' Euro';
LStatus.Caption:='2.50';
if Memo2.Lines.Strings[0]='2501' then
Memo2.Lines[1]:='Bitte zahlen Sie '+FloatToStr(3)+' Euro';
LStatus.Caption:='70';