CompareStr Erläuterung? Alternativen?

[Elexarie]

Hallo Community,

wir sollen als Hausaufgabe die Funktion 'CompareStr' verwenden. Ich habe innerhalb dieser Funktion keinerlei Sinn gesehen und meinen Lehrer darauf angesprochen. Mir selber erscheint dieser als recht unerfahren und auch er hatte gewaltige Probleme mir zu erläutern, was dahinter steckt. Auch einige Referenzen wollten mich nicht aufklären.

Es handelt sich um die Funktion:

Code:

CompareStr(s1, s2)

Wir sollen einen Text (Edit1.Text) auf den Charakter 'e' überprüfen.

Rein logisch würde es doch dann dementsprechend wiefolgt aussehen:

Code:

begin

        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'
end;

Laut der Defintion unser Funktion lautet es wiefolgt:

Zitat:

Integer: <0, falls 1.String lex größer als 2.String, =0 falls beide gleich, >0, falls 1.String kleiner als 2. String

Täusche ich mich? Hat mein Lehrer bzw. der Arbeitszettel unrecht? Ist meine Überprüfung falsch?
Habt ihr direkt einen Vorschlag, den ich anstelle von CompareStr verwenden kann?

Mit freundlichen Grüßen,

Elex.

[Sir Rufo]

Dafür gibt es die Online-Hilfe und wenn die aus welchen Gründen auch immer nicht zur Verfügung steht, dann schaut man da CompareStr

Allerdings wird CompareStr eher zur Sortierung gebraucht, als dazu festzustellen ob in einem String ein anderer String enthalten ist.

[BenjaminH]

Zitat von Elexarie:

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'

[Stevie]

Mögliche Alternativen: ContainsText, Pos oder PosEx

[Namenloser]

Wenn euer Lehrer euch wirklich den Auftrag gegeben hat, mithilfe der Funktion CompareStr einen String zu durchsuchen, ist er eine Lusche (was mich nicht weiter wundern würde, scheint bei Informatiklehrern Standard zu sein).

CompareStr ist, wie bereits gesagt wurde, dafür da, um Strings zu sortieren:

CompareStr('Apfel', 'Birne') ergibt -1 ('Apfel' kommt alphabetisch vor 'Birne')
CompareStr('Birne', 'Apfel') ergibt 1 ('Birne' kommt nach 'Apfel')
CompareStr('Apfel', 'Apfel') ergibt 0 (ist klar, beide sind gleich)

Es wird hierbei immer nur der gesamte String verglichen.

Wenn du einen String nach einem anderen String durchsuchen willst, ist die Funktion Pos dein Freund. Sie gibt als Ergebnis die Position zurück, an der der zu suchende String gefunden wurde, bzw. 0 wenn kein Treffer gefunden wurde.

Pos('A', 'Apfel') ergibt 1
Pos('pf', 'Apfel') ergibt 2
Pos('el', 'Apfel') ergibt 4
Pos('Z', 'Apfel') ergibt 0
usw...

[Elexarie]

Vielen Dank.

Dann unterrichten sie schon Delphi an einem technischen Gymnasium (ich persönlich bin kein Freund hiervon) und dann auch noch falsch. Tut mir Leid, aber armes Bildungssystem.

Danke an alle Hilfen.

Der Lehrer darf sich was von mir anhören. Ich hatte den Verdacht schon am letzten Info-Tag.

[DeddyH]

[erbsenzählen]CompareStr sortiert nicht, sondern gibt eine Zahl zurück, welche man für eine Sortierung auswerten kann.[/erbsenzählen]