Delphi: Prüfen ob in Edit bestimmter Wert drinnen ist

[Larsi]

hi,
ich hab n edit indem z.B. 'Hallo Larsi' drinsteht. jetzt möchte ich das so machen: in einem anderen edit steht z.B. nur 'hallo' drinnen aber ich möchte jetzt, dass wenn ein teil des einen edits auch im anderen ist, dass dann zb mit ner if anweisung irgendwas passier.

Bsp.:

Delphi-Quellcode:

if edit1.text = Einwortaus.Edit2.text then
blablabla
else
blablalba

kann mir di jmd helfen???


MFG Lars Wiltfang

[mkinzler]

Pos(), StrScan()

[der_kumpel]

Überprüfe mit Pos(), ob die Position des Textes vom 2. Edit im 1. Edit größer 0 ist.

[Larsi]

könnt ihr mir da mal n codeschnippsel für geben das smit pos und so hab ich noch nie verstanden!

[mkinzler]

Delphi-Quellcode:

if Pos( Edit2.text, Edit1.text) < 0 then

Ist wahr wenn der Inhalt von Edit2 Teil von edit1 ist

[Helmi]

Zitat:

Zitat von mkinzler

Delphi-Quellcode:

if Pos( Edit2.text, Edit1.text) < 0 then

Ist wahr wenn der Inhalt von Edit2 Teil von edit1 ist

müsste es nicht so heissen?

Delphi-Quellcode:

if Pos( Edit2.text, Edit1.text) > 0 then

Also größer null?

[Larsi]

danke, das war ja einfach :)
könntet ihr mir dann auch noch benatworten wie ich das machen kann dass es egal ist ob das groß oder kleinbuchstaben sind???

[taaktaak]

Moin, Moin,

Delphi-Quellcode:

if (pos(edit1.text,edit2.text)>0) or
   (pos(edit2.text,edit1.text)>0) then blabla // Doppelung vorhanden
                                  else blabla // keine Doppelung vorhanden

ggf. noch konvertieren, wenn Groß-/Kleinschreibung nicht berücksichtigt werden soll
Gruß Ralph

edit: ZWEI Prüfungen notwendig, da die Anforderung ist...

Zitat:

wenn ein teil des einen edits auch im anderen ist

[DeddyH]

Delphi-Quellcode:

if Pos( AnsiLowerCase(Edit2.text), AnsiLowerCase(Edit1.text)) > 0 then

[mkinzler]

Zitat:

Also größer null?

ja, sch... Shift-Taste