Platzhalter für Strings?

[Bastler]

Hallo zusammen;

Ich haben einen String, den ich inhaltlich durchsuchen will. Dabei soll er mir die Teilworter sozusagen ausgeben.

z.B.:

Zitat:

String: "Übermorgen ist Freitag"

Und ich habe ein Array, in dem

Zitat:

[('Tag');('Morgen');(...)]

steht.

Die Prozedure soll mir ausgeben, wieviele und welche Elemente des Arrays in dem String vorhanden sind; dabei soll weder Groß-/Kleinschreibung beachtet werden, noch ob das Wort allein oder als Teil eines zusammengesetzten Substantives vorhanden ist.

Habt ihr Vorschläge/Ideen?

Ich leider momentan nicht...

mfg Bastler

[sirius]

Pseudocode:

Delphi-Quellcode:

versuchstring='Übermorgen...';
stringarray=['Tag'...;


for i:=low(srtingarray) to high(stringarray) do begin
  teststring:=lowercase(versuchstring);
  tmp:=lowercase(stringarray[i1]);
  while pos(tmp,teststring)>0 do begin
    inc(zaehlarray[i]);
    delete(teststring,1,pos(tmp,teststring)+length(tmp)-1);
  end;
end;

[leddl]

Zitat von sirius:

Pseudocode:

Sehr viel Pseudocode seh ich da aber nich

Außer den fehlenden Deklarationen und den ersten beiden Zeilen sollte er das ja 1 zu 1 übernehmen können

[sirius]

Zitat von leddl:

Sehr viel Pseudocode seh ich da aber nich

Manchmal nimmt man sich einfach zu viel vor.
Es ist bei sowas kleinem schwerer nicht funktionierenden Code zu schreiben.
Aber Fehler sind bestimmt drin..

[Bastler]

Danke, aber ich hab mich dann doch für die mir einfahcer erscheinendes Variante entschieden, die ich heute Gefunden habe...
AnsiContainsText(string,wort)