Mehrere String bei teilstringsuche ausgeben

[benni1234]

Ich möchte gerne alle gefundenen strings irgentwo speichern und dann ausgeben,die nicht zutreffenedn string sollen nicht angezeigt werden
das alles sollte bei einem klick passieren.
ich stehe gerade auf nem schlauch und komme nicht weiter hoffe auf eure unterstützung

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

end;

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) ;
(....)
Auswertungskennzeichen.Text:=adoquery1.FieldByName ('Auswertungskennzeichen').AsString;
(...)
end;
else

begin
end;
end;

[Sherlock]

Was ist das? :shock:
Falsche Tags gesetzt?

Sherlock

[benni1234]

Ja alles ein bisschen komisch geworden beim einfügen..Die generellefrage ist die in der Fragestellung

Zitat:

Zitat von Sherlock (Beitrag 1288294)

Was ist das? :shock:
Falsche Tags gesetzt?

Sherlock

[Sherlock]

Die Fundstücke kannst Du zB in eine TStringList per

Delphi-Quellcode:

Add

einfügen. Ausgeben kannst Du die dann zB mit

Delphi-Quellcode:

Text

oder

Delphi-Quellcode:

DelimitedText

.

Sherlock

[benni1234]

Bei mir wird jetzt immer nur ein wert überschrieben wie lese ich die hintereinander aus ?

Zitat:

Zitat von Sherlock (Beitrag 1288299)

Die Fundstücke kannst Du zB in eine TStringList per

Delphi-Quellcode:

Add

einfügen. Ausgeben kannst Du die dann zB mit

Delphi-Quellcode:

Text

oder

Delphi-Quellcode:

DelimitedText

.

Sherlock

[DeddyH]

Normalerweise iteriert man so durch eine Datenmenge:

Delphi-Quellcode:

Dataset.First;
while not Dataset.EOF do
  begin
    DoSomethingWithTheData;
    Dataset.Next;
  end;

[p80286]

Da es sich augenscheinlich um Daten einer Datenbankabfrage handelt, warum nicht gleich

SQL-Code:

select ....
from ....
where ....
  and DasinteressanteFeld like(%GesuchterSubstring%)
  ...

Gruß
K-H