nach "enthaltenem Text" suchen

[lindes10]

Hallo,

ich bin relativ neu bei der Delphi-Programmierung und habe folgendes Problem:
Der Benutzer soll nach einem Musiktitel suchen können. Er gibt vllt nur einen Auszug aus dem Titel an.
Bsp.: "My Man", kompletter Titel lautet "My man is a mean man".
Das Programm soll ihm alle Lieder aus einer Liste rausspucken, die den Text "My Man" im Titel trägt. Mit welchem Befehl kann ich die Strings vergleichen, so dass der Befehl true ist, wenn der Titel den String "My man" enthält???

Vielen Dank im voraus,

Lindes10

[dominikkv]

schau dir mal Pos an...
...allerdings schaut der auch auf Groß/Kleinschreibung!

[Tarry]

Um die Groß und Klein Schreibung zu umgehen kannst du uppercase(String) benutzen.

Gruß
Tarry

[marabu]

Herzlich willkommen in der Delphi-PRAXiS, Lindes10.

Du solltest die mal die Routinen der Unit StrUtils anschauen, speziell AnsiContainsText().

Freundliche Grüße

[lindes10]

Ich danke euch allen. Hat mir sehr geholfen...

[Christian Seehase]

Moin Lindes,

evtl. kommt für Dich auch noch die Klasse TMask in Frage.
Zu finden in der Unit Masks.

[maker]

Vielleicht ist dein Problem schon gelöst, wenn nicht, wir haben für unser teefonbuch folgenden quelltext verwendet der bisher immer funktioniert hat, jedenfalls wenn du eine List Box benutzt, anderfalls musstes anpassen, sollte aber klappen.

var i: Integer
f: Boolean
s: string

begin
s:=InputBox('Suche nach',
'Was wolen Sie suchen?','')

if s<>'' then
begin
f:=false;
i:=-1;
while (i<ListBox1.Items.Count-1) and not f do
begin
Inc(i) //Erhöht Variable i um eins//
if Pos(s,ListBox1.Items[i])>0 then :=True;
end;
if f then
ListBox1.ItemIndex:=i //Setzen des Markierungsbalken//
else
ShowMessage('Suchwort nicht gefunden');
end;


vielleicht hilfts dir ja ein bischen

mfg. maker
end;