Umbedingt Hilfe Bei Stringsuche

[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).

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