Umbedingt Hilfe Bei Stringsuche

[benni1234]

Ich stehe vor mir eine unlösbare aufgabe und brauche eure Hilfe,Ich habe eine stringsuche mit teilstrings in meinem code Eingebaut, ich weiß das immer bei einer string suche der erste gefundene string angezeigt wird.
Ist es möglich bei mehreren gefundenen Strings, alle gefundenen auszugeben ??

[baumina]

Merke dir das Suchergebnis und suche solange weiter bis du nichts mehr findest.

[Klaus01]

Hallo,

benutzt Du Pos() zum Suchen?
Schau dir mal PosEx() an, da kannst Du den Index setzen ab
der erneut gesucht werden soll.

Grüße
Klaus

[himitsu]

Nein?

Aber das liegt daran, daß du vergessen hast zu verraten wie du suchst, bzw. was für eine Funktion du dafür benutzt. :angel:



Falls du Pos meinst, dann wäre die Antwort PosEs (in Google sollte man besser nicht danach suchen :lol:)

[benni1234]

Ich benutze pos() zum suchen, mit poes()geht bei mir irgentwie nicht weiß nicht ob das bei xe7 nicht geht oder daran das ich grad vcl anwendung mache

[Neutral General]

für posEx musst du die Unit "StrUtils" einbinden. Aber in den neueren Delphi Versionen hat pos auch einen optionalen 3. Parameter mit dem angegeben werden kann ab wo gesucht wird. posEx() ist also nicht unbedingt notwendig.

[himitsu]

Joar, also du brauchst auch noch unbedingt Hilfe, beim Benutzen der Taste "F1" und den guttenberischen Tastenkombinationen "Strg+C" und "Strg+V".

Oben denk Link anklicken oder F1 drücken und in der OH lesen wo sich diese Funktion befindet, denn die Unit wird ja genannt.
Und Kopieren+Einfügen der Fehlermeldung, wenn man schon nicht abschreiben kann, denn "geht irgendwie nicht" ist keine Fehlerbeschreibung, aber zum Glück sind wir hier alle Hellseher (oftmals). :glaskugel:

[benni1234]

Also es klappt doch nicht so ,
Ich möchte gerne alle gefundenen strings irgentwo speichern und dann ausgeben:

dbgrid1.DataSource.DataSet.RecNo:=i;
daten[i-1] := adoquery1.Fieldbyname('Matchcode').AsString;

end;

{$Region'Festlegung'}
// x:=suchen.Text;


z:=0;
x := UpperCase(suchen.Text);
for i := 0 To 165 Do
if posex(x, UpperCase(daten[i]),k) <> z then
begin


dbgrid1.DataSource.DataSet.RecNo:=(i+1) ;

{$Region'Visible'}

(....)

{$Endregion}

{$Region'Ausgabe'}

(...)
Auswertungskennzeichen.Text:=adoquery1.FieldByName ('Auswertungskennzeichen').AsString;

{$endregion}

{$Region'IfVisible'}


(...)

{$endregion}

end
else

begin
end
{$Endregion}

end;