Wenn "Hallo" im Satz ist

[MiniKeks]

Ich möchte checken ob das wort "Hallo" im Satz von Edit1 Steht. Wenn da irgendwo im Satz "Hallo" steht dann soll "Hallo zurück!" in Edit 2 ausgegeben werden. Wenn aber in Edit1 irgendwo im Satz "Ciau" steht dann soll er in Edit2 "Jaja, geh du nur" geschriben werden. Wie realisiere ich das am besten?

Gruss MiniKeks

[Ultimator]

pos

[mirage228]

Hi,

wie wärs mit Pos? ;)

mfG
mirage228

[DP-Maintenance]

Dieses Thema wurde von "Daniel" von "Klatsch und Tratsch" nach "Sonstige Fragen zu Delphi" verschoben.

[MiniKeks]

Ich chek das ned, kann mir jemand helfen? Bin gerade ein Bisschen Müde :D

Danke!

[mirage228]

Zitat:

Zitat von MiniKeks

Ich chek das ned, kann mir jemand helfen? Bin gerade ein Bisschen Müde :D

Danke!

Delphi-Quellcode:

if Pos('Hallo', EinString) <> 0 then
  ShowMessage('Oh mein Gott! Es gibt ein "hallo" im Text - wir werden alle sterben');

mfG
mirage228

[Ultimator]

Pseudocode:

Code:

Wenn pos(solldasein,dasollsdrinsein) ungleich 0 ist
dann
[...]

Zeig doch mal selber Engagament :roll:

[edit]Das -1 ion 0 verbessert :-D [/edit]

[Nicodius]

Such mal unter Pos in der Delphi Hilfe ;) ...


Pos(W1, W2);

W1 ist der string den du suchst und W2 worin du in suchst


zb

Delphi-Quellcode:

If Pos("Hallo", Memo1.text) > 0 then

pos gibt die position des ersten Buchstabens zurück wenn dein wort vorkommt

[CalganX]

Hi,
schau in die Delphi Hilfe unter dem genannten Stichwort. Da steht sogar ein Beispiel dabei. :roll:

Chris

Edit: Wenigstens bin ich nicht Letzter. :lol:

[Neutral General]

Delphi-Quellcode:

procedure TForm1.Button1.Click(Sender : TObject);
begin
if Pos('Hallo',Edit1.Text) > 0 then ShowMessage('es gibt ein "Hallo" !')
else
ShowMessage('Es gibt kein "Hallo" !');
end;

[edit]LOL eine ganze Flut von Antworten :mrgreen: [/edit]

[Torpedo]

Delphi-Quellcode:

if pos('HALLO', uppercase(Edit1.Text)) <> 0 then 
  Edit2.Text := 'Hallo zurück!'
else
  Edit2.Text := 'Jaja, geh du nur';

So müsste es funktionieren.
Pos gibt die Position von einem String in einem anderen zurück. Wenn 0 zurückgegeben wird, ist der String nicht vorhanden.



Edit: Mist, zu langsam.

[malo]

Ähm... mir fällt grad auf, pos scheint case-sensetive zu sein, wenn ich das richtig erkenne. Kann man das vielleicht irgendwie ändern? :gruebel:

[edit]
habs mit uppercase geschafft, schon gut :roll: :oops: [/edit]

[mirage228]

Zitat:

Zitat von malo

Ähm... mir fällt grad auf, pos scheint case-sensetive zu sein, wenn ich das richtig erkenne. Kann man das vielleicht irgendwie ändern? :gruebel:

Nein, das stimmt so nicht...

Zitat:

Zitat von OH

Die Groß/Kleinschreibung wird von Pos nicht berücksichtigt

mfG
mirage228

[malo]

Zitat:

Zitat von mirage228

Zitat:

Zitat von malo

Ähm... mir fällt grad auf, pos scheint case-sensetive zu sein, wenn ich das richtig erkenne. Kann man das vielleicht irgendwie ändern? :gruebel:

Nein, das stimmt so nicht...

Zitat:

Zitat von OH

Die Groß/Kleinschreibung wird von Pos nicht berücksichtigt

mfG
mirage228

Das stimmt aber irgendwie bei mir nicht ganz.

Delphi-Quellcode:

if pos('Hallo', Edit1.Text) <> 0 then
  ShowMessage( 'Hallo')
else
  ShowMessage( 'kein hallo');

Wenn ich jetzt in edit1 "hallo" eingebe, kommt da "kein hallo", wenn ich "Hallo" eingebe kommt "Hallo". Aber mit uppercase funzt es ;)

[Treffnix]

Zitat:

Zitat von mirage228

Zitat:

Zitat von malo

Ähm... mir fällt grad auf, pos scheint case-sensetive zu sein, wenn ich das richtig erkenne. Kann man das vielleicht irgendwie ändern? :gruebel:

Nein, das stimmt so nicht...

Zitat:

Zitat von OH

Die Groß/Kleinschreibung wird von Pos nicht berücksichtigt

mfG
mirage228

Das sagt zwar die OH, aber sie lügt. Is mir auch schonmal aufgefallen