Forum: Datenbanken
by haentschman,
1. Mär 2019
...weil du die Posts nicht gelesen hast. :roll:
PS: Von Locate rate ich ab. Funktioniert mal, mal nicht.
Forum: Datenbanken
by haentschman,
1. Mär 2019
Ich kürze das mal ab...
function TMySQLDB.Find_Property(Einstellung, Spalte: string): string;
var I: integer;
begin
Result := '';
FQuery_Einstellungen.First;
while not FQuery_Einstellungen.Eof do
begin
if FQuery_Einstellungen.FieldByName('Einstellung').AsString = Einstellung then
Forum: Datenbanken
by haentschman,
1. Mär 2019
...und was passiert mit NEXT? Der Datensatzzeiger wird verschoben...und wo sitzt der Datensatzzeiger nach der Schleife? :zwinker:
...das hilft aber nicht bei offensichtlichen Logikfehlern. :?
Forum: Datenbanken
by haentschman,
1. Mär 2019
Moin...8-)
while (not FQuery_Einstellungen.Eof) and (FQuery_Einstellungen.FieldByName('Einstellung').AsString<>Einstellung) do begin
// <> heißt, wenn die Einstellung nicht gefunden wird, gehe zum nächsten Datensatz...es fehlt die Abbruch Bedingung. :-)
FQuery_Einstellungen.Next; // das hast du auch programmiert :-)
end; // Am Ende steht der Datensatz auf dem Letzten
Ich könnte dir...