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?
Falsche Tags gesetzt?

Sherlock

[benni1234]

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

Zitat von Sherlock:

Was ist das?
Falsche Tags gesetzt?

Sherlock

[Sherlock]

Die Fundstücke kannst Du zB in eine TStringList per Add einfügen. Ausgeben kannst Du die dann zB mit Text oder DelimitedText .

Sherlock

[benni1234]

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

Zitat von Sherlock:

Die Fundstücke kannst Du zB in eine TStringList per Add einfügen. Ausgeben kannst Du die dann zB mit Text oder 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