Registriert seit: 30. Nov 2005
Ort: München
5.774 Beiträge
Delphi 10.4 Sydney
|
AW: Wenn Abfage Hilfe
1. Feb 2017, 21:04
Delphi-Quellcode:
If (edit1.text = 'F') and (Labelnote.Caption = 'E1') then
begin
labelausgabe.Caption:='RICHTIG!'
showMessage(Edit1.text+' '+Labelnote.Caption);
end
else
begin
labelausgabe.Caption:='FALSCH!';
showMessage(Edit1.text+' '+Labelnote.Caption);
end;
end;
Klaus
Geändert von Klaus01 ( 1. Feb 2017 um 21:08 Uhr)
|