Umbedingt Hilfe Bei Stringsuche

[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;