Zitat von
thkerkmann:
Hi,
also wenn ich deinen Code richtig interpretiere dann sind Button1 und Button2 zum Blättern in deiner Datenbank bestimmt.
Jetzt machst Du aber jedesmal beim Blättern ein update auf dein Datenarray (MaskeInArray).
Das solltest Du aber nur dann tun, wenn sich diese Daten geändert haben.
Also würde ich mal bei all diesen Edit-Feldern das OnChange Ereignis auf eine Prozedur zeigen lassen, die dann ein "geändert" Flag setzt. Ausserdem benötigst Du noch ein zweites Flag, welches verhindert dass durch ArrayInMaske (löst ja auch OnChange aus) dieses geändert Flag gesetzt wird. So und anstatt immer MaskeInArray aufzurufen solltest Du dann
Delphi-Quellcode:
if geaendert then
MaskeInArray;
geaendert := false;
verwenden.
Man könnte diese Abfrage auch in MaskeInArray machen - oder das geaendert := false dort machen, das ist noch Optimierungsarbeit.
Das OnChange könnte dann so aussehen:
Delphi-Quellcode:
TForm1.OnEditsChange (Sender:tObject);
begin
if not fuelle_maske then
geaendert := true;
end;
und Array in Maske sieht dann so aus:
Delphi-Quellcode:
procedure ArrayInMaske;
begin
fuelle_maske := true;
...
Zuweisungen an die edits
...
fuelle_maske := false;
end;
So und jetzt kannst Du das mal ausprobieren - ich muss nämlich noch kochen.
Frohes Fest allerseits.
öhm ja, aber du hast schon gelesen um was es in dem Topic geht?
ich meine ich find es toll, dass du mir sagst wie ich das Prog optimieren kann aber darum geht es nicht.
Es geht um die Suchfunktion, ich glaube damit hat das nichts zu tun oder täusche ich mich?