Guten Morgen.
Find´s gut.
Funktioniert.
Ich habe mir natürlich auch mal den Quelltext angeschaut.
Es gibt einige Dinge, die ich anders machen würde, da diese redundant sind.
Du hast zwei Funktionen, die bis auf die Reihenfolge der Selektierung die gleichen Felder abfragen. Einzige Unterschiede sind das
Flag zum Einen und die
Listview zum Anderen.
Besser wäre es, du würdest einfach einen Boolean übergeben und die ListView.
Delphi-Quellcode:
procedure LoadJobslistByStart(aClosedOnes: Boolean; aListView: TListView);
begin
//Irgendwo unterscheidest du dann.
...
+ 'LEFT JOIN tbplace ON tbmain.fk_place_id=tbplace.id_tbplace WHERE flag = :flag';
if aClosedOnes then
begin
SQLiteQuery1.ParamByName('flag').value:= 0;
end
else
begin
SQLiteQuery1.ParamByName('flag').value:= 1;
end;
//Weitere Verarbeitung
end;
Gruß,
Stefan
Äh.... sag ma und wie übergebe ich die Parameter? Etwa so?
Delphi-Quellcode:
// procedure aufrufen
LoadJobslistByStart(True, ListView1);