Wenn Abfage Hilfe

[Luckie]

Dann vergleiche doch den Label Text mit dem Edit Text.

[derPat17]

Geht das so einfach?

If editnote.text:='A' and labelpos.caption:='E5'
Then ..
Else .. ;

Mfg

[Jumpy]

Nur ohne den Doppelpunkt...

[derPat17]

ok klappt soweit, ich habe nun

procedure TForm1.BitBtn2Click(Sender: TObject);
begin
If edit1.text='F' and Labelnote.Caption:='E1'
then labelausgabe.Caption:='RICHTIG!'
else labelausgabe.Caption:='FALSCH!';
end;

es kommt aber
[Error]Unit1.pas(468): Operator not applicable to this operand type
(und er makiert die then zeile)

wenn ich aber das "and" weglasse, funktioniert es, aber er soll doch vergleichen. (Also wenn das und das dann...)

MFG

[Dalai]

Delphi-Quellcode:

If (editnote.text = labelpos.caption) Then ..
Else .. ;

Grüße
Dalai

[derPat17]

ok danke, und wie bekomme ich in else noch eine 2. anweisung rein dass er mir die Richtige Note falls Falsch in einem extra label anzeigt?

ein and geht ja net?

MFG

[Klaus01]

.. vielleicht so?

If (edit1.text='F') and (Labelnote.Caption:='E1') then grüße
Klaus

[derPat17]

wenn ich das "and" und die 2. Anweisung weglasse geht es... ich möchte aber die 2. Anweisung

[Klaus01]

and

Code:

false and false -> false
false and true -> false
true and false -> false
true and true -> true

or

Code:

false or false -> false
false or true -> true
true or false -> true
true or true -> true

Was geht denn und was geht nicht?

Welche Werte habe denn
Edit1.text und Labelnote.caption wenn nicht geht?

Grüße
Klaus

[derPat17]

wie welche werte? na ein text ^^ label (caption) und im edit feld ( text)