Forum: Sonstige Fragen zu Delphi
Delphi
by freak4fun,
14. Sep 2008
Habe ich übersehen! :pale: So wie einiges andere hier. :stupid: Sorry! :oops:
Forum: Sonstige Fragen zu Delphi
Delphi
by freak4fun,
14. Sep 2008
procedure TTerminKalender.Sort(AList: TStrings);
function CompareDate(Item1, Item2: Pointer): Integer;
var
Val1, Val2: TDateTime;
begin
val1 := TTermin(Item1).Time;
val2 := TTermin(Item2).Time;
Result := DateUtils.CompareDate(Val1, Val2);
end;
Forum: Sonstige Fragen zu Delphi
Delphi
by freak4fun,
14. Sep 2008
Bäume und Wald und so. :oops:
procedure TTerminKalender.Sort(AList: TStrings);
function CompareDate(Item1, Item2: Pointer): Integer;
var
Val1, Val2: TDateTime;
begin
val1 := TTermin(Item1).FTime;
val2 := TTermin(Item2).FTime;
Result := DateUtils.CompareDate(Val1, Val2);
Forum: Sonstige Fragen zu Delphi
Delphi
by freak4fun,
14. Sep 2008
Wie bekomme ich diese Liste als TDateTime sortiert? Mit >, < geht es nicht. :?
Forum: Sonstige Fragen zu Delphi
Delphi
by freak4fun,
12. Sep 2008
Kann ich da angeben wonach sortiert wird?
Forum: Sonstige Fragen zu Delphi
Delphi
by freak4fun,
12. Sep 2008
Das hatte nichts funktioniert. Ich schau da noch mal drüber. :-D
Forum: Sonstige Fragen zu Delphi
Delphi
by freak4fun,
12. Sep 2008
Die Liste soll nach dem Datum + Zeit (Time) sortiert werden. Ausgegeben wird sie schrittweise von Anfang bis Ende in einer For-Schleife.
Aufrofüber einen Button mit der Caption "Sortieren". ;)
myTerminKalender.Sort;
Forum: Sonstige Fragen zu Delphi
Delphi
by freak4fun,
11. Sep 2008
procedure TTerminKalender.Sort;
procedure Swap(AOne, ATwo: TTermin);
var
lTemp: TTermin;
begin
lTemp := TTermin.Create(0, 0,'');
try
lTemp.Time := AOne.Time;
lTemp.Text := AOne.Text;
Forum: Sonstige Fragen zu Delphi
Delphi
by freak4fun,
11. Sep 2008
Ich habe eine Klasse TTerminKalender mit einer ObjectList, die Elemente meiner Klasse TTermin enthält. Nun möchte ich die Objekte in dewr ObjectList nach dem Datem (Eigenschaft von TTermin) sortieren. So geht es, aber geht es besser?
procedure TTerminKalender.Sort;
var
i, j: Integer;
begin
for i := 0 to FTerminListe.Count - 2 do
for j := i + 1 to FTerminListe.Count - 1 do
if...