nach gleichen vorkommen in Textdatei Suchen

**City Light**

Hallo

mein problem ist folgender, ich möchte in einer Textdatei auf gleiches vorkommen suchen lassen.

Beispiel: Ich gebe in einer Edit volgenden text ein...

Test

in der text datei befinden sich aber schon folgende Worte:

test
tEsT
TEst
tesT
teSt

usw. man beachte die schreibweise

nun möchte ich das mir mein App sagt das diese Test schon vorhanden sei

**RomanK**

Hoi,
wenn ich das richtig verstanden habe sollte dir der Befehl AnsiUpperCase helfen. Der Befehl wandelt die ganzen übergebenen Buchstaben in Großbuchstaben um. => Delphi Hilfe bzw. im Forum suchen.

**City Light**

danke werd mir das erst mal anschauen...

**Jens Schumann**

Hallo,
wenn die Textdatei in einer TStringlist ist, kannst Du die POS Funktion verwenden.
If Pos('Test',MyStringList.Text)>0 then

POS achtet nicht auf Groß-/Kleinschreibung

**City Light**

noch mals danke...
aber ich hatte es schon fertig

if pos(AnsiUpperCase(Edit1.Text), AnsiUpperCase(sl.Text)) = 0 then

RomanK Registriert seit: 7. Jun 2002 Ort: Kirchheim unter Teck 1.036 Beiträge Delphi 7 Personal	#2 19. Mai 2003, 15:37 Hoi, wenn ich das richtig verstanden habe sollte dir der Befehl AnsiUpperCase helfen. Der Befehl wandelt die ganzen übergebenen Buchstaben in Großbuchstaben um. => Delphi Hilfe bzw. im Forum suchen. Roman Keller Krieg ist Gottes Art den Amerikanern Geographie beizubringen!
	Zitat

City Light Registriert seit: 17. Sep 2002 314 Beiträge	#3 19. Mai 2003, 15:46 danke werd mir das erst mal anschauen... Bis bald man liest sich Tino
	Zitat

Jens Schumann Registriert seit: 27. Apr 2003 Ort: Bad Honnef 1.644 Beiträge Delphi 2009 Professional	#4 19. Mai 2003, 16:01 Hallo, wenn die Textdatei in einer TStringlist ist, kannst Du die POS Funktion verwenden. If Pos('Test',MyStringList.Text)>0 then POS achtet nicht auf Groß-/Kleinschreibung
	Zitat

City Light Registriert seit: 17. Sep 2002 314 Beiträge	#5 19. Mai 2003, 16:20 noch mals danke... aber ich hatte es schon fertig if pos(AnsiUpperCase(Edit1.Text), AnsiUpperCase(sl.Text)) = 0 then Bis bald man liest sich Tino
	Zitat

nach gleichen vorkommen in Textdatei Suchen

nach gleichen vorkommen in Textdatei Suchen

Forumregeln