Code:
if (CompareStr((Edit1.Text), 'e') > 0) then
Label4.Caption := 'Es ist mindestens ein "e" vorhanden'
else if (CompareStr((Edit1.Text),'e') < 0) then
Label4.Caption := 'Es ist kein "e" vorhanden'
else // CompareStr (...) = 0
Label4.Caption := 'Es ist genau ein "e" vorhanden'
Hi,
das stimmt so nicht, CompareStr sortiert. D.h. der 1. Fall bedeutet, der Text fängt mit einem Buchstaben nach "e" an.
Der 2. Fall bedeutet er fängt mit einem Buchstaben vor "e" an.(Könnte sein, dass ich beide Fälle vertausche)
im 3. Fall ist der Text genau ein "e".
Also ist wie du es prüfen willst wohl am ehesten so:
Code:
if CompareStr (...) = 0
Label4.Caption := 'Das Editfeld hat "e" als Text'