string durchsuchen und tipps zu while + for-schleifen

[delphi-n]

Hi!

Wie durchsucht man einen String (eig. eine Linie aus einem Richedit) nach z.B. 'Hallo'?

Vielen Dank

[Matze]

Hallo,

das geht mit Pos bzw. PosEx.

Grüße, Matze

[DeddyH]

Je nachdem, was genau mit "Durchsuchen" gemeint ist, könnten auch AnsiContainsStr oder AnsiContainsText aus StrUtils in Frage kommen.

[delphi-n]

danke :thumb:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);

var S: string;
begin
  S := Edit1.Text;
  { Convert spaces to zeros }
 if Pos('hallo', S) > 0 then
 Button1.Visible:=false;
end;

das klappt :coder:


http://docs.embarcadero.com/products...yteString.html

(unten, etwas geändert)

[DeddyH]

Zitat:

Pos is case-sensitive.

Wenn Dich das nicht stört oder gar gewollt ist, isses ja in Ordnung.

[delphi-n]

pech für den nutzer, der muss dann halt richtig eingeben :D

[Matze]

Irgendwo gab's mal einen Fehler in der OH. Ich kann mir seitdem nicht merken, ob Pos nun case-sensitiv ist oder nicht. Falls es das sein sollte, wie Deddy geschrieben hat, kannst du das so auch umgehen:

Delphi-Quellcode:

if Pos('hallo', AnsiLowerString(S)) > 0 then

Und eine der wichtigsten Regeln beim Programmieren: Der Anwender ist ein DAU (Dümmster anzunehmender User) bzw. kann einer sein. Stelle dir das vor und versuche die Programme auch entsprechend zu schreiben. Sonst hast du u.U. nur Ärger. ;)

[delphi-n]

AnsiLowerString kennt mein delphi (7) nicht :gruebel:

[DeddyH]

Matze meinte AnsiLowerCase ;)

[edit] "Turbo-Opa" war wieder schneller :lol: [/edit]

[Matze]

Ach ne, es heißt glaub AnsiLowerCase, sorry.

Edit: Durch PHP & Co kommt man auch ganz durcheinander, da heißt es "StrToLower" oder "LowerString" (oder war das C/C++?) oder wie auch immer. In mySQL heißt es "Lower". Da blickt doch kein Mensch mehr durch. :mrgreen:
Und Deddy war schneller.